IBM Version 4 manual Numkey, KEY13, LEN13, PID13 PIC, KEY12, LEN12, LID12 PIC, KEY5, LEN5, LP5 PIC

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 "ABCðð5ð	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 t￿he

\API for the parameter.

\

MOVE LENGTH OF QUS-EC TO BYTES-PROVIDED OF QUS-EC.

\

\Create Product Definition Object - ABCðð5ð

PERFORM PRDDFN. .1/

\Create Product Load Objects - ABCðð5ð (MRM) and ABCðð29 (MRI￿)

B-138System API Programming V4R1