C\
C\ Change Object Description for all objects associated with
C\ the ABC Product.
C\
C EXSR COBJD .3/
C\
C\ Package the ABC Product so that all the SAVLICPGM, RSTLIBPGM,
C\ and DLTLICPGM commands work with the product.
C\
C EXSR PKGPO .4/
C\
C\ Complete; product is ready to ship.
C\
C SETON LR
C RETRN
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 creates the product definition
C\ ABCðð5ð for the ABC Product.
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C\
C PRDDFN BEGSR
C\ Setup for Product Definition
C\ Fill Product Definition Information Parameter
C Z-ADD1ðð QUSBNB
C MOVEL'ðABCABC' QSZBCB Product ID
C MOVEL'V3R1Mð' QSZBCC Release Level
C MOVEL'ABCMSG' QSZBCD Message File
C MOVEL'\CURRENT'QSZBCF First Copyright
C MOVEL'\CURRENT'QSZBCG Current Copyright
C MOVEL'9412ð1' QSZBCH Release Date
C MOVEL'\NO' QSZBCJ Allow multiple rel.
C MOVEL'\PHONE' QSZBCK Registration ID Value
C MOVELPHONE QSZBCL Registration ID Value
C\ Fill Product Load Parameter
C MOVEL'ðððð' QSZBDB Product Option Number
C MOVEL'ABCððð1' QSZBDC Message ID
C MOVELALWDYN QSZBDD Allow Dynamic Naming
C MOVEL'5ðð1' QSZBDF Code Load ID
C MOVEL\BLANKS QSZBDG Reserved
C\ Fill Language Load List Parameter
C MOVEL'2924 'QSZBFB Language Load ID
C MOVEL'ðððð' QSZBFC Product Option Number
C MOVEL\BLANKS QSZBFD Reserved
C\
C\ Create the Product Definition for the ABC Product
C\
A-6 System API Programming V4R1