Filter
Top Products
ᑍ
ᑍ Fill Additional Library List Parameter
ᑍ None
ᑍ
ᑍ Fill Folder List Parameter
ᑍ None
ᑍ
ᑍ Let's create the product load for the ABC Product - MRM Objects
ᑍ
MOVE "ABC5" TO PROD-ID-NM.
MOVE SPACES TO SEC-LANG.
ᑍ
CALL "QSZCRTPL" USING PROD-ID-NM, QSZ-LOD-INF, SEC-LANG,
QSZ-LIB-INF, QSZ-ADD-LIB,
NBR-ADD-LB, QSZ-PRE-EXT, NBR-PE,
QSZ-FLR-LST, NBR-FLDRS, TEXT-DESC,
PUB-AUT, QUS-EC.
ᑍ
ᑍ If an exception occurs, the API returns the exception in the
ᑍ error code parameter. The bytes available field is set to
ᑍ zero if no exception occurs and greater than zero if an
ᑍ exception does occur.
ᑍ
IF BYTES-AVAILABLE OF QUS-EC >
MOVE "QSZCRTPL" TO API-NAME,
PERFORM ERRCOD.
ᑍ
ᑍ Setup for Product Load for MRI Objects
ᑍ Fill Product Load Information Parameter
ᑍ
MOVE "ᑍLNG" TO LOD-TYPE OF QSZ-LOD-INF.
MOVE "2924" TO LOD-ID OF QSZ-LOD-INF.
ᑍ
ᑍ Fill Principal Library Information Parameter
ᑍ
MOVE "ABCPGMMRI2" TO POST-EXIT-PGM OF QSZ-LIB-INF.
ᑍ
ᑍ Fill Preoperation Exit Programs Parameter
ᑍ
MOVE "ABCPGMMRI1" TO PRE-EXT-PGM OF QSZ-PRE-EXT.
ᑍ
ᑍ Fill Additional Library List Parameter
ᑍ None
ᑍ
ᑍ Fill Folder List Parameter
ᑍ None
ᑍ
ᑍ Let's create the product load for the ABC Product - MRI Objects
ᑍ
MOVE "ABC29" TO PROD-ID-NM.
MOVE "ABC2924" TO SEC-LANG.
ᑍ
CALL "QSZCRTPL" USING PROD-ID-NM, QSZ-LOD-INF, SEC-LANG,
QSZ-LIB-INF, QSZ-ADD-LIB,
NBR-ADD-LB, QSZ-PRE-EXT, NBR-PE,
QSZ-FLR-LST, NBR-FLDRS, TEXT-DESC,
PUB-AUT, QUS-EC.
ᑍ
Appendix B. Original Examples in Additional Languages B-141