C\
C MOVEL'QSZCRTPL'API
C CALL 'QSZCRTPL'
C PARM 'ABCðð5ð' PRDIDN 1ð Prod. ID Name
C PARM QSZBH Prod. Defn. Info.
C PARM \BLANKS SECLIB 1ð Sec. Lang. Lib
C PARM QSZBJ Principal Lib Info
C PARM QSZBK Add. Library List
C PARM ð NUMBK # Add. Lib. List
C PARM QSZBL Pre-Exit Programs
C PARM 1 NUMBL # Pre-Exit Programs
C PARM QSZBM Folder List
C PARM ð NUMBM # Folder List
C PARM TEXTD Text Description
C PARM '\USE' PUBAUT Public Authority
C PARM QUSBN Error Code
C\ Check for errors returned in the error code parameter.
C EXSR ERRCOD
C\
C\ Setup for Product Load for MRI Objects
C\ Fill Product Load Information Parameter
C MOVEL'\LNG ' QSZBHF Product Load Type
C MOVEL'2924 'QSZBHG Load ID
C\
C\ Fill Principal Library Information Parameter
C MOVELPOSTI QSZBJD Post-Exit Prog. Name
C\
C\ Fill Preoperation Exit Programs Parameter
C MOVELPREI QSZBLB Pre-Exit Prog. 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 - MRI Objects
C\
C MOVEL'QSZCRTPL'API
C CALL 'QSZCRTPL'
C PARM 'ABCðð29' PRDIDN 1ð Prod. ID Name
C PARM QSZBH Prod. Defn. Info.
C PARM 'ABC2924 'SECLIB Sec. Lang. Lib
C PARM QSZBJ Principal Lib Info
C PARM QSZBK Add. Library List
C PARM ð NUMBK # Add. Lib. List
C PARM QSZBL Pre-Exit Programs
C PARM 1 NUMBL # Pre-Exit Programs
C PARM QSZBM Folder List
C PARM ð NUMBM # Folder List
C PARM TEXTD Text Description
C PARM '\USE' 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\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
A-8 System API Programming V4R1