C

 

 

EVAL

CALL_PGM = %TRIMR(QUSPGML) +

 

C

 

 

 

 

 

'/' + QUSPGMNðð

 

C\

 

 

 

 

 

 

 

C\ Call the exit program while ignoring failures on the cal￿l

 

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”

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 BLanguages-85

Page 362 Page 364
Page 363
Image 363
IBM Version 4 manual Remove Exit Program, Parm Exitparms, Eval Infspcptr = %ADDRRCVVARQUSONE+1 Enddo Endsr, Begsr Eval
Page 362 Page 364
Top Page Image Contents