ZPARTL N}P8( PARTL {+<B CRTPART nT/+y4(D?~mSA z8(D?~Pm?~P#g{zG53\m1,r8( PARTL(*PRV) 1+Jmz9 CCZKn?Dns;v?~Pm?~D{F#+G,g{zG*"_,rKN}j 6CZ8(iDns;v?~Pm?~D{F#g{z}Z9C QSECOFR C'r*m KPKn,rK5^'#PARTL N}D1!5* *NONE,8>y4(D?~+; a;mS=?~Pm?~P#

g{fZBPiv,rXk8(?~Pm?~:

vZnO8(DiGC PARTLREQ(*YES) 4(D

v8(D`M;G PARTL

g{Z CRTPART nO8(K?~Pm?~,r:

v?~Pm?~XkfZZSZdP4(?~Di*<D1!Qw76P#

vy4(D?~{;mSA8(D?~Pm?~P(g{C?~{P;fZD0)# (49n4\4(?~,2I\a"zKiv)#

g{8(D`MG PARTL,r+vT PARTL N}#Zd{ivB,PARTL N}+< B8(D?~Pm?~;B#

9C TEXT N}4*B?~dk;)hvTD>#g{;dkNND>,r+9C1!

5*BLANK,xhv#t*UW#

>}

BP>}5wgN4(F* PAYROLL DEVELOPER1 RPGSRC BIWKLY D?~#

9C CRTPART n

CRTPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY) LANG(RPG) PRMPT(*NO) PRMCODE(*GRP) SRCFILE(QRPGSRC) TEXT(*BLANK)

9C0`L*"\mw15CLr

40C PDM 49C?~1A;OD0F6=4(1#

?~;a}"w*4I1f"Z QRPGSRC P,G`M* RPGSRC D?~D1!4 D~#bk8( SRCFILE(*TYPE) `,#

TBn+Zn? PAYROLL Di DEVELOPER2 P4(?~ MNTHLY#

CRTPART PRJ(PAYROLL) GRP(DEVELOPER2) TYPE(CSRC) PART(MNTHLY) LANG(C) PRMPT(*NO) PRMCODE(*NONE) SRCFILE(QCSRC) TEXT(*BLANK)

a}k *NONE 8>?~;\;a}#?~w*4I1f"Z QCSRC P,G`M* CSRC D?~D1!4D~#bk8( SRCFILE(*TYPE) `,#

4F?~ (CPYPART)

4(B?~Dm;V=(MG+Vf?~4F=8(DiMn?P#9C04F? ~1(CPYPART) n44PKYw#

44&CLr*"\mwC'8O

Page 56
Image 56
IBM SB84-0449-00 manual 9C Crtpart n, 4B?~DmV=MG+Vf?~4F=8DiMn?P#9C04F? ~1CPYPART n44PKYw#