C MOVEL'QSZCRTPD'API 1ð
C CALL 'QSZCRTPD'
C PARM PDFN Qual. Prod. Defn.
C PARM QSZBC Prod. Defn. Info.
C PARM QSZBD Prod. Option List
C PARM NUMPOP # Prod. Options
C PARM QSZBF Lang. Load List
C PARM NUMLAN # Lang. Load List
C PARM TEXTD Text Description
C PARM PUBAUT Public Authority
C PARM QUSBN Error Code
C\ Check for errors returned in the error code parameter.
C EXSR ERRCOD
C ENDSR
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C\ Subroutine: PRDLOD
C\
C\ Descriptive Name: Create product loads.
C\
C\ Description: This subroutine creates the product loads,
C\ ABCðð5ð and ABCðð29, for the ABC Product.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C PRDLOD BEGSR
C\
C\ Setup for Product Load for MRM Objects
C\ Fill Product Load Information Parameter
C MOVEL'ðABCABC' QSZBHB Product ID
C MOVEL'V3R1Mð' QSZBHC Release Level
C MOVEL'ðððð' QSZBHD Product Option
C MOVEL'\CODE' QSZBHF Product Load Type
C MOVEL'\CODEDFT'QSZBHG Load ID
C MOVEL'\PRDDFN' QSZBHH Registration ID Type
C MOVEL\BLANKS QSZBHJ Registration ID Value
C MOVEL'\CURRENT'QSZBCK Min. Target Release
C MOVEL\BLANKS QSZBCL Reserved
C\
C\ Fill Principal Library Information Parameter
C MOVEL'ABC' QSZBJB Prin. Dev. Lib. Name
C MOVEL'ABC' QSZBJC Prin. Prim. Lib. Name
C MOVELPOSTM QSZBJD Post-Exit Prog. Name
C\
C\ Fill Preoperation Exit Programs Parameter
C MOVELPREM QSZBLB Pre-Exit Prog. Name
C MOVEL'ABC' QSZBLC Dev. Lib. Name
C\
C\ Fill Additional Library List Parameter
C\ None
C\
C\ Fill Folder List Parameter
C\ None
C\
C\ Create the product load for the ABC Product - MRM Objects
Appendix A. Performing Tasks Using APIs—Examples A-7