IBM Version 4 manual Data Division File Section, Pgm-Nbr

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(41)
		VALUE "Attempt to		deregister exit point failed: ".
ð5	EXCEPTION-ID PIC		X(ð7).
ð1 BAD-EXIT-PGM.
ð5	TEXT1	PIC	X(39)
		VALUE "Attempt to		remove exit program failed: ".
ð5	EXCEPTION-ID PIC		X(ð7).

\

\Miscellaneous elements

ð1 MISC.

ð5	PGM-NBR	PIC S9(ð9)		VALUE 1 BINARY.
ð5	EXIT-POINT-NAME PIC		X(2ð)	VALUE	"EXAMPLE_EXIT_POINT".
ð5	FORMAT-NAME	PIC	X(ð8)	VALUE	"EXMPð1ðð".

\

\Beginning of mainline

PROCEDURE DIVISION. MAIN-LINE.

\Remove an exit program from the exit point and then dereg￿ister

\the exit point. It is not necessary to remove exit programs

\from an exit point before deregistering the exit point. It is

\done here only for illustrative purposes.

\

\Initialize the error code parameter. To signal exceptions to

\this program by the API, you need to set the bytes provided￿

\field of the error code to zero. Because this program has

\exceptions sent back through the error code parameter, it￿ sets

\the bytes provided field to the number of bytes it gives t￿he

\API for the parameter.

\

B-86System API Programming V4R1