IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
C EXSR PKGPO 4
Cᑍ
Cᑍ All done, product is ready to ship.
Cᑍ
C EVAL ᑍINLR = '1'
C RETURN
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 will create the product definition
Cᑍ ABC5 for the ABC product.
Cᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Cᑍ
C PRDDFN BEGSR
Cᑍ
Cᑍ Setup for Product Definition
Cᑍ Fill Product Definition Information Parameter
Cᑍ
C EVAL QSZPID = PROD_ID
C EVAL QSZRL = RLS_LVL
C EVAL QSZMFIL = 'ABCMSG'
C EVAL QSZFC = 'ᑍCURRENT'
C EVAL QSZCC = 'ᑍCURRENT'
C EVAL QSZRD = '94121'
C EVAL QSZAMR = 'ᑍNO'
C EVAL QSZRIDT = 'ᑍPHONE'
C EVAL QSZRIDV = '5725351'
Cᑍ
Cᑍ Fill Product Load Parameter
Cᑍ
C EVAL QSZOPT = ''
C EVAL QSZMID = 'ABC1'
C EVAL QSZADN = 'ᑍNODYNNAM'
C EVAL QSZCL = '51'
C EVAL QSZERVED = ᑍBLANKS
Cᑍ
Cᑍ Fill Language Load List Parameter
Cᑍ
C EVAL QSZLL = '2924'
C EVAL QSZOPT = ''
C EVAL QSZERVED1 = ᑍBLANKS
Cᑍ
Cᑍ Create the Product Definition for the ABC Product
Cᑍ
C CALL 'QSZCRTPD'
C PARM PROD_NAME
C PARM QSZPI
C PARM QSZPO
B-146 System API Programming V4R1
 previous next