nawCCRTRPGPGM(|GkT0&CLr*"\mw1&\?~tCD),yTI
9CBLDPART 4`kRPT ?~#PXji,kN<Z1183D:mSC'(e`M
RPT->};#
}g,g{zPRPG/38 `kw,zI\k*mSSystem/38 C'(e4I1`M#;
s,I9CCRTPART |n4(C'(e`MD?~#;\ZADDADMLANG |n
DBLDCMD N}O(e9(|n#;\T0&CLr*"\mw1&\?~tC
RPG/38 `kw#I,$4?~D;,f>,+*`kC'(e`MD?~,zXk4P
BPdP;nNq:
v9CADDPRJLIBL |n+b)?~y$tDimSAbPm,;swC8(k*f
"dv*PGM TsDbD`kw#
vZEXPPART |nDSCAN N}O8(*YES,T+*`kD?~<vAb,;s
wC8(*+b)?~<vyAbD{FD`kw#
mSC'(eTs`M9C0mSADM `M1(ADDADMTYPE) |nTmSC'(eTs`M;}g,Ts
`M**CSI D?~`MZCSI#ZSYSTYPE N}O8({FTmSC'(eTs`
M#TZ4\^ZX(b(}gQSYS r#LIBRARY)R;G*FILE DNNOS/400
Ts`M,<ITTd(eC'(e`M#
+CHGADMACN |nkADDADMTYPE |ndO9CT(e;)Yw,0&CLr
*"\mw1&\?~XkCb)Yw49CC'(e`MD?~#
mS4f"ZTsr4D~I1PDC'(e`M9C0mSADM `M1(ADDADMTYPE) |nZ0&CLr*"\mw1n?PmS
4f"ZOS/400 Tsr4D~I1PDC'(e`M#K&\?~azY?v?~,
+5e>m4f"ZK&\?~DXF6'.b#
ZADDADMTYPE |nDSYSTYPE N}O8(*NONE,T8>C'(e`MD?
~;af"Z0&CLr*"\mw1n?DOS/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. 9CADDADMTYPE |nmSC'(e`M#
2. 9CADDADMLANG |n(e;VoT,Tc\4(M9(_PC'(e`MD
?~#
3. (e0&CLr*"\mw1&\?~h*C4&m_PC'(e`MD?~DY
w#*K,9CCHGADMACN |n#P1I\;h*9CCHGADMACN|n#
g{`M"ZQP?~`M(}g,I1M}]x)DTsP,rADDADMTYPE
|na$nkYw#
106 &CLr*"\mwC'8O