\
PERFORM PRDLOD. .2/
\
\ Change Object Description for all objects associated with
\ ABC Product.
\
PERFORM COBJD. .3/
\
\ Package the ABC Product so that all the SAVLICPGM, RSTLIBPGM,
\ and DLTLICPGM commands work with the product.
\
PERFORM PKGPO. .4/
\
\ All done, product is ready to ship.
\
STOP RUN.
\
\ End of MAINLINE
\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\
\ Subroutine: PRDDFN
\
\ Descriptive Name: Create product definitions.
\
\ Description: This subroutine will create the product definition
\ ABCðð5ð for the ABC Product.
\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\
PRDDFN.
\
\ Setup for Product Definition
\ Fill Product Definition Information Parameter
\
MOVE PROD-ID OF MISC TO PID OF QSZ-PRD-INF.
MOVE RLS-LVL OF MISC TO RLS-LVL OF QSZ-PRD-INF.
MOVE "ABCMSG" TO MSG-FILE OF QSZ-PRD-INF.
MOVE "\CURRENT" TO FST-CPYRT OF QSZ-PRD-INF.
MOVE "\CURRENT" TO CUR-CPYRT OF QSZ-PRD-INF.
MOVE "9412ð1" TO RLS-DATE OF QSZ-PRD-INF.
MOVE "\NO" TO ALW-MULT-RLS OF QSZ-PRD-INF.
MOVE "\PHONE" TO REG-ID-TYPE OF QSZ-PRD-INF.
MOVE "5ð72535ð1ð" TO REG-ID-VAL OF QSZ-PRD-INF.
\
\ Fill Product Load Parameter
\
MOVE "ðððð" TO OPT OF QSZ-PRD-OPT.
MOVE "ABCððð1" TO MSG-ID OF QSZ-PRD-OPT.
MOVE "\NODYNNAM" TO ALW-DYN-NAM OF QSZ-PRD-OPT.
MOVE "5ðð1" TO COD-LOD OF QSZ-PRD-OPT.
MOVE SPACES TO RESERVED OF QSZ-PRD-OPT.
\
\ Fill Language Load List Parameter
\
MOVE "2924" TO LNG-LOD OF QSZ-LNG-LOD.
Appendix B. Original Examples in Additional Languages B-139