\ 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 first
\ 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 physically
\ 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-88 System API Programming V4R1