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
D BLDCMD N}O(e9(|n#;\T0&CLr*"\mw1&\?~tC
RPG/38 `kw#I,$4?~D;,f>,+*`kC'(e`MD?~,zXk4P
BPdP;nNq:
v 9C ADDPRJLIBL |n+b)?~y$tDimSAbPm,;swC8(k*f
"dv *PGM TsDbD`kw#
v Z 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#
Z ADDADMTYPE |nD SYSTYPE N}O8( *NONE,T8>C'(e`MD?
~;af"Z0&CLr*"\mw1n?D OS/400 Tsr4D~I1P#
g{Z9CzkzI$_,zI\a k*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