IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
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 Languages B-91
 previous next