mb,IT(}8(OUTPUT(*OUTFILE) 4+dv<r3vdvD~#dvD~DG
<q=kZbQADM 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)
9C0|Dn?1(CHGPRJ) |n4|Dkn?`X*DD>,r_|D1Zn?PX
B9(omD~1Gqk*T/#fMV4zDbT}]#;Pn?\m1E\9C
K|n#
g{z8(SAVDTA(*YES),r9(}L+Z9(.0#fbT}],xZXB9(o
mD~.sV4b)}]#
>}
*|DkPAYROLL n?`X*DhvTD>,dkTB|n:
9CCHGPRJ |n
CHGPRJ PRJ(PAYROLL) SAVDTA(*SAME) TEXT('BIWEEKLY PAYROLL
PROCESSING APPLICATION')
9C0`L*"\mw15CLr
Z0CPDM 49Cn?1A;O!q!n2(|D)#
K|n+;a|DNNGGE"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.s9CK|n4i$a}76#n?\m1M&CLr*"_<
IT9CK|n#
XkZPRTPRJ |nDPRJ N}O8(zQGGDn?D{F#
OUTPUT N}D1!5OUTPUT(*PRINT) +9(fYQzT)r!#
(fT>KPARTL Xh5,C58>iGq*sZ|D"4(ra}?~1<&xv
-r#5Y8>Xkxv-r#
>}
K>}5wgN4(Z103D<4PyT>Dy>(f#
9CPRTPRJ |n
PRTPRJ PRJ(PAYROLL) OUTPUT(*PRINT)
9C0`L*"\mw15CLr
Z2B9Cn?9