IBM Version 4 Universal Remote User Manual


 
COPY QSZCRTPD OF QSYSINC-QLBLSRC.
ᑍ Create Product Load API Include
COPY QSZCRTPL OF QSYSINC-QLBLSRC.
ᑍ Package Product Option API Include
COPY QSZPKGPO OF QSYSINC-QLBLSRC.
ᑍ Error message text
1 BAD-NEWS.
5 TEXT1 PIC X(14) VALUE "Failed in API ".
5 API-NAME PIC X(1).
5 TEXT2 PIC X(11) VALUE "with error ".
5 EXCEPTION-ID PIC X(7).
ᑍ Compile Time Array
1 OBJ-INFO.
5 ELEMENT-1 PIC X(41)
VALUE "ABCPGMMRM1ᑍPGM 51ABCABCV3R1M".
5 ELEMENT-2 PIC X(41)
VALUE "ABCPGMMRM2ᑍPGM 51ABCABCV3R1M".
5 ELEMENT-3 PIC X(41)
VALUE "ABCPGMMRI1ᑍPGM 2924ABCABCV3R1M".
5 ELEMENT-4 PIC X(41)
VALUE "ABCPGMMRI2ᑍPGM 2924ABCABCV3R1M".
5 ELEMENT-5 PIC X(41)
VALUE "ABCPGM ᑍPGM 51ABCABCV3R1M".
5 ELEMENT-6 PIC X(41)
VALUE "QCLSRC ᑍFILE 2924ABCABCV3R1M".
5 ELEMENT-7 PIC X(41)
VALUE "ABCDSPF ᑍFILE 2924ABCABCV3R1M".
5 ELEMENT-8 PIC X(41)
VALUE "ABCPF ᑍFILE 2924ABCABCV3R1M".
5 ELEMENT-9 PIC X(41)
VALUE "ABCMSG ᑍMSGF 2924ABCABCV3R1M".
5 ELEMENT-1 PIC X(41)
VALUE "ABC ᑍCMD 2924ABCABCV3R1M".
5 ELEMENT-11 PIC X(41)
VALUE "ABCPNLGRP ᑍPNLGRP 2924ABCABCV3R1M".
5 ELEMENT-12 PIC X(41)
VALUE "ABC5 ᑍPRDDFN 51ABCABCV3R1M".
5 ELEMENT-13 PIC X(41)
VALUE "ABC5 ᑍPRDLOD 51ABCABCV3R1M".
5 ELEMENT-14 PIC X(41)
VALUE "ABC29 ᑍPRDLOD 2924ABCABCV3R1M".
5 ELEMENT-15 PIC X(41)
VALUE "ABC ᑍLIB 51ABCABCV3R1M".
1 OBJECT-TABLE REDEFINES OBJ-INFO.
5 OBJ-INFO-I OCCURS 15 TIMES.
1 OBJ-NAME PIC X(1).
1 OBJ-TYPE PIC X(1).
1 PRD-OPT-ID PIC X(4).
1 PRD-OPT-LD PIC X(4).
Appendix B. Original Examples in Additional Languages B-137