IBM Version 4 Universal Remote User Manual


 
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