IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
C ENDSR
Cᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍ
Cᑍ Subroutine: ERROR
Cᑍ
Cᑍ Descriptive Name: Process API errors.
Cᑍ
Cᑍ Description: This subroutine will print a line to a spooled
Cᑍ file if any errors are returned in the error code
Cᑍ parameter.
Cᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍ
C ERRCOD BEGSR
Cᑍ
Cᑍ Process errors returned from the API.
Cᑍ
Cᑍ If first error found, then open QPRINT ᑍPRTF
Cᑍ
C IF FIRST_ERR = ''
C OPEN QPRINT
C EVAL FIRST_ERR = '1'
C ENDIF
Cᑍ
Cᑍ Output the error and the API that received the error
Cᑍ
C EXCEPT BAD_NEWS
Cᑍ
C ENDSR
OQPRINT E BAD_NEWS 1
O 'Failed in API '
O API_NAME
O 'with error '
O QUSEI
ᑍᑍCTDATA OBJ_INFO
ABCPGMMRM1ᑍPGM 51ABCABCV3R1M
ABCPGMMRM2ᑍPGM 51ABCABCV3R1M
ABCPGMMRI1ᑍPGM 2924ABCABCV3R1M
ABCPGMMRI2ᑍPGM 2924ABCABCV3R1M
ABCPGM ᑍPGM 51ABCABCV3R1M
QCLSRC ᑍFILE 2924ABCABCV3R1M
ABCDSPF ᑍFILE 2924ABCABCV3R1M
ABCPF ᑍFILE 2924ABCABCV3R1M
ABCMSG ᑍMSGF 2924ABCABCV3R1M
ABC ᑍCMD 2924ABCABCV3R1M
ABCPNLGRP ᑍPNLGRP 2924ABCABCV3R1M
ABC5 ᑍPRDDFN 51ABCABCV3R1M
ABC5 ᑍPRDLOD 51ABCABCV3R1M
ABC29 ᑍPRDLOD 2924ABCABCV3R1M
ABC ᑍLIB 51ABCABCV3R1M
Appendix B. Original Examples in Additional Languages B-151
 previous next