ZSRCFILE N}O8(*f"B?~D;C#1!ivG(}8(
SRCFILE(*FROMFILE) T9C<k?~D4D~{#g{k*?~f"ZX(4omD
~P,rdk4D~{F#Xb5SRCFILE(*TYPE)2G\'VD#b8>9C53a
)D1!4D~#}g,`M*RPGSRC D?~f"Z4omD~QRPGSRC P#Z
433Dm3PvK0&CLr*"\mw1?~`M0d`&DOS/400 1!4D~#g
{`M*VRPGTXT D0,SRCFILE N}a;vT#
ZDATA N}O8(Gq*4Fkom}]D~`X*D}]#1!ivG;4F}
]#
Z+10?~Df>f;*Z0&CLr*"\mw1&\?~b?*"vDf>
1,REPLACE N}GG#PCD#K&\+Jmz9C;,Da}kZ;,ibP<
k?~D;,Df>#bZ0&CLr*"\mw1&\?~D0"PfPG;I\
D#
g{8(KREPLACE(*YES),r+9C}Zf;D?~D10a}kM4D~,R
SRCFILE N}+;vT#g{}Z<kD?~;GomD~,RQ-fZ,r:
vC?~+;lvA*<k|Di
vC?~+;f;*<kf>
v?~+;lk
g{?~;fZZ?jiP,xGfZZ|_6pDiP,rZ<kYwZdaSO
_6piPlvC?~,"Z<kax1lkC?~#
9CPARTL N}8(Gqk*+<k?~mSA?~Pm?~#8(PARTL(*PRV)
Jmz9CCZKn?DO;v?~Pm?~D{F(g{zG53\m1D0)#+
G,g{zG*"_D0,KN}aj6CZ8(iDO;v?~Pm?~D{F#
g{9CQSECOFR C'r*mKPK|n,rK5^'#PARTL N}D1!5G
*NONE,8>}Z<kD?~+;amSA?~Pm?~#
BPivBXk8(?~Pm?~:
vZ|nO8(DiG9CPARTLREQ(*YES) 4(D
v8(D`M;GPARTL
g{ZIMPPART |nO8(K?~Pm?~,r:
v?~Pm?~XkfZZS<kC?~Dip<D1!Qw76P#
v<k?~{;mSA8(?~Pm?~,g{|9;fZD0#(49|n4\<k
C?~,2I\a"zKiv)#
g{8(D`M*PARTL,rPARTL N}a;vT#TZd{ivxT,PARTL N
}a<B8(?~Pm?~|B#
9CARCHIVE N}48(}Zf;D?~Gq&i5#v18(REPLACE(*YES) R
C?~G4I1?~1,KN}EPbe#PXT?~xPi5Dji,N{Z823
D:i5?~;#
ZTEXT N}O,TC?~8(hvTD>#Idkn`80 vV{DD>#g{8(
TEXT(*TEXT) D0,Chv+1!*kCTsr4I1`X*DD>#Xb5*BLANK
8>?~;P`X*DD>#
56 &CLr*"\mwC'8O