IBM Version 4 Universal Remote User Manual


 
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