MOVE "ðððð" TO OPT OF QSZ-LNG-LOD.

MOVE SPACES TO RESERVED OF QSZ-LNG-LOD.

\

\Create the Product Definition for the ABC Product

MOVE 1 TO NBR-OPTS. MOVE 1 TO NBR-LANGS.

CALL "QSZCRTPD" USING PROD-NAME, QSZ-PRD-INF, QSZ-PRD-OPT,

NBR-OPTS, QSZ-LNG-LOD, NBR-LANGS, TEXT-DESC, PUB-AUT, QUS-EC.

\

\If an exception occurs, the API returns the exception in t￿he

\error code parameter. The bytes available field is set to

\zero if no exception occurs and greater than zero if an

\exception does occur.

\

IF BYTES-AVAILABLE OF QUS-EC > ð

MOVE "QSZCRTPD" TO API-NAME, PERFORM ERRCOD.

\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

\Subroutine: PRDLOD

\Descriptive Name: Create product loads.

\Description: This subroutine will create the product loa￿ds,

\

ABCðð5ð and ABCðð29, for the ABC Product.

\

 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

PRDLOD.

\

\Setup for Product Load for MRM Objects

\Fill Product Load Information Parameter

MOVE PROD-ID OF MISC TO PID OF QSZ-LOD-INF. MOVE RLS-LVL OF MISC TO RLS-LVL OF QSZ-LOD-INF. MOVE "ðððð" TO OPT OF QSZ-LOD-INF.

MOVE "\CODE" TO LOD-TYPE OF QSZ-LOD-INF. MOVE "\CODEDFT" TO LOD-ID OF QSZ-LOD-INF. MOVE "\PRDDFN" TO REG-ID-TYPE OF QSZ-LOD-INF.

MOVE SPACES TO REG-ID-VAL OF QSZ-LOD-INF. MOVE "\CURRENT" TO MIN-TGT-RLS OF QSZ-LOD-INF.

MOVE SPACES TO RESERVED OF QSZ-LOD-INF.

\Fill Principal Library Information Parameter

\

MOVE "ABC" TO DEV-LIB OF QSZ-LIB-INF.

MOVE "ABC" TO PRIM-LIB OF QSZ-LIB-INF.

MOVE "ABCPGMMRM2" TO POST-EXIT-PGM OF QSZ-LIB-INF.

\

\Fill Preoperation Exit Programs Parameter

MOVE "ABCPGMMRM1" TO PRE-EXT-PGM OF QSZ-PRE-EXT. MOVE "ABC" TO DEV-LIB OF QSZ-PRE-EXT.

B-140System API Programming V4R1

Page 418
Image 418
IBM Version 4 Move Spaces to Reserved of QSZ-LNG-LOD, Call Qszcrtpd Using PROD-NAME, QSZ-PRD-INF, QSZ-PRD-OPT, Prdlod