IBM Version 4 manual Value Exampleexitpoint, Exit-Pgm-Nbr, Value -1 Binary

\	QUSPTRUS - Retrieve Pointer to User Space
\	QusRetrieveExitInformation - 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ð).
ð5	FORMAT-NAME	PIC	X(ð8)	VALUE "EXTIð1ðð".
ð5	FORMAT-NAME-1	PIC	X(ð8)	VALUE "EXTIð2ðð".
ð5	FORMAT-NAME-2	PIC	X(ð8)	VALUE "EXMPð1ðð".
	Appendix B.			Original Examples in Additional BLanguages-67