I!N}
IT8(BPI!N}:
v9(}L&9CT`k_Pz8(D`MkoTDiOD?~D|n#
1!5GBLDCMD(*NONE)#bm>;\9CBLDPART |n49(?~`MMo
T#
ZBPivP,XkZBLDCMD N}O8(*NONE:
g{}ZmSDoTG*NONE
g{TYPE N}O8(DC'(e`Mf"ZTsP(4,g{Z
ADDADMTYPE |nDSYSTYPE N}O8(KOS/400 Ts`MD{F)
g{C'(e`MG;v|,(G9CADDADMTYPE |nODALWINC(*YES)
(eD)
g{C'(e`MG*MBR rSYSTYPE *NONE,rIT8(*C49(C'(e
`MMoTD?~D|nV{.#|nV{.n$Io250 vV{#;&Z|nV{
.Pdk"M#;\a>BLDCMD N}#g{z(eD`k|n4f;9(}LD
Vfdv?~,rBLDPART |nZ"T9(BLDPART |nO8(DC'(e`
MD?~1,|a'\#
ITZ|nV{.P9Cf;d?#Z"v|n.0,|Ga;f;*5JD5#
TCHGADMACN |nDCMD N}P'DyPf;d?2<TKN}P'#Z22
73D:=<D. f;d?;hvKyPf;d?,"8>BLDCMDN}OJmD)
f;d?#
Z3)ivB,0&CLr*"\mw1&\?~;\7(CZf;f;d?DE
"#}g,g{}Z(eDYw*>}Yw,r&ZH f;d?;\;f;*}ZF
/r4FD?~D{F#K1,9Cf;d?&ZH ;PNNbe#g{}Z9C
BLDCMD N},r&ZH f;d?;\;f;*(h5#ZbVivB,g{;P
XhDE"IC,r;abvKd?#
>}
:K>}Y(z9CDG{*ZRPG DC'(eRPG `kw,RC`kw4A
System API Programming PhvD0&CLr*"\mwAPI1#
TB|nT>KADDADMLANG |nDBLDCMD N}O(eDCRTZRPGPGM `
k|nD>}#
0ADDADMLANG TYPE(ZRPGSRC) LANG(ZRPG) BLDCMD('CRTZRPGPGM PGM(&L/&ZN)
SRCFILE(&L/&F) SRCMBR(&ZN)') BLDOUTTYPE(PGM) BLDOUTLANG(*INPUT)
SPLFNAME(*INPUT)
v9(}LzIDdvTsD?~`M
g{`MG;v|,"f"ZOS/400 TsPD`Mr4ZTYPE N}O8(`X
*TsrI1DC'(e`M,rKN};vT#g{ZLANG MBLDCMD N}
O8(K*NONE,r;JmKN}#1!5GBLDOUTTYPE(*NONE)#bm>;
a4(NNdv?~#
Z9(8(`MMoTD?~1,ITT9(}LzID*PGM dvTs8({F#
v9(}LzIDdvDoT
g{`MG;v|,"f"ZOS/400 TsPD`Mr4ZTYPE N}O8(`X
*TsrI1DC'(e`M,rKN};vT#g{ZLANG MBLDCMD N}
O8(K*NONE,r;JmKN}#
Z10B&mC'(e`M111