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\

IDS

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

NAME

I

 

 

 

11

TYP

I

 

 

 

21

24

PID

I

 

 

 

25

28

LID

I

 

 

 

29

41

LP

IDS

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 (MR￿I)

C\

 

 

C

EXSR PRDLOD

.2/

 

Appendix

A. Performing Tasks Using APIs—ExamplesA-5

Page 261
Image 261
IBM Version 4 Copy QSYSINC/QRPGSRC,QSZCRTPL, Copy QSYSINC/QRPGSRC,QSZPKGPO, Textd, Phone, Nodynnam, Alwdyn, Use, Postm