x({FM`MD?~vI4F=P;|,P`,{FM`MD?~DiP#g{Z
*|,;4F?~DiD1!Qw76PQ-fZ`,{FM`MD?~,r1z4
FC?~1Xk8(a}k*NONE#
zXkT|,y4F?~Di_PAr|BCJ(,RTSU1>Di_P|BCJ
(#
Z4F?~.s,|;alv=C'r*mP#
1z4F_-D~?~1,XkWH4F|yyZDomD~,r_ComD~Xk
ZSUiPQfZ#g{z}Z4FomD~,rZ DATA N}O8(zGq9k4
FomD~PD}]#
g{zk|Dy4F?~DtT(gC?~DoTrD>),rZjI4F.s9C
0|D?~E"1(CHGPARTINF) |n#
zk4FD?~ZCPYPART |nO,8(
4
j<M
?j
j<#
4
E"|(n?"i"`MM?~#
9CFROMPRJ"FROMGRP"FROMTYPE MFROMPART N}#PXCPYPART |
nJmD?~`MDPm,N{=<B. ?~`MT0|Gk|nDX5#
g{zk4FyP`MD?~,r9CFROMTYPE(*ALL),g{zk4FZ
FROMTYPE N}O8(D`MDyP?~,r9CFROMPART(*ALL)#
g{Zz8(DiPR;=zk4FD?~,r9CSCAN N}#SCAN N}8(g
{Z8(DiPR;=y4FD?~,GqQw1!Qw76TR=y4FD?~#
1!5**YES;b+QwS8(i1=yiD76PDyPi#
zk4(D?~TOPRJ"TOGRP"TOTYPE MTOPART N}Jmz8(y4(D?~Dn?"i"`
MM?~#g{z;ndb)N},r+9CZfrom N}O8(DG){F#g{z
ZFROMTYPE MFROMPART N}O8(K*ALL,rXk9C1!5
TOTYPE(*FROMTYPE) MTOPART(*FROMPART)#
g{-<?~G4I1,rTOTYPE N}XkG4`M#}g,g{-<?~D`M
*RPGSRC(4I1`M*RPG),rIT+|4F=`M*RPGSRC"CSRC r
RPGINC D?~P#
1+4?~4F=m;V4`M1,}g,+RPGSRC4F=CSRC,r_+TXTSRC
4F=CBLSRC 1,&8(J1DoT#}g,g{zZTOTYPE N}O8(
CBLSRC,roTCBL ;8(xC?~;g{zZTOTYPE N}O8(DDSSRC,
r&8(oTDSPF#TZC'(e`M,8(D1!oTGQ-*y4(?~D`M
(eD"4V83rP>DZ;VoT#
g{-<?~;GOS/400 4I1,rBD?~`MXkf"ZkZFROMTYPE N}
O8(D?~`M`,DTs`MP#(PXOS/400 4I1`MM`&D0&CLr*
"\mw1?~`MDPm,N{Z503Dm4#)PXCPYPART |nJmD?~`M
DPm,N{:=<B. ?~`MT0|Gk|nDX5;#CPYPART |n9JmC'
(e`M#
Z5B4(?~45