Filter
Top Products
Dᑍ
Dᑍ Change Object Information parameter
Dᑍ
DCOBJI DS
D NUMKEY 9B INZ(3)
D KEY13 9B INZ(13)
D LEN13 9B INZ(4)
D PID13 4
D KEY12 9B INZ(12)
D LEN12 9B INZ(4)
D LID12 4
D KEY5 9B INZ(5)
D LEN5 9B INZ(13)
D LP5 13
Dᑍ
Dᑍ Miscellaneous data
Dᑍ
DAPI_NAME S 1
DFIRST_ERR S 1 INZ('')
DPROD_ID S 7 INZ('ABCABC')
DPROD_NAME S 2 INZ('ABC5 ABC ')
DRLS_LVL S 6 INZ('V3R1M')
DNBR_OPTS S 9B INZ(1)
DNBR_LANGS S 9B INZ(1)
DTEXT_DESC S 5 INZ('ABC Product')
DPUB_AUT S 1 INZ('ᑍUSE')
DNBR_ADD_LB S 9B INZ()
DNBR_PE S 9B INZ(1)
DNBR_FLDRS S 9B INZ()
DOBJNAM S 2
Cᑍ
Cᑍ Beginning of Mainline
Cᑍ
Cᑍ Initialize the error code parameter. To signal exceptions to
Cᑍ this program by the API, you need to set the bytes provided
Cᑍ field of the error code to zero. Because this program has
Cᑍ exceptions sent back through the error code parameter, it sets
Cᑍ the bytes provided field to the number of bytes it gives the
Cᑍ API for the parameter.
Cᑍ
C EVAL QUSBPRV = %SIZE(QUSEC)
Cᑍ
Cᑍ Create Product Definition Object - ABC5
Cᑍ
C EXSR PRDDFN 1
Cᑍ
Cᑍ Create Product Load Objects - ABC5 (MRM) and ABC29 (MRI)
Cᑍ
C EXSR PRDLOD 2
Cᑍ
Cᑍ Change Object Description for all objects associated with
Cᑍ the ABC Product.
Cᑍ
C EXSR COBJD 3
Cᑍ
Cᑍ Package the ABC Product so that all the SAVLICPGM, RSTLIBPGM,
Cᑍ and DLTLICPGM commands work with the product.
Cᑍ
Appendix B. Original Examples in Additional Languages B-145