Cᑍ
C MOVEL'QSZCRTPL'API
C CALL 'QSZCRTPL'
C PARM 'ABC5' 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 'ABC29' 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