C\

 

 

C

CALL 'QUSRMVEP'

 

C

PARM

EPNTNM

C

PARM 'EXMPð1ðð'FORMAT 8

C

PARM 1

PGMNBR

C

PARM

QUSBN

C\

C\ If an exception occurs, the API returns the exception in￿ the C\ error code parameter. The bytes available field is set to C\ zero if no exception occurs and greater than zero if an

C\ exception does occur.

C\

 

 

C

QUSBNC

IFGT ð

C

 

OPEN QPRINT

C

 

EXCPTERRPGM

C

 

EXSR DONE

C

 

ENDIF

C\

C\ If the call to remove the exit program is successful, C\ deregister the exit point.

C\

C\ Call the API to deregister the exit point.

C\

 

 

 

 

C

 

 

CALL 'QUSDRGPT'

C

 

 

PARM

EPNTNM

C

 

 

PARM 'EXMPð1ðð'FORMAT

C

 

 

PARM

QUSBN

C\

 

 

 

 

C\ If an exception occurs, the API returns the exception in￿ the

C\ error code parameter. The bytes available field is set to

C\ zero if no exception occurs and greater than zero if an

C\ exception does occur.

 

C\

 

 

 

 

C

 

QUSBNC

IFGT ð

 

C

 

 

OPEN QPRINT

 

C

 

 

EXCPTERREPT

 

C

 

 

EXSR DONE

 

C

 

 

ENDIF

 

C

 

 

EXSR DONE

 

C\

 

 

 

 

C\ End of MAINLINE

 

 

C\

 

 

 

 

C\

 

 

 

 

C\ Return to programs

caller

 

C

 

DONE

BEGSR

 

C

 

 

SETON

LR

C

 

 

RETRN

 

C

 

 

ENDSR

 

O\

 

 

 

 

OQPRINT

E

1ð6

ERREPT

 

O

 

 

 

'Attempt to deregister '

O

 

 

 

'exit point failed: '

O

 

 

QUSBND

 

OQPRINT

E

1ð6

ERRPGM

 

O

 

 

 

'Attempt to remove exit '

O

 

 

 

'program failed: '

O

 

 

QUSBND

 

 

 

 

Appendix

B. Original Examples in Additional BLanguages-91

Page 369
Image 369
IBM Version 4 manual Parm Pgmnbr Qusbn, Call Qusdrgpt