Filter
Top Products
ᑍ
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
ᑍ ABC5 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 "94121" 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 "5725351" TO REG-ID-VAL OF QSZ-PRD-INF.
ᑍ
ᑍ Fill Product Load Parameter
ᑍ
MOVE "" TO OPT OF QSZ-PRD-OPT.
MOVE "ABC1" TO MSG-ID OF QSZ-PRD-OPT.
MOVE "ᑍNODYNNAM" TO ALW-DYN-NAM OF QSZ-PRD-OPT.
MOVE "51" 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