Filter
Top Products
Cᑍ Fill Additional Library List Parameter
Cᑍ None
Cᑍ
Cᑍ Fill Folder List Parameter
Cᑍ None
Cᑍ
Cᑍ Let's create the product load for the ABC Product - MRM Objects
Cᑍ
C CALL 'QSZCRTPL'
C PARM 'ABC5' PROD_ID_NM 1
C PARM QSZLI
C PARM ᑍBLANKS SEC_LANG 1
C PARM QSZLI
C PARM QSZAL
C PARM NBR_ADD_LB
C PARM QSZPE
C PARM NBR_PE
C PARM QSZFL
C PARM NBR_FLDRS
C PARM TEXT_DESC
C PARM PUB_AUT
C PARM QUSEC
Cᑍ
Cᑍ If an exception occurs, the API returns the exception in the
Cᑍ error code parameter. The bytes available field is set to
Cᑍ zero if no exception occurs and greater than zero if an
Cᑍ exception does occur.
Cᑍ
C IF QUSBAVL >
C EVAL API_NAME = 'QSZCRTPL'
C EXSR ERRCOD
C ENDIF
Cᑍ
Cᑍ Setup for Product Load for MRI Objects
Cᑍ Fill Product Load Information Parameter
Cᑍ
C EVAL QSZLT = 'ᑍLNG'
C EVAL QSZLID = '2924'
Cᑍ
Cᑍ Fill Principal Library Information Parameter
Cᑍ
C EVAL QSZPEP = 'ABCPGMMRI2'
Cᑍ
Cᑍ Fill Preoperation Exit Programs Parameter
Cᑍ
C EVAL QSZPEP = 'ABCPGMMRI1'
Cᑍ
Cᑍ Fill Additional Library List Parameter
Cᑍ None
Cᑍ
Cᑍ Fill Folder List Parameter
Cᑍ None
Cᑍ
Cᑍ Let's create the product load for the ABC Product - MRI Objects
Cᑍ
C CALL 'QSZCRTPL'
C PARM 'ABC29' PROD_ID_NM
C PARM QSZLI
B-148 System API Programming V4R1