a}xPa}k*NONE D?~1,BPfrJC:
vg{*a}ADiPQ-fZa}k;,Z*NONED,;?~,r;\a}xPa
}k*NONE D?~#
vyP`XomD~M_-D~Xk;Z,;iP#omD~kdX*D_-D~;
(*EZ,;iP#
vZa}C?~.s,C?~Da}kT**NONE#n?\m1rTC?~;a}A
Di_P*UPDATE CJ(DNNC'<&TyP?~KPBLDPART |nT7#
|G<GnBD#G)Q-GnBD?~;axP`k#
a}?~Pm?~g{}Za}?~Pm?~,rPRMPART |nJmz8(a}|D==#PRMPART
|naTTB==&m?~Pm?~:
1. 1!Qw76C4Qw?~Pm?~#g{4R=?~Pm?~,rPRMPART |
n'\#g{8(KPARTLOPT(*PART),r8(iPXkfZPARTL ?~#
2. g{ZPRMPART |nO8(PARTLOPT(*LIST),raa}?~Pm?~PD?
v?~#g{8(PARTLOPT(*PART),rasa}NNd{?~;ya}?~P
m?~#g{8(PARTLOPT(*BOTH),r?~Pm?~0dZ?PvD?~<a
;a}#9IZPRMPART |nO8(`t?~{#PXji,N{Z8B?~P
m?~"-rXFM|DzY#
g{}ZKPD|nl#ax,rI\G4&mdPD3)?~#*7#yPD?~
<C=&m,&i4yPms{""YNKPC|n(g{X*D0)#
>}
TB|n+?~Pm?~PART001 SiDEVELOPER1 a}An?cNa9PDB;
vi,4iTEST:
PRMPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(PARTL) PART(PART001) PARTLOPT(*LIST)
a}k>Zhva}k(PRMCODE) N},|JCZ
CHKOUTPART"CPYPART"CRTPART"IMPPART MRNMPART |n#n?\m1
aZ4(X(i1(e|Da}k#
(#,Z9C?~1;9C;va}k#+G,n?\m1I\(eK8va}7
6,rK,;vn?cNa9ZI\P8va}k#g{zDi/Z|B,;&CL
rDm;f>1Xk,$dVff>,rI\avVbViv#i4Z193D:;v
?~D=vf>;Tq!bVivD>}#
PRMCODE N}8(*C47(n?cNa9P?~Da}76Da}k#I8(=v
5#
*GRP a+ZGRP N}(CPYPART |nDTOGRP N})OTi8(Da
}k8(xC?~#
g{TCHKOUTPART"CPYPART rIMPPART |n8(K*GRP,
R?~D?~`M*
PGM"FILE"CLD"CMD"MENU"PNLGRP"MODULE"SRVPGM,
76 &CLr*"\mwC'8O