IBM Version 4 manual Move Qszcrtpl to API-NAME, Perform Errcod

\

\Fill Additional Library List Parameter

\None

\

\Fill Folder List Parameter

\None

\

\Let's create the product load for the ABC Product - MRM Obje￿cts

MOVE "ABCðð5ð" TO PROD-ID-NM.

MOVE SPACES TO SEC-LANG.

CALL "QSZCRTPL" USING PROD-ID-NM, QSZ-LOD-INF, SEC-LANG,

QSZ-LIB-INF, QSZ-ADD-LIB, NBR-ADD-LB, QSZ-PRE-EXT, NBR-PE, QSZ-FLR-LST, NBR-FLDRS, 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 "QSZCRTPL" TO API-NAME, PERFORM ERRCOD.

\

\Setup for Product Load for MRI Objects

\Fill Product Load Information Parameter

MOVE "\LNG" TO LOD-TYPE OF QSZ-LOD-INF. MOVE "2924" TO LOD-ID OF QSZ-LOD-INF.

\Fill Principal Library Information Parameter

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

\Fill Preoperation Exit Programs Parameter

\

MOVE "ABCPGMMRI1" TO PRE-EXT-PGM OF QSZ-PRE-EXT.

\

\Fill Additional Library List Parameter

\None

\

\Fill Folder List Parameter

\None

\

\Let's create the product load for the ABC Product - MRI Obje￿cts

MOVE "ABCðð29" TO PROD-ID-NM. MOVE "ABC2924" TO SEC-LANG.

CALL "QSZCRTPL" USING PROD-ID-NM, QSZ-LOD-INF, SEC-LANG, QSZ-LIB-INF, QSZ-ADD-LIB, NBR-ADD-LB, QSZ-PRE-EXT, NBR-PE, QSZ-FLR-LST, NBR-FLDRS, TEXT-DESC, PUB-AUT, QUS-EC.

\

Appendix B. Original Examples in Additional BLanguages-141