C EXSR PKGPO .4/
C\
C\ All done, product is ready to ship.
C\
C EVAL \INLR = '1'
C RETURN
C\
C\ End of MAINLINE
C\
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C\ Subroutine: PRDDFN
C\
C\ Descriptive Name: Create product definitions.
C\
C\ Description: This subroutine will create the product definition
C\ ABCðð5ð for the ABC product.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C PRDDFN BEGSR
C\
C\ Setup for Product Definition
C\ Fill Product Definition Information Parameter
C\
C EVAL QSZPID = PROD_ID
C EVAL QSZRL = RLS_LVL
C EVAL QSZMFIL = 'ABCMSG'
C EVAL QSZFC = '\CURRENT'
C EVAL QSZCC = '\CURRENT'
C EVAL QSZRD = '9412ð1'
C EVAL QSZAMR = '\NO'
C EVAL QSZRIDT = '\PHONE'
C EVAL QSZRIDV = '5ð72535ð1ð'
C\
C\ Fill Product Load Parameter
C\
C EVAL QSZOPT = 'ðððð'
C EVAL QSZMID = 'ABCððð1'
C EVAL QSZADN = '\NODYNNAM'
C EVAL QSZCL = '5ðð1'
C EVAL QSZERVEDðð = \BLANKS
C\
C\ Fill Language Load List Parameter
C\
C EVAL QSZLLðð = '2924'
C EVAL QSZOPTðð = 'ðððð'
C EVAL QSZERVEDð1 = \BLANKS
C\
C\ Create the Product Definition for the ABC Product
C\
C CALL 'QSZCRTPD'
C PARM PROD_NAME
C PARM QSZPI
C PARM QSZPO
B-146 System API Programming V4R1