?~*;:<kAfi4
*<kAfi4w*`M*PNLSRC D?~(xPoTPNLGRP),k4PBP=h:
1. +|,Afi4DI1DI1tT|D*PNLGRP#
2. 9CIMPPART |n<kI1,"ZC|nO8(LANG(*ATTR)#
K=(TZxP`VP'oTDNN?~`M<\PC#
g{Z<kI1.0;P4$Z|DI1tT,rIT4(D|n9CCHGPARTINF
|nT+d10oT*;*Z{DoT#}g,g{z<kDAf4I1DtTG
MENU,"R*4(`M*PNLSRC R_PoTPNLGRP D?~,rIT9C
CHGPARTINF |n+doTSMENU |D*PNLGRP#
*=S&mhCvZLr
vZLrGZ&m0&CLr*"\mw1|n1KP=S&mDLr#r*yP
0&CLr*"\mw1&\<I|n}/,yT\]WMIT*zyhDNN0&
CLr*"\mw1&\hCvZLr#vZLrG#in,ITC4Z&m0&C
Lr*"\mw1|n0sek=S_-#
Y(*TDLTPART |nmS;)nbD&m#zIT`4;vk<89PT>DvZL
r`FDvZLr#
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#
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#
246 &CLr*"\mwC'8O