mb,IT(}8( OUTPUT(*OUTFILE) 4+dv<r3vdvD~#dvD~DG <q=kZb QADM PI53a)D}]bD~ QALYQPRJ Py9CDG<q=` ,#

>}

bPmC47(ZN&f"F* OUTFILE DdvD~,D~PDZ;vI1+SUd v#

QRYPRJ OUTPUT(*OUTFILE) OUTFILE(*LIBL/OUTFILE) OUTMBR(*FIRST)

Dn? (CHGPRJ)

9C0Dn?1(CHGPRJ) n4Dkn?`X*DD>,r_D1Zn?PX B9(omD~1Gqk*T/#fMV4zDbT}]#;Pn?\m1E\9C Kn#

g{z8( SAVDTA(*YES),r9(}L+Z9(.0#fbT}],xZXB9(o mD~.sV4b)}]#

>}

*Dk PAYROLL n?`X*DhvTD>,dkTBn:

9C CHGPRJ n

CHGPRJ PRJ(PAYROLL) SAVDTA(*SAME) TEXT('BIWEEKLY PAYROLL

PROCESSING APPLICATION')

9C0`L*"\mw15CLr

Z0C PDM 49Cn?1A;O!q!n 2(D)#

Kn+;aDNNGGE"r_D-TKn?_P(^#*DGGE",9

CCHGPRJUSR n,gZ293D:DC'GGE" (CHGPRJUSR);;ZPyv#

r!XZn?DE" (PRTPRJ)

9C0r!n?1(PRTPRJ) n4i4n?DXwMn?cNa9ZDwvi#ITZ 4(n?cNa9.s9CKn4i$a}76#n?\m1M&CLr*"_< IT9CKn#

XkZ PRTPRJ nD PRJ N}O8(zQGGDn?D{F#

OUTPUT N}D1!5 OUTPUT(*PRINT) +9(fYQzT)r!#

(fT>K PARTL Xh5,C58>iGq*sZD"4(ra}?~1<&xv -r#5 Y 8>Xkxv-r#

>}

K>}5wgN4(Z103D<4PyT>Dy>(f#

9C PRTPRJ n

PRTPRJ PRJ(PAYROLL) OUTPUT(*PRINT)

9C0`L*"\mw15CLr

Z2B 9Cn? 9

Page 21
Image 21
IBM SB84-0449-00 manual Dn? Chgprj, XZn?DE Prtprj, 9C Chgprj n, 9C Prtprj n