3.9C CHGADMACN n4(e0&CLr*"\mw1&\?~h*C49C_ PC'(e`MD?~DYw#ITZnV{.P9Cf;d?#Z2273D :=<D. f;d?;hvKyPf;d?#
** CSI ?~`M(e4(Yw,8(TBZ]#
CHGADMACN TYPE(ZCSI) ACTION(*CRT) CMD('QSYS/CRTCSI CSI(&L/&ZN)')
** CSI ?~`M(e>}Yw,8(TBZ]#
CHGADMACN TYPE(ZCSI) ACTION(*DLT) CMD('QSYS/DLTCSI CSI(&L/&ZN)')
** CSI ?~`M(eF/Yw,8(TBZ]#
CHGADMACN TYPE(ZCSI) ACTION(*MOV) CMD('QSYS/MOVOBJ OBJ(&L/&ZN) OBJTYPE(*CSI) TOLIB(&ZI)')
** CSI ?~`M(e4FYw,8(TBZ]#
CHGADMACN TYPE(ZCSI) ACTION(*CPY) CMD('QSYS/CRTDUPOBJ OBJ(&ZN) FROMLIB(&L) OBJTYPE(*CSI) TOLIB(&ZI) NEWOBJ(&ZJ)')
** CSI ?~`M(eDYw,8(TBZ]#
CHGADMACN TYPE(ZCSI) ACTION(*CHG) CMD('QSYS/CHGCSI CSI(&L/&ZN)')
** CSI ?~`M(eT>Yw,8(TBZ]#
CHGADMACN TYPE(ZCSI) ACTION(*DSP) CMD('QSYS/DSPCSI CSI(&L/&ZN)')
** CSI ?~`M(er!Yw,8(TBZ]#
CHGADMACN TYPE(ZCSI) ACTION(*PRT) CMD('QSYS/DSPCSI CSI(&L/&ZN) OUTPUT(*PRINT)')
mSC'(e`M ZPASSRC->}
BP=hT>gNmSC'(e`M ZPASSRC#K>}Y(C'PQT0&CLr* "\mw1&\?~tCD PASCAL `kw:
1.9C ADDADMTYPE n4mSC'(e`M#
*(e*f"Z OS/400 4D~I1PD`M ZPASSRC,8(TBZ]#
ADDADMTYPE TYPE(ZPASSRC) SYSTYPE(*MBR)
2.9C ADDADMLANG n4*C'(e`M8(oT,TcI9(C?~# *+oTmSAC'(e`M,8(TBZ]#
ADDADMLANG TYPE(ZPASSRC) LANG(PAS) BLDCMD('CRTPASPGM PGM(&L/&ZN) SRCFILE(&L/&F) SRCMBR(&ZN)') BLDOUTTYPE(PGM) BLDOUTLANG(*INPUT) SPLFNAME(*INPUT)
3.9C CHGADMACN n4(e0&CLr*"\mw1&\?~h*C49CC '(e`MD?~DYw#ITZ CMD N}O(eDnV{.P9Cf;d?# Z2273D:=<D. f;d?;hvKyPf;d?,"8> CMD N}OJm9 CD)f;d?#
K>}9CI1`M ZPASSRC#CHGADMACN nD CMD N}PQ$Hnk KYwn#BfD>}T>K53a)D$HnkDYw#zI\kDb)$ HnkDYwT{OzT:Dh*#
** ZPASSRC ?~`M(e4(Yw,8(TBZ]#
Z10B &mC'(e`M 117
