C EVAL CALL_PGM = %TRIMR(QUSPGML) +
C '/' + QUSPGMNðð
C\
C\ Call the exit program while ignoring failures on the call
C\
C CALL CALL_PGM ð1
C PARM EXIT_PARMS 1ð
C\
C\ Set INFSPCPTR to point to the next exit program entry
C\
C EVAL INFSPCPTR = %ADDR(RCVVAR(QUSONE+1))
C ENDDO
C ENDSR
C\
C\ Return to programs caller
C DONE BEGSR
C EVAL \INLR = '1'
C RETURN
C ENDSR
O\
OQPRINT E ERRAEPNT 1 6
O 'Attempt to retrieve infor-
O mation failed: '
O QUSEI
OQPRINT E ERRAEPGM 1 6
O 'Attempt to retrieve Exit -
O Programs failed: '
O QUSEI
Remove Exit Program and Deregister Exit Point—OPM COBOL
Example Refer to “Remove Exit Program and Deregister Exit Point—ILE C Example” on
page 4-19 for the original example.
IDENTIFICATION DIVISION.
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\
\ Program: Remove an Exit Program
\ Deregister an Exit Point
\
\ Language: OPM COBOL
\
\ Description: This program removes an exit program and
\ deregisters an exit point from the registration
\ facility.
\
\ APIs Used: QUSRMVEP - Remove Exit Program
\ QUSDRGPT - Deregister Exit Point
\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
PROGRAM-ID. REGFAC1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-AS4ðð.
Appendix B. Original Examples in Additional Languages B-85