F18 SONDT/vS

F19 SD~axT/]v

F20 T/G<Fx

F22 T/4F

T>?~Pm?~

g{9C DSPPART 4T>`M* PARTL D?~,avVTBA;#

D~ .

 

T>omD~I1

b . . . . :

 

 

. . . :

PAY000001

 

PAY.DEV11

I1 . . .

. . . :

QALYPRTL

G< . . . :

1

XF . . .

. . . .

_________________

P

:

1

iR . . .

. . . .

________________________________________

RPGSRC

PROGRAM1

PROGRAM1 D RPG 4

 

 

 

RPGSRC

PROGRAM2

PROGRAM2 D RPG 4

 

 

 

RPGSRC

PROGRAM3

PROGRAM3 D RPG 4

 

 

 

 

 

****** }]ax ******

 

 

W?

F3=Kv F12=!{ F19=rs F20=rR F24=d`

<33. T>omD~I1A;

9CKA;i4`M* PARTL D?~Pm?~PPvD?~#

r!?~Pm?~

+DSPPART nk OUTPUT(*PRINT) dO9CTr!`M* PARTL D?~#Y QzD~G9C{F QPLYPRTL 4(D#

zYJb

D\mDX*XTMGzYJb#bVJbzYVF*-rXF#n?\m1IT NNX(ir*-rXF,b*s*"_8(?~Pm?~{(-r)TG<CiP }ZxP&mD?~#^[N1ZiP4(?~rD?~,r_^[N1+?~a }Ai,<h*8(?~Pm(-r)#b+oz\m1MsF1P'XzYrks Dhsrv?&\xlIDD#

BP0&CLr*"\mw1\m1na)-rXF'V: Di (CHGGRP)

4(i (CRTGRP)

94&CLr*"\mwC'8O

Page 106
Image 106
IBM SB84-0449-00 manual ZYJb, F18 SONDT/vS F19 SD~axT/v F20 T/GFx, F22 T/4F, G9C Dsppart 4T`M* Partl D?~,avVTBA#