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 lo￿ads,

C\

 

ABCðð5ð and ABCðð29, 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

QSZOPTð1 = 'ðððð'

C

 

EVAL

QSZLT = '\CODE'

C

 

EVAL

QSZLID = '\CODEDFT'

C

 

EVAL

QSZRIDTðð = '\PRDDFN'

C

 

EVAL

QSZRIDVðð = \BLANKS

C

 

EVAL

QSZMTR = '\CURRENT'

C

 

EVAL

QSZERVEDð2 = \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 BLanguages-147

Page 424 Page 426
Page 425
Image 425
IBM Version 4 Parm Qszll, Parm Pubaut Qusec, Exsr Errcod Endif Endsr, Eval Qszlt = \CODE Qszlid = \CODEDFT, Eval Qszdl
Page 424 Page 426
Top Page Image Contents