nawC CRTRPGPGM(GkT0&CLr*"\mw1&\?~tCD),yTI 9C BLDPART 4`k RPT ?~#PXji,kN<Z1183D:mSC'(e`M RPT->};#

}g,g{zP RPG/38 `kw,zI\k*mS System/38 C'(e4I1`M#; s,I9C CRTPART n4(C'(e`MD?~#;\Z ADDADMLANG n

DBLDCMD N}O(e9(n#;\T0&CLr*"\mw1&\?~tC RPG/38 `kw#I,$4?~D;,f>,+*`kC'(e`MD?~,zXk4P BPdP;nNq:

v9C ADDPRJLIBL n+b)?~y$tDimSAbPm,;swC8(k*f "dv *PGM TsDbD`kw#

vZ EXPPART nD SCAN N}O8( *YES,T+*`kD?~<vAb,;s wC8(*+b)?~<vyAbD{FD`kw#

mSC'(eTs`M

9C0mS ADM `M1(ADDADMTYPE) nTmSC'(eTs`M;}g,Ts `M* *CSI D?~`M ZCSI#Z SYSTYPE N}O8({FTmSC'(eTs` M#TZ4\^ZX(b(}g QSYS r #LIBRARY)R;G *FILE DNN OS/400 Ts`M,<ITTd(eC'(e`M#

+CHGADMACN nk ADDADMTYPE ndO9CT(e;)Yw,0&CLr *"\mw1&\?~XkCb)Yw49CC'(e`MD?~#

mS4f"ZTsr4D~I1PDC'(e`M

9C0mS ADM `M1(ADDADMTYPE) nZ0&CLr*"\mw1n?PmS 4f"Z OS/400 Tsr4D~I1PDC'(e`M#K&\?~azY?v?~, +5e>m4f"ZK&\?~DXF6'.b#

ZADDADMTYPE nD SYSTYPE N}O8( *NONE,T8>C'(e`MD? ~;af"Z0&CLr*"\mw1n?D OS/400 Tsr4D~I1P#

g{Z9CzkzI$_,zI\ak*mSbVC'(e`M#I4(C4f"4 zkDC'(e`M#`k4zk1,I\a4(;vr`vI1#b)I1+T& 53a)DrC'(eD?~`M#

mSC'(e`M-y>=h

*mSC'(e`M,h*q-}v=h:

1.9C ADDADMTYPE nmSC'(e`M#

2.9C ADDADMLANG n(e;VoT,Tc\4(M9(_PC'(e`MD ?~#

3.(e0&CLr*"\mw1&\?~h*C4&m_PC'(e`MD?~DY w#*K,9C CHGADMACN n#P1I\;h*9C CHGADMACN n# g{`M"ZQP?~`M(}g,I1M}]x)DTsP,r ADDADMTYPE na$nkYw#

106&CLr*"\mwC'8O

Page 118
Image 118
IBM SB84-0449-00 manual MSCeTs`M, MS4fZTsr4D~I1PDCe`M, MSCe`M-y=h