1!5GBLDOUTLANG(*INPUT);9(}LzIDdv?~DoT+k4(|D?
~DoT`,#g{dv?~;PNNoT,r8(BLDOUTLANG(*NONE),r8
(;{F4j6*8(xdv?~DoT#
v9(}L#fD`kwPmDYQzD~{F
g{`kwzIK`kwPm,RZBLDPART |nO8(KSAVLST N}#
g{TYPE N}ODC'(e`M4f"ZI1P,g{LANG N}O8(DoT
G*NONE,r_,g{C'(e`MG;v|,,rKN};vT#
1!5GSPLFNAME(*INPUT);`kwPmDYQzD~k}Z9(D?~,{#
I8(`kwPmDYQzD~+k9(}LzIDdv?~,{,48(
SPLFNAME(*OUTPUT);zIT8(ZBLDCMD N}O(eD`k|n;a4(P
m,48(SPLFNAME(*NONE);r_,IT8(`kwPmDYQzD~+_PD
{F#(9(}L;lir#f`kwPm#)
|DC'(eoT(CHGADMLANG)9C0|D ADM oT1(CHGADMLANG) |n4|D BLDPART |n&m_Px(
C'(e`MkoTDiOD?~D==#;Pm>G|,DI1r;PTsrI1
DC'(e`M(4,ZADDADMTYPE |nDSYSTYPE N}O8(K*NONE)
EITZBLDCMD N}O(e|n#
19CCHGADMLANG |n4|DVfC'(eoT1,9CIoT(e9(DNN
?~<a''#9(}L6p=oTQ|D,"aZBNTC`MD?~"vBLDPART
|n1YN9(C?~#
zXk_P*ALLOBJ (^E\9CK|n#K5GZ04(C'r*m1
(CRTUSRPRF) |nDSPCAUT N}O8(D#
XhN}
ZTYPE N}O8(C'(e`M#TLANG N}ODoT8(C'(eoTD{F
r*NONE#
I!N}
IT8(BPI!N}:
v9(}L&9CT`k_Pz8(D`MkoTDiOD?~D|n
g{TYPE N}O8(D`MD`MkoTDiOm>f"ZOS/400 TsPD`
M,rKN};vT#
ZBPivB,Xk8(*NONE:
–g{}ZmSDoTG*NONE
–g{ZTYPE N}O8(DC'(e`Mf"ZTsP(x;G9C
ADDADMTYPE |nODSYSTYPE(*NONE) rSYSTYPE(*MBR) (eD)
–g{C'(e`MG;v|,(G9CADDADMTYPE |nODALWINC(*YES)
(eD)
1!5GBLDCMD(*SAME)#9C10D9(|n#1a>CHGADMLANG |n
1,*SAME ;f;*9(|n#
g{8(BLDCMD(*NONE),r;\9(C`MkoTDiO#
I8(C49(C'(e`MMoTD?~D|nV{.#|nV{.n$Io250
vV{#;&Z|nV{.Pdk"M#
112 &CLr*"\mwC'8O