Filter
Top Products
C PARM 1 NBR_OPTS
C PARM QSZLL
C PARM 1 NBR_LANGS
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 = 'QSZCRTPD'
C EXSR ERRCOD
C ENDIF
Cᑍ
C ENDSR
Cᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍ
Cᑍ Subroutine: PRDLOD
Cᑍ
Cᑍ Descriptive Name: Create product loads.
Cᑍ
Cᑍ Description: This subroutine will create the product loads,
Cᑍ ABC5 and ABC29, for the ABC product.
Cᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍ
C PRDLOD BEGSR
Cᑍ
Cᑍ Setup for Product Load for MRM Objects
Cᑍ Fill Product Load Information Parameter
Cᑍ
C EVAL QSZPID = PROD_ID
C EVAL QSZRL = RLS_LVL
C EVAL QSZOPT1 = ''
C EVAL QSZLT = 'ᑍCODE'
C EVAL QSZLID = 'ᑍCODEDFT'
C EVAL QSZRIDT = 'ᑍPRDDFN'
C EVAL QSZRIDV = ᑍBLANKS
C EVAL QSZMTR = 'ᑍCURRENT'
C EVAL QSZERVED2 = ᑍBLANKS
Cᑍ
Cᑍ Fill Principal Library Information Parameter
Cᑍ
C EVAL QSZDL = 'ABC'
C EVAL QSZPL = 'ABC'
C EVAL QSZPEP = 'ABCPGMMRM2'
Cᑍ
Cᑍ Fill Preoperation Exit Programs Parameter
Cᑍ
C EVAL QSZPEP = 'ABCPGMMRM1'
C EVAL QSZDL = 'ABC'
Cᑍ
Appendix B. Original Examples in Additional Languages B-147