\

exit

point information, the program calls each

\

exit

program.

\

 

 

\APIs Used: QUSCRTUS - Create User Space

\

QUSPTRUS

-

Retrieve

Pointer to User Space

\

QUSRTVEI

-

Retrieve

Exit Information

\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

PROGRAM-ID. REGFAC2.

ENVIRONMENT DIVISION.

CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-AS4ðð. OBJECT-COMPUTER. IBM-AS4ðð.

INPUT-OUTPUT SECTION. FILE-CONTROL.

SELECT LISTING ASSIGN TO PRINTER-QPRINT ORGANIZATION IS SEQUENTIAL.

DATA DIVISION.

FILE SECTION.

FD LISTING RECORD CONTAINS 132 CHARACTERS LABEL RECORDS ARE STANDARD DATA RECORD IS LIST-LINE.

ð1 LIST-LINE PIC X(132).

WORKING-STORAGE SECTION.

\

\Error Code parameter include. As this sample program

\uses COPY to include the error code structure, only the fi￿rst

\16 bytes of the error code structure are available. If the

\application program needs to access the variable length￿

\exception data for the error, the developer should physic￿ally

\copy the QSYSINC include and modify the copied include to￿

\define additional storage for the exception data.

\

COPY QUSEC OF QSYSINC-QLBLSRC.

\

\Error message text

 

ð1 BAD-EXIT-POINT.

 

 

 

 

ð5

TEXT1

PIC X(4ð)

 

 

 

VALUE

"Attempt to retrieve information failed: ".

 

 

ð5

EXCEPTION-ID

PIC X(ð7).

 

ð1 BAD-EXIT-PGM.

 

 

 

 

ð5

TEXT1

PIC X(42)

 

 

 

VALUE "Attempt to retrieve Exit Programs failed: ".

 

 

ð5

EXCEPTION-ID

PIC X(ð7).

 

ð1

BAD-CREATE.

 

 

 

 

ð5

TEXT1

PIC X(37)

 

 

 

VALUE "Allocation of RCVVAR storage failed: ".

 

\

ð5

EXCEPTION-ID

PIC X(ð7).

 

 

 

 

 

 

\ Miscellaneous elements

 

 

\

 

 

 

 

 

ð1

MISC.

 

 

 

 

ð5

EXIT-POINT-NAME PIC

X(2ð) VALUE "EXAMPLE_EXIT_POINT".

 

 

ð5

EXIT-PGM-NBR

PIC S9(ð9) VALUE -1 BINARY.

 

 

ð5

EXIT-PARAMETERS PIC

X(1ð).

B-62

System API Programming V4R1

 

 

 

Page 340
Image 340
IBM Version 4 manual PROGRAM-ID. REGFAC2 Environment Division, Exception-Id, BAD-CREATE TEXT1, Misc EXIT-POINT-NAME PIC