\

deregisters an exit point from the registration

\

facility.

\

 

\APIs Used: QusRemoveExitProgram - Remove Exit Program

\

QusDeregisterExitPoint - Deregister Exit Point

\

 

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

\

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

PROGRAM-ID. REGFAC3.

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(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.

B-88System API Programming V4R1

Page 366
Image 366
IBM Version 4 manual PROGRAM-ID. REGFAC3 Environment Division