1!5G BLDOUTLANG(*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,RZ BLDPART nO8(K SAVLST N}#

g{ TYPE N}ODC'(e`M4f"ZI1P,g{ LANG N}O8(DoT G *NONE,r_,g{C'(e`MG;v,,rKN};vT#

1!5G SPLFNAME(*INPUT);`kwPmDYQzD~k}Z9(D?~,{# I8(`kwPmDYQzD~+k9(}LzIDdv?~,{,48( SPLFNAME(*OUTPUT);zIT8(Z BLDCMD N}O(eD`kn;a4(P m,48( SPLFNAME(*NONE);r_,IT8(`kwPmDYQzD~+_PD {F#(9(}L;lir#f`kwPm#)

DC'(eoT (CHGADMLANG)

9C0D ADM oT1(CHGADMLANG) n4D BLDPART n&m_Px( C'(e`MkoTDiOD?~D==#;Pm>G,DI1r;PTsrI1 DC'(e`M(4,Z ADDADMTYPE nD SYSTYPE N}O8(K *NONE) EITZ BLDCMD N}O(en#

19C CHGADMLANG n4DVfC'(eoT1,9CIoT(e9(DNN ?~<a''#9(}L6p=oTQD,"aZBNTC`MD?~"v BLDPART n1YN9(C?~#

zXk_P * A L L O B J (^E\9CKn#K5GZ04(C'r*m1 (CRTUSRPRF) nD SPCAUT N}O8(D#

XhN}

ZTYPE N}O8(C'(e`M#T LANG N}ODoT8(C'(eoTD{F

r*NONE#

I!N}

IT8(BPI!N}:

v9(}L&9CT`k_Pz8(D`MkoTDiOD?~Dn

g{ TYPE N}O8(D`MD`MkoTDiOm>f"Z OS/400 TsPD` M,rKN};vT#

ZBPivB,Xk8( *NONE:

g{}ZmSDoTG *NONE

g{Z T Y P E N}O8(DC'(e`Mf"ZTsP(x;G9C

ADDADMTYPE nOD SYSTYPE(*NONE) r SYSTYPE(*MBR) (eD)

g{C'(e`MG;v,(G9C ADDADMTYPE nOD ALWINC(*YES) (eD)

1!5G BLDCMD(*SAME)#9C10D9(n#1a> CHGADMLANG n 1,*SAME ;f;*9(n#

g{8( BLDCMD(*NONE),r;\9(C`MkoTDiO#

I8(C49(C'(e`MMoTD?~DnV{.#nV{.n$Io 250 vV{#;&ZnV{.Pdk"M#

112&CLr*"\mwC'8O

Page 124
Image 124
IBM SB84-0449-00 manual DCeoT Chgadmlang, Type NO8Ce`M#T Lang NODoT8CeoTDF NONE#