IBM Version 4 manual PROGRAM-ID. REGFAC2 Environment Division, Exception-Id, BAD-CREATE TEXT1

\	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