1 LP-ID PIC X(13).
ᑍ
ᑍ Change Object Information parameter
ᑍ
1 COBJI.
5 NUMKEY PIC S9(9) VALUE 3 BINARY.
5 KEY13 PIC S9(9) VALUE 13 BINARY.
5 LEN13 PIC S9(9) VALUE 4 BINARY.
5 PID13 PIC X(4).
5 KEY12 PIC S9(9) VALUE 12 BINARY.
5 LEN12 PIC S9(9) VALUE 4 BINARY.
5 LID12 PIC X(4).
5 KEY5 PIC S9(9) VALUE 5 BINARY.
5 LEN5 PIC S9(9) VALUE 13 BINARY.
5 LP5 PIC X(13).
ᑍ
ᑍ Miscellaneous data
ᑍ
1 MISC.
5 FIRST-ERR PIC X(1) VALUE "".
5 PROD-ID PIC X(7) VALUE "ABCABC".
5 PROD-NAME PIC X(2) VALUE "ABC5 ABC".
5 RLS-LVL PIC X(6) VALUE "V3R1M".
5 NBR-OPTS PIC S9(9) VALUE 1 BINARY.
5 NBR-LANGS PIC S9(9) VALUE 1 BINARY.
5 TEXT-DESC PIC X(5) VALUE "ABC Product".
5 PUB-AUT PIC X(1) VALUE "ᑍUSE".
5 NBR-ADD-LB PIC S9(9) VALUE BINARY.
5 NBR-PE PIC S9(9) VALUE 1 BINARY.
5 NBR-FLDRS PIC S9(9) VALUE BINARY.
5 OBJNAM PIC X(2).
5 PROD-ID-NM PIC X(1).
5 SEC-LANG PIC X(1).
5 I PIC S9(9) BINARY.
5 RTN-LIB PIC X(1).
5 OBJ-TYPE-2 PIC X(1).
5 REPKG PIC X(4) VALUE "ᑍYES".
5 ALWCHG PIC X(5) VALUE "ᑍNO".
ᑍ
ᑍ Beginning of Mainline
ᑍ
PROCEDURE DIVISION.
MAIN-LINE.
ᑍ
ᑍ Initialize the error code parameter. To signal exceptions to
ᑍ this program by the API, you need to set the bytes provided
ᑍ field of the error code to zero. Because this program has
ᑍ exceptions sent back through the error code parameter, it sets
ᑍ the bytes provided field to the number of bytes it gives the
ᑍ API for the parameter.
ᑍ
MOVE LENGTH OF QUS-EC TO BYTES-PROVIDED OF QUS-EC.
ᑍ
ᑍ Create Product Definition Object - ABC5
ᑍ
PERFORM PRDDFN. 1
ᑍ
ᑍ Create Product Load Objects - ABC5 (MRM) and ABC29 (MRI)
B-138 System API Programming V4R1