x({FM`MD?~vI4F=P;,P`,{FM`MD?~DiP#g{Z
zXkT,y4F?~Di_PArBCJ(,RTSU1>Di_PBCJ (#
Z4F?~.s,;alv=C'r*mP#
g{zkDy4F?~DtT(gC?~DoTrD>),rZjI4F.s9C 0D?~E"1(CHGPARTINF) n#
zk4FD?~
ZCPYPART nO,8(4j<M?jj<#4 E"(n?"i"`MM?~#
9C FROMPRJ"FROMGRP"FROMTYPE M FROMPART N}#PX CPYPART nJmD?~`MDPm,N{=<B. ?~`MT0GknDX5#
g{zk4FyP`MD?~,r9C F R O M T Y P E ( * A L L ) ,g{zk4FZ FROMTYPE N}O8(D`MDyP?~,r9C FROMPART(*ALL)#
g{Zz8(DiPR;=zk4FD?~,r9C SCAN N}#SCAN N}8(g {Z8(DiPR;=y4FD?~,GqQw1!Qw76TR=y4FD?~# 1!5* *YES;b+QwS8(i1=yiD76PDyPi#
zk4(D?~
TOPRJ"TOGRP"TOTYPE M TOPART N}Jmz8(y4(D?~Dn?"i"` MM?~#g{z;ndb)N},r+9CZ from N}O8(DG){F#g{z
ZF R O M T Y P E M F R O M P A R T N}O8(K * A L L ,rXk9C1!5
TOTYPE(*FROMTYPE) M TOPART(*FROMPART)#
*RPGSRC(4I1`M* RPG),rIT+4F=`M* RPGSRC"CSRC r RPGINC D?~P#
1+4?~4F=m;V4`M1,}g,+ RPGSRC 4F= CSRC,r_+ TXTSRC 4F= CBLSRC 1,&8(J1DoT#}g,g{zZ TOTYPE N}O8( CBLSRC,roT CBL ;8(xC?~;g{zZ TOTYPE N}O8( DDSSRC, r&8(oT
Z5B 4(?~ 45