I\
I\ Create Product Load API Include
I\
I/COPY QSYSINC/QRPGSRC,QSZCRTPL
I\
I\ Package Product Option API Include
I\
I/COPY QSYSINC/QRPGSRC,QSZPKGPO
I\
I\
I DS
I I 1 B 1 4ðNUMPOP
I I 1 B 5 8ðNUMLAN
I I 'ABCðð5ð ABC ' 9 28 PDFN
I I 'ABC Product' 29 78 TEXTD
I I '5ð72535ð1ð ' 79 92 PHONE
I I '\NODYNNAM ' 93 1ð2 ALWDYN
I I '\USE ' 1ð3 112 PUBAUT
I I 'ABCPGMMRM2' 113 122 POSTM
I I 'ABCPGMMRM1' 123 132 PREM
I I 'ABCPGMMRI2' 133 142 POSTI
I I 'ABCPGMMRI1' 143 152 PREI
I\
I\ Change Object Information Parameter
ICOBJI DS 49
I I 3 B 1 4ðNUMKEY
I I 13 B 5 8ðKEY13
I I 4 B 9 12ðLEN13
I 13 16 PID13
I I 12 B 17 2ððKEY12
I I 4 B 21 24ðLEN12
I 25 28 LID12
I I 5 B 29 32ðKEY5
I I 13 B 33 36ðLEN5
I 37 49 LP5
I\
I\ Object Data Structure - Breakdown of fields in Array OBJ
IOBJDS DS
I 1 1ð NAME
I 11 2ð TYP
I 21 24 PID
I 25 28 LID
I 29 41 LP
I DS
I B 1 4ðRCVLEN
I I ð B 5 8ðNUMBK
I I 1 B 9 12ðNUMBL
I I ð B 13 16ðNUMBM
C\
C\ Beginning of Mainline
C\
C\ Create Product Definition Object - ABCðð5ð
C\
C EXSR PRDDFN .1/
C\
C\ Create Product Load Objects - ABCðð5ð (MRM) and ABCðð29 (MRI)
C\
C EXSR PRDLOD .2/
Appendix A. Performing Tasks Using APIs—Examples A-5