\

PERFORM PRDLOD. .2/

\

\Change Object Description for all objects associated wi￿th

\ABC Product.

\

PERFORM COBJD. .3/

\

\Package the ABC Product so that all the SAVLICPGM, RSTLIB￿PGM,

\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 def￿inition

\

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 BLanguages-139

Page 417
Image 417
IBM Version 4 manual Perform Prdlod, Perform Cobjd, Perform Pkgpo, Prddfn, Move Spaces to Reserved of QSZ-PRD-OPT