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_PArBCJ(,RTSU1>Di_PBCJ (#

Z4F?~.s,;alv=C'r*mP#

1z4F_-D~?~1,XkWH4FyyZDomD~,r_ComD~Xk ZSUiPQfZ#g{z}Z4FomD~,rZ DATA N}O8(zGq9k4 FomD~PD}]#

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)#

g{-<?~G4I1,r TOTYPE 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,+ 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 DSPF#TZC'(e`M,8(D1!oTGQ-*y4(?~D`M (eD"4V83rP>DZ;VoT#

g{-<?~;G OS/400 4I1,rBD?~`MXkf"ZkZ FROMTYPE N} O8(D?~`M`,DTs`MP#(PX OS/400 4I1`MM`&D0&CLr* "\mw1?~`MDPm,N{Z503Dm4#)PX CPYPART nJmD?~`M DPm,N{:=<B. ?~`MT0GknDX5;#CPYPART n9JmC' (e`M#

Z5B 4(?~ 45

Page 57
Image 57
IBM SB84-0449-00 manual Zk4FD?~, Zk4D?~, Totype*Fromtype M Topart*Frompart#