IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
C MOVEL'ᑍALL 'QSZBRF Load ID
C MOVELᑍBLANKS QSZBRG Reserved
Cᑍ
Cᑍ Package the ABC Product.
Cᑍ
Cᑍ
C MOVEL'QSZPKGPO'API
C CALL 'QSZPKGPO'
C PARM QSZBR Prod. Option Info.
C PARM 'ᑍYES' REPKG 4 Repackage
C PARM 'ᑍNO ' ALWCHG 5 Allow Object Change
C PARM QUSBN Error Code
Cᑍ Check for any errors returned in the error code parameter.
C EXSR ERRCOD
C ENDSR
Cᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍ
Cᑍ Subroutine: ERRCOD
Cᑍ
Cᑍ Descriptive Name: Process API errors.
Cᑍ
Cᑍ Description: This subroutine prints 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 QUSBNC IFNE 
Cᑍ
Cᑍ Process errors returned from the API.
Cᑍ
C EXCPTBADNWS
C END
C ENDSR
OQPRINT E 16 BADNWS
O 'Failed in API '
O API
O 'with error '
O QUSBND
Oᑍ The information below is for array OBJ.
Oᑍ111 represents the object name.
Oᑍ2222222222 represents the object type.
Oᑍ3333 represents the product option ID.
Oᑍ4444 represents the product option load ID.
Oᑍ5555555555555 represents the licensed program.
Oᑍ1112222222222333344445555555555555
ᑍᑍ
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
A-10 System API Programming V4R1
 previous next