Filter
Top Products
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