IBM SB84-0449-00 Ce`ME Prtadmtype, Prtadmtype Typezpassrc OUTPUT*PRINT, FYQzAKw5Dr!h8#38Tyf#

r!C'(e`ME" (PRTADMTYPE)

9C0r! ADM `M1(PRTADMTYPE) nTKP(f,K(fPvT0&CLr

*"\mw1&\?~(eDNNryPC'(e`M#K(f439C ADDADMTYPE nmSC'(e`M1!qDyPN}5,TC`M(eDYw} b#9C CHGADMACN n4(eb)5#i4<38Tq!y>(f#

XhN}

8(k*r!dE"D?~`M#TYPE(*ALL) ar!yPC'(e`MDE"#I8 (X(?~`MD{F#

I!N}

9C OUTPUT N}8>&dvyAD;C#1!5* OUTPUT(*PRINT)#(faYQ zAKw5Dr!h8#OUTPUT(*OUTFILE) a+dv}<AdvD~#

dvD~DG<q=kb QADM PD53a)D}]bD~ QALYPTYP P9CDG <q=`,#

>}: I(}8(`FgBDn+dv}<AdvD~#

PRTADMTYPE TYPE(ZPASSRC) OUTPUT(*OUTFILE) OUTFILE(*LIBL/FILE1) OUTMBR(*FIRST *ADD)

bPmC47(*f"dvD~ FILE1 D;C#FILE1 PDZ;vI1SUdv," +dv}]mSAVfG<#

			>}:	TBnr!PX`M PASSRC DC'(e`ME"#
			PRTADMTYPE TYPE(ZPASSRC) OUTPUT(*PRINT)
			(f;YQzAKw5Dr!h8#<38T>y>(f#
5722WDS	V5R1M0	&CLr*"\mw - r! ADM `M
05/08/01	15:30:21	3f	. . :	0001
`M . . .	. . . . . . .	. .	. . :	ZPASSRC
53`M .	. . . . . . . . .		. . :	*MBR
1!4D~	. . . . . . . . .		. . :	QTXTSRC
1!G<$H			. . :	00092
GqJm(`M			. . :	q
(?~`M			. . :	*NONE
*CRT n.	. . . . . . . . .		. . :	QSYS/ADDPFM FILE(&L/&F) MBR(&ZN)
*DLT n.	. . . . . . . . .		. . :	QSYS/RMVM FILE(&L/&F) MBR(&ZN)
*MOV n.	. . . . . . . . .		. . :	*NONE
*CPY n.				.
	. . . . . . . . .		. . :	QSYS/CPYF FROMFILE(&L/&F) TOFILE(&ZI/&ZF) FROMMBR(&ZN) TOMBR(&ZJ) CRTFILE(*YES) MBROPT(*RE
*CHG n.				PLACE) FMTOPT(*MAP)
	. . . . . . . . .		. . :	QSYS/STRSEU SRCFILE(&L/&F) SRCMBR(&ZN) OPTION(2)
*DSP n.	. . . . . . . . .		. . :	QSYS/STRSEU SRCFILE(&L/&F) SRCMBR(&ZN) OPTION(5)
*PRT n.	. . . . . . . . .		. . :	QSYS/STRSEU SRCFILE(&L/&F) SRCMBR(&ZN) OPTION(6)

<38. r! ADM `M(fy>

TBPmhv0r! ADM `M1(fPDE":

ZADDADMTYPE nD TYPE N}O8(DC'(e`M#

ZADDADMTYPE nD SYSTYPE N}O8(D53`M#

Z10B &mC'(e`M 109