IBM SB84-0449-00 manual ?~*kAfi4, =S&mhCvZLr

?~*;:<kAfi4

*<kAfi4w*`M* PNLSRC D?~(xPoT PNLGRP),k4PBP=h:

1.+,Afi4DI1DI1tTD* PNLGRP#

2.9C IMPPART n<kI1,"ZCnO8( LANG(*ATTR)#

K=(TZxP`VP'oTDNN?~`M<\PC#

g{Z<kI1.0;P4$ZDI1tT,rIT4(Dn9C CHGPARTINF nT+d10oT*;*Z{DoT#}g,g{z<kDAf4I1DtTG MENU,"R*4(`M* PNLSRC R_PoT PNLGRP D?~,rIT9C

CHGPARTINF n+doTS MENU D* PNLGRP#

*=S&mhCvZLr

vZLrGZ&m0&CLr*"\mw1n1KP=S&mDLr#r*yP 0&CLr*"\mw1&\<In}/,yT\]WMIT*zyhDNN0& CLr*"\mw1&\hCvZLr#vZLrG#in,ITC4Z&m0&C Lr*"\mw1n0sek=S_-#

Y(*T DLTPART nmS;)nbD&m#zIT`4;vk<89PT>DvZL r`FDvZLr#

PGM	PARM(&CMD &PRJ &GRP &TYPE &PART &PARTL +
	&DLTARCHIVE)
DCL	VAR(&CMD) TYPE(*CHAR) LEN(2)
DCL	VAR(&PRJ) TYPE(*CHAR) LEN(32)
DCL	VAR(&GRP) TYPE(*CHAR) LEN(32)
DCL	VAR(&TYPE) TYPE(*CHAR) LEN(10)
DCL	VAR(&PART) TYPE(*CHAR) LEN(10)
DCL	VAR(&PARTL) TYPE(*CHAR) LEN(10)
DCL	VAR(&DLTARCHIVE) TYPE(*CHAR) LEN(4)
/* Insert Preprocessing Logic Here */
QSYS/DLTPART PRJ(&PRJ) GRP(&GRP) TYPE(&TYPE) +
	PART(&PART) PARTL(&PARTL) +
	DLTARCHIVE(&DLTARCHIVE)
MONMSG	MSGID(ADM0000) EXEC(SNDPGMMSG MSGID(ADM9003)	+
	MSGF(QADM/QADMMSG))

/* Insert Postprocessing Logic Here */

ENDPGM

<89. DLTPART nDy>vZLr#

TOvZLrP44PNNnb&m#;x,z\]WMITZ8>D;C&ekn bDod#

g{zh*q!0&CLr*"\mw1?~D>z{,rIZvZLrP9C0l w?~E"1(RTVPARTINF) n4lwKE"#RTVPARTINF nZ;,DN}P 5Xb"D~MI15#

246&CLr*"\mwC'8O