Filter
Top Products
?~*;:<kAfi4
*<kAfi4w*`M* PNLSRC D?~(xPoT PNLGRP),k4PBP=h:
1. +|,Afi4DI1DI1tT|D* PNLGRP#
2. 9C IMPPART |n<kI1,"ZC|nO8( LANG(*ATTR)#
K=(TZxP`VP'oTDNN?~`M<\PC#
g{Z<kI1.0;P4$Z|DI1tT,rIT4(D|n9C 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*"\mw1|n1KP=S&mDLr#r*yP
0&CLr*"\mw1&\<I|n} /,yT\]WMIT*zyhDNN0&
CLr*"\mw1&\hCvZL r#vZLrG#in,ITC4Z&m0&C
Lr*"\mw1|n0sek=S_-#
Y(*T DLTPART |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