IBM SB84-0449-00 User Manual

򔻐򗗠򙳰

iSeries

WebSphere

f>

5

SB84-0449-00

®

*"$wR:&CLr*"\mwC'8O

򔻐򗗠򙳰

iSeries

WebSphere

f>

5

SB84-0449-00

®

*"$wR:&CLr*"\mwC'8O

"b!

9C>JOM|'VDz7.0,kqXDAZ2513D:"bBn;BD;cE"#

Z 3 f(2001 j 5 B)

®

Kf>JCZ IBM

WebSphere®Development Studio iSeries f(Lr 5722–WDS)Df> 5 "Pf 1 ^)f 0"0&

CLr*"\mw1 i~,T0yPsx"PfM^)f,}GBf>mP8># >f>vJCZ0+r8n/Fc

z1(RISC) 53#
Kf>f; SC09-2133-01#

(}1XD IBM

®

zmr IBM V?4):vfo#vfo4fEZBfx(DX7&#
IBM 6-zavb{#IT+zDb{Dy:
IBM Canada Ltd. Laboratory

Information Development
2G/KB7/1150/TOR
1150 Eglinton Avenue East
North York, Ontario, Canada M3C 1H7

2IT(}+f("b:RCF Coordinator)r_TgSN=r IBM +>avb{#PX"mb{=(Dhv,N{:g

N"mb{;#
1zr IBM "ME"1,MZhK IBM +>G(P(,IBM IT|O*J1DNN==49CrV"b)E",x;

Xrz:NNpN#

© Copyright International Business Machines Corporation 1992, 2001. All rights reserved.

?<

XZ>i ..............vii

-&9C>i ..............vii

Hvu~M`XE" ...........vii

||

gN"MzDb{ ............viii

||

y>n? ...............viii

(e .................ix

q!*zE" ..............ix

Z1B &CLr*"\mw&\?~i\ ..1

n?\mDEv .............1

n?\m1DG+............1

?~*"DEv .............3

&CLr*"_DG+ ..........3

&CLr*"73.............4

&CLr*"D$_ ............4

9C&CLr*"$_d5CLr ......4

9C&CLrVd~q&\?~ .......5

9C0WebSphere *"$_1z7 ......5

9C CODE/400 $_ ..........5

9C VisualAge RPG $w>$_.......6

Z2B 9Cn? ............7

4(n? (CRTPRJ) ............7

>} ................8

9Cn?................8

T>yPn? (QRYPRJ) .........8

|Dn? (CHGPRJ) ...........9

r!XZn?DE" (PRTPRJ) .......9

>}n? (DLTPRJ) ...........11

Z3B 9Cn?cNa9PDi .....13

4(i (CRTGRP) ............14

n?iMbPm ............14

4(n?cNa9 ...........14

*n?cNa9(e;va}k .......16

9ln?cNa9 ...........18

*ihC(* .............20

9Ci ................22

|Di (CHGGRP) ...........22

>}i (DLTGRP) ...........25

Zn?cNa9PGGC' .........26

GG*"_Mn?\m1 (ADDPRJUSR) ....26

9Cn?C'|n ...........27

4(y>n?cNa9 ...........30

Z4B ?~*"i\ .........33

P>n?Mi{T0zDCJ( ........33

i4?~Pm (QRYPART) .........33

XhN} ..............33

I!N} ..............34

T>Mr!?~ (DSPPART) .........36

>} ................36

Z5B 4(?~ ...........39

?~`M ...............39

4(B?~ (CRTPART) ..........41

XhN} ..............41

I!N} ..............42

4F?~ (CPYPART) ...........44

zk4FD?~ ............45

zk4(D?~ ............45

Z6B <k&CLr .........49

<k=n?cNa9P ...........49

zk<kDD~rTs ..........50

k*4(D?~ ............54

<k;v?~D=8 ...........57

<ky>&CLr ............57

Z7B 9C?~ ...........61

lv?~ (CHKOUTPART) .........61

XhN} ..............62

I!N} ..............62

}]2+TMj{T ..........63

|D?~ (CHGPART) ...........64

XhN} ..............65

I!N} ..............65

*;?~D`MMoT (CVTPART) ......67

fr ................68

^F ................68

>} ................68

HO?~ (CMPPART) ...........69

XhN} ..............69

I!N} ..............70

O"?~ (MRGPART) ...........70

XhN} ..............71

I!N} ..............71

O"y>&CLr ...........72

lk?~ (CHKINPART) ..........73

XhN} ..............74

a}?~ (PRMPART) ...........74

XhN} ..............74

I!N} ..............74

a}I9(}L4(Ddv?~ .......75

a}?~Pm?~ ...........76

a}k ................76

9C CHKOUTPART"CHKINPART M PRMPART

|n .................77

X|{?~ (RNMPART) ..........79

XhN} ..............79

I!N} ..............79

>}?~ (DLTPART) ...........80

© Copyright IBM Corp. 1992, 2001 iii

XhN} ..............80

I!N} ..............80

M;x(gN|D ...........81

n?\m1I$ ............82

i5?~ ...............82

?~DX*E" .............83

|D?~E" (CHGPARTINF) .......83

r!?~E" (PRTPARTINF) .......85

lw?~E" (RTVPARTINF) .......87

Z8B ?~Pm?~"-rXFM|DzY 91

4(?~Pm?~ ............91

>} ................91

|D?~Pm?~ ............92

T>?~Pm?~ ............94

r!?~Pm?~ ............94

zYJb ...............94

|D PARTL N}1!5 ..........95

Z9B 9CQw76 .........97

KbQw76 ..............97

i0dkbPmDX5 ...........99

4(Qw76?~ ............99

4(;fn?Qw76 .........101

4(b?Qw76 ............102

gN&mQw76?~ ..........103

ZQw76?~P8(ix;Pv|G .....103

>} ...............103

>} ...............104

Z10B &mC'(e`M.......105

KbC'(e`M ............105

mSC'(e4I1`M (ADDADMTYPE) . . 105

mSC'(eTs`M .........106

mS4f"ZTsr4D~I1PDC'(e`M 106

mSC'(e`M-y>=h ........106

9CC'(e`M ............107

mSC'(e`M (ADDADMTYPE) .....107

}%C'(e`M (RMVADMTYPE) .....108

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

9CC'(eoT ............110

rC'(e`MmSoT (ADDADMLANG) . . 110

|DC'(eoT (CHGADMLANG).....112

}%C'(eoT (RMVADMLANG) ....113

r!C'(eoTE" (PRTADMLANG) . . . 113
(e*dOC'(e`M9CDYw

(CHGADMACN) ............115

XhN} ..............115

I!N} ..............116

mS RJE Ts`M *CSI->} .......116

mSC'(e`M ZPASSRC->} ......117

mSC'(e`M RPT->} ........118

Z11B 9(&CLr ........119

Kb?~X5 .............119

BLDPART |nwCD`kwM$&mw ....122

BLDPART |ngN7(N1`k?~ .....123

hC9(73 .............123

#f}] ..............123

(" BLDPART <r ..........123

>} ...............124

Z;N9( ..............124

?N9(.s ............126

9(}LgNQw?~ ..........126

9C9(?~|n ............127

>} ...............128

hC9(6' ............129

7(Gq9(yP?~ .........134

7(9(== ............134

#f9((fM`kwPm ........135

s(Lr ..............137

+?~mSA?~Pm?~ ........137

9(OY?~ .............137

9C9(!n .............138

Z4(`M* BLDOPT D?~.0h*<GDB

n ................138

4(9(!n?~ ...........138

+ BLDOPT ?~CZ CODE/400 ......144

gN&m`M* BLDOPT D?~ ......144

n?cNa9PP`v9(!n?~ .....145

CZomM_-D~DXb9(!n|n ...147

CZX(?~`MDXb9(&m.......148

9C?~Pm?~9(?~ ........148

9(omM_-D~ ..........148

#fomD~}] ...........148

`M* MODULE D?~M9(}L .....148

`M* CSRC"CINC M PGM RoT* C M

SQLC D?~M9(}L.........149

`M* MENU D?~M9(}L ......149

DB2 OS/400 f?~M9(}L ......149

T?;v}Z`kD?~T>D{" ......150

9(y>&CLr ............150

9(}LMC'(e`M..........152

7#9(}LKb?~.dDX5......152

9(4f"ZTsrI1PD?~......152

9(f"Z4D~I1PD?~ ......153

+9(!n?~kC'(e`MdO9C ...153

(FD|,D~M BLDPART |n .....154

Z12B bTMKP&CLr ......155

TbT_(exPiDn?cNa9 ......155

_PACJ(DbT_ .........155

_P|BCJ(DbT_.........155

Zn?cNa9PbT?~r&CLr .....157

+n?bmSAbPm .........157

+b?bmSAbPm .........159

SbPmP}%n?b .........160

Z13B <v&CLr ........161

<v&CLrTT|xPbT ........161

9C<v?~|n ............161

*<vD?~ ............162

iv &CLr*"\mwC'8O

*4(DTsrD~ ..........163

f?~;p<v}] ..........164

<v?~1XhDZ( .........164

<v?~Pm?~ ...........165

9C53Pm?~<v ..........165

<vMb0&CLr ...........166

4(z7(eMz70k?~ .......166

4(?~Pm?~T|,*b0D?~ ....167

*b0&CLrx<v?~Pm?~ .....167

Z14B +&CLrV<A6L53 ...169

V<SULr .............169

;x&CLr*"\mwD1053 .....169

||

xPr;x&CLr*"\mwD053 ...170

9(0"Pf&CLr ..........171

4(53Pm?~ ............172

>} ...............172

+&CLrV<A6L53 .........172

S6L53SUTs (RCVPART) .......173

xP&CLr*"\mwD10"Pf53...173

;x&CLr*"\mwD10"Pf53...173

;x&CLr*"\mwD0"Pf53 ...173

xP&CLr*"\mwD0"Pf53 ...174

NNd{ iSeries 400 53 ........174

^F ...............174

Z15B #$&CLr*"\mwE" 175

&CLr*"\mw&\?~PD2+T ....175

d{n?2+T"bBn.........176

8]MV4&CLr*"\mwE" ......176

8]MV4_T............176

S|n&mJOV4 ..........179

+E"4FAm;v AS/400 53......180

9Cn?G< .............181

r!n?G<E" (PRTPRJLOG) ......181

ZC'k*n?1xPV4 .........184

P>*"iPD?~ ..........184

>};\a}D?~ ..........184

}%n?C' (RMVPRJUSR) .......185

>}i (DLTGRP) ...........185

9CU>xPsFzY .........186

w**"_D\m1D"bBn .......186

Z16B 9C`L*"\mw5CLr 187

`L*"\mw5CLrEv ........187

kE ................187

8(n? ...............188

8(i................190

9C?~ ...............192

C PDM 49C?~ ..........194

C PDM 49C?~PmPD?~ ......197

*"?~ ...............198

lv?~ ..............199

|D?~ ..............199

4F?~ ..............200

X|{?~ .............200

*;?~ ..............200

HO?~ ..............201

O"?~ ..............201

>}?~ ..............201

9(?~ ..............202

bT?~ ..............202

lk?~ ..............202

a}?~ ..............202

Z?~PiRV{. ..........202

9Ci5I1 .............203

|Da01!5.............204

C'(e!n .............206

4(C'(e!n ...........206

9CC'(e!n ...........208

Z17B 9C VisualAge RPG ?~ . . 209

<k VisualAge RPG ?~ .........209

<v VisualAge RPG ?~ .........210

9( VisualAge RPG ?~ .........210

VisualAge RPG ?~*" .........210

Z18B 9C System/36 M System/38

&CLr..............211

9C System/36 &CLr .........211

9( System/36 &CLr .........212

System/38 &CLrD"bBn........212

=<A. &CLr*"\mwXFoT|n 213
=<B. ?~`MT0|Gk|nDX5 215

=<C. |{fr ..........223

n?Mi{ ..............223

?~{................224

C'(e`M{.............224

a}k{F ..............225

=<D. f;d? ..........227

=<E. 9((f{".........239

-r{" ...............239

/f{" ...............240

Xb/f{" ............240

=<F. `oT'V..........241

`oTn?cNa9 ...........241

Yh ...............241

n?cNa9gN$w .........241

=<G. a>k<I .........245

T\Dx ...............245

DxT\ ..............245

Dx WRKPARTPDM M?~|nT\ ....245

?~*;:<kAfi4..........246

*=S&mhCvZLr..........246

d{a>k<I.............247

?< v

9C;,$HD4D~ .........247

LjM~qjG.............252

DW?<..............249

"bBn..............251

w} ...............253

vi

&CLr*"\mwC'8O

XZ>i

-&9C>i

&CLr*"\mw,|G0&CLr*"$_d1(ADTS) i~D;v&\?~,|

®

+=czZ iSeries 400

73P*"&CLr#dn/V*=`:\mNqM*"N

q#>iP|,PXBP=fDE":

v 0&CLr*"\mw1&\?~D&\

v 0&CLr*"\mw1?~*"|n

v 0&CLr*"\mw1\m|n

v gN9CQw76MC'(e`M

v gN9("bT"KP"<vMV<&CLr

v T6L53D&CLrV"

v 2+T"bBn
v gN9C0`L*"\mw1(PDM) 5CLr

™

v gN\m System/36

™

v System/38

"bBn

&CLr

v gN9C VARPG ?~

>iG*F.4(M\m*0&CLr*"\mw1&\?~(eDn?Dn?\m
1T0+9CK&\?~4*"&CLrD&CLr*"_`4D#

Hvu~M`XE"

|
|

|
|
|
|
|

|

Z9C>i.0,&l$BPwnZ]:

v XZK&\?~D;cEn#z&1Q-DAK ADTS/400: Application Development

Manager Introduction and Planning Guide#

v $w>(2F*T>>)0dX~#
v KPZ Operating System/400 (OS/400) 53OD IBM iSeries 400 53Mm~#
v 0` L*"\mw1(PDM) 5CLr#PXK5C LrDE",N{ ADTS/400:

Programming Development Manager#

9C0iSeries E"PD14w*zKb iSeries M AS/400e

™

<uE"Dpc#zIT

(}=V=(4CJ0E"PD1:

v STB Web >cCJ:

http://www.ibm.com/eserver/iseries/infocenter

v Sf Operating System/400 )%;p;6D CD-ROM CJ:

iSeries

E"PD

E"PD:Va9E

, SB84-0455-00. Km~|9|( PDF f>D iSeries Va iSeries

, SB84-0456-00,|C4f;0m=4b1CD-ROM#

© Copyright IBM Corp. 1992, 2001 vii

|
|
|
|

0iSeries E"PD1|,KJLrMX*wb,g CL |n"53&CLr`LSZ
(API)"_-Vx":/"Java
IBM®l$iD4ST08rd{ IBM Web >c(}g Technical Studio M IBM w

3)DrXx4S#

™

"TCP/IP"Web ~qM2+xg#|9|(8r`X

|
|

gN"MzDb{

|
|

|
|

|
|
|
|
|

|
|

|
|
|
|
|
|
|
|

Z2493D:DW?<;PP>Kk0&CLr*"\mw1&\?~t\`XDV
a#

zD4!\X*,|IozRGa)n<7D"_J?DE"#IBM 6-zT>irN
Nd{ iSeries D5"mNNb{#

v g{z26(}J~"Mb{,I9CTBX7:

IBM Canada Ltd. Laboratory
Information Development
2G/KB7/1150/TOR
1150 Eglinton Avenue East
North York, Ontario, Canada M3C 1H7

g{S@zTbXxJDA_b{m,IT+Km;x1XD IBM V?r IBM z
m,TxPJJQ6DJD#

v g{z26(}+f"Mb{,I9CTBEk:

– 1-416-448-6161

v g{z26CgS=="Mb{,I9CTBgSJ~X7.;:

– Tb)iDb{:

[e-mail]
IBMLink: toribm(torrcf)

– T0iSeries E"PD1Db{:

[e-mail]

|
|
|
|

|

y>n?

viii &CLr*"\mwC'8O

7#|(BPwn:

v i{#

v iE#

v zDb{f0D3Erwb#

>i9C;vyZ Payroll &CLrDy>n?45wh*4PDF.T04(IC&
CLr*"73D=(#+G,gN5V0&CLr*"\mw1&\?~D&\!

vZs5DXbh*Mb8"d}L,T0|F.*"D&CLrDTJ#y>n?
(g|Z0&CLr*"\mw1bPy9CDGy);5wK;V*"!iI\I

CD=(#

(e

q!*zE"

>i;|,Jcm#BuoGZZ;NvVDX=(eD,"RTVeVN=;vT
>v4#*KcZN<,9Zuo>mMb*

}#

a)KBP*zE":

v PXXFoT (CL) |nDoz

P=V`MDozIC:OBDozM)doz#OBDozCZ5wVN#)d
ozCZ5wT>r|nD?D#

*i4XZ CL |nDa>A;,dkC|n ,;s4 F4=a>#*i4OBDo

z,dkC|n"+bj(;ZVNO,;s4 F1=oz#*i4)doz,1zi
4C|nDOBDoz14 F2=)doz#

*i4yP0&CLr*"\mw1|nDPm,dk:

GO CMDADM

*i4kn?`XD0&CLr*"\mw1|nDPm,dk:

GO CMDPRJ

(e

Dw}u?B*?v(e4(Kw

*i4ki`XD0&CLr*"\mw1|nDPm,dk:

GO CMDGRP

*i4k?~`XD0&CLr*"\mw1|nDPm,dk:

GO CMDPART

v 0`L*"\mw1A;Doz

*i4OBDoz,+bj(;ZVNO,;s4 F1=oz#*i4)doz,IT
+bj(;ZOBDozICDxr.b,;s4 F1=oz;2ITZi4OBDo

z14 F2=)doz#

XZ>i ix

x &CLr*"\mwC'8O

Z1B &CLr*"\mw&\?~i\

|
|
|
|
|

n?\mDEv

0&CLr*"\mw1G0&CLr*"$_d1i~D;v&\?~,*Z iSeries
400 73P$wD&CLr*"_a)K;VzF,9{GITZ{v&CLrP'Z

ZP'XM_'X\m&CLrTs#K&\?~P=V`MDC':n?\m1M
&CLr*"_#n?\m1G:p(en?cNa9MGGC'DK1#&CLr
*"_G9C0&CLr*"\mw1&\?~4*"&CLri~D&CLr1#

>Ba)KXZBPwbDE":

v n?\mDEv
v ?~*"DEv
v &CLr*"73
v CZ&CLr*"D$_

*K9i/rs59C K &\?~,3vK1(ZKivP*n?\m1)XkZ

0&CLr*"\mw173P4(n?0dr\#4(n?DK14T/I*Cn
?D\m1,R_PZCn?P4(iMGGC'DX*(^#iG*"}LP&Z
,;WND?~D/O#|m>*b,d(^I0&CLr*"\mw1&\?~X

F# n?cNa9Gi / I;)c(?;cm>*"}LPD;vWN)DiD/

O#

\m1("K&CLrr\,T9d{K1Z(en?cNa91xP$w#*4(
_'DcNa9,n? \ m1XkG#Kb0&CLr*"\mw1&\?~#m

b,{9Xk_PXZ+&ZK&\?~XF.BDE"Ds?*6#n?\m19
XkKbi/Z*"M,$&CLr1yq-D}L#mb,_PYw53M535

CLr-iG\X*D#

n?\m1DG+

n?\m1DG+Mn/D6'GIZn?cNa9P\mD&CLr7(D#WN
9CK&\?~Dn?\m1(#+4PZ23D<1P5wDev=hTcC&CL
r*"_Z0&CLr*"\mw173P*<{GD$w#

© Copyright IBM Corp. 1992, 2001 1

<1.*<9CK&\?~yhDevy>=h

mb,n?\m1DG+I\9h*:

v Zn?cNa9Pa}n?D*X,}g,SbTca}=wc

v bT&CLr

v +&CLrS0&CLr*"\mw173cNa9<v=zzrbT73

v Z53JO.sXUn?cNa9E"

v *"&CLrD?~ri~

NNC'<IT4(n?#d1n?\m1DK1DC'r*m;h*Xb(^#4
(n?DK1+T/I*Cn?Dn?\m1#;vn?DZ(n?\m1;a9T
/_Pd1d{NNn?Dn?\m1D(^#xGI?vn?Dn?\m1+NN

,BGG*n?\m1#ZyPn?P,C'r*m QSECOFR 5JOGG*n?\m
1#4,QSECOFR ;1wyPn?PDn?\m1,x;\ QSECOFR Gqrwn?

xPKGG#

n?\m1DG+k&CLr*"_DG+2G;,D#n?\m1Tn?PDNN
Z]<_P|BCJ(,x&CLr*"_;TX(D$wxri_P|BCJ(,

g\m1yZ(DGy#;GZ&CLr*"n/D*<MjI1ExPy>D\m
Nq,xZ{v*"\ZP<*xP*"Nq#"R,y]n?6'M*"!if#

D;,,n?\m19I\ad1&CLr*"_#9*"b,n?\m1;h*G

53\m1

w#

#Z iSeries 400 OBDP,53\m1:pk\m{v53PXDwn$

2 &CLr*"\mwC'8O

?~*"DEv

&CLr*"MGT&CLrxP`k"`k"KP"wTMbT#&CLr*"_
IT9C0&CLr*"\mw1&\?~44Pb)Nq#K&\?~a)K;v
r\,ITZdP\m iI&CLrD?~D*"#?~G;vTs(gD~rL

r),r_G|, RPG LrD RPG/400
RPGSRC"RPGINC"PGM r FILE),r_z I T 9 C0 mS ADM `M1
(ADDADMTYPE) |n4(ezT:D`M#?~9IT_PI53a)DoT(g
RPG r SQLRPG),"RzIT9C ADDADMLANG |n4*C'(e?~`M(

ezT:DoT#

XkHfZn?cNa9,;s*"_E\9C0&CLr*"\mw1&\?~4

4P?~*"Nq#*"_9XkZn?PxPGG"Ti_P|B(^#yPb)
<GIn?\m14i/D#

1?~h*|B1,*"_Xk+?~lv={GTd_P|BCJ(DiP#*l

v?~,C?~DJ1f>;4F=*"_DiP,g{h*D0,9*xPx(,
T@9d{*"_|D|#1jIT?~D|B1,*"_a+C?~S{/}D*

"iPa}=d8iP#

ZNN1r,Z;vn?P<ITfZ;v?~D`vf>#}g,1&CLrZ;
vf>D$wjI.s,n?\m1MITrn?cNa9PmSi,Tc*"_I
T*<*"&CLrDZ~vf>#

®

zkD4I1#?~_P53a)D`M(g

k4("|Dr>}0&CLr*"\mw1n?"iM?~`X*DyPNq<&

C9C0&CLr*"\mw1SZ4jI#b)SZ|( CL |n"0`L*"\m
w1A;,T0 WRKPRJPDM"WRKGRPPDM M WRKPARTPDM |n#g{\m

1r*"_9Cd{SZ4|Dr4(0&CLr*"\mw1E",ra{+;I
$O#9(}LI\;\6pv?~Q|D,SxI\;\XB`kr&m|#b+

<Bw?~kd`&TsMI1.dD;;BT#

;\ZzTd_P|BCJ(DirbP|D?~#g{zv(Z0&CLr*"\
mw173.b|D?~,r CHGPARTINF |n+|BC?~DZ?E"#

&CLr*"_DG+

K&\?~9z\;Z\X73P*";,?~Df>#mb,`v*"_2IT,
1|B&CLrD?~#K&\?~I7#I;v*"_ywD|D;akm;v*
"_ywD|D"ze;#?~D9((`k)GT/xPD#

&CLr*"_4PDy>NqG:

v 4(B?~;SK&\?~DX~Z4F?~,r_(}SdX~b?<k?~4

4F|G;T0|D?~

v 9CX(D9(6'49(?~,9(Qw76,T09(!n

v Zn?cNa9P+?~a}

v Z0&CLr*"\mw173ZbT&CLrD?~,r_(}+?~<vAb

Tb4Z73b?bT?~

Z1B &CLr*"\mw&\?~i\ 3

&CLr*"73

<2 +Z0&CLr*"\mw1&\?~XF.BD&CLr*"kZK&\?~D
XF.bD&CLr*"xPH O#<PwrDwL5wK(#zIgN4(4z

k"`-|,;s`k|#<ms_T>Kz9CD0&CLr*"\mw1?~*
"|n# g{z;ZK & \?~DXF.B*"?~,r<mR_T>Kz9CD

OS/400 |n#

&CLr*"D$_

|
|
|
|
|
|

9C&CLr*"$_d5CLr

<2.&CLr*"73

I9CBPNN;vSZ4CJ0&CLr*"\mw1&\?~PD&\:

v OS/400 |nPPDXFoT (CL) |n
v 0&CLr*"$_d1i~D0`L*"\mw1(PDM) 5CLr

v 0&CLr*"$_d1i~D0&CLrVd~q1&\?~
v iSeries z7D0WebSphere *"$_1
v IBM CoOperative Development Environment/400 ( CODE/400) i~

®

v VisualAge

IT(}9C0`L*"\mw1(PDM) 5CLrr_9C|nPPD0&CLr*"
\mw1XFoT (CL) |n44P\mNqM*"Nq#Z>iP,?v|nDZ;
v>}<T>K CL |n0dZ9C0`L*"\mw15CLr1*q-DH[=

h#=<A. &CLr*"\mwXFoT|n a)Kb) CL |nDj{Pm#

IT9CBP PDM A;44Pb)\mNqM*"Nq:

C PDM 49Cn?
C PDM 49Ci
C PDM 49C?~

RPG $w>$_

4 &CLr*"\mwC'8O

PX PDM 5CLrDEv,N{Z16B 9C`L*"\mw5CLr#

P8vdO0&CLr*"\mw1&\?~9CDd{ Application Development

ToolSet/400 5CLr#b)5CLr|(04u?5CLr1(SEU)"0A;hF(z1
(SDA)"0(f<V5CLr1 (RLU)"0}]D~5CLr1(DFU)"0D~HOkO
" 5 C L r 1 FCMU)# S 0 C PDM 4 9 C ? ~ 1 A ; O D ! n M I C J
SEU"SDA"RLU M DFU#

PXb)5CLrD Application Development ToolSet/400 vfoDPm,N{DW?

<#

9C&CLrVd~q&\?~

0&CLrVd~q1G0&CLr*"$_d1i~D;v&\?~#0&CLr
Vd~q1&\?~G;v'{Vv$_,ITC4@@T&CLrD1Z|DD'

{#

g{z}Z9C0&CLrVd~q1&\?~,r9ITCJ0&CLr*"\m

w1&\?~*zD&CLr*"73a)D&\#

IT(}BP=V=(.;4CJ0&CLr*"\mw1?~:

1. 8(zkZ Start AppDict Services/400 (STRADS) A;O9C0&CLr*"\m

w1

2. 8(zkZ09CVd1A;O9C0&CLr*"\mw1#

PX Application Dictionary Services/400 vfoDPm,N{DW?<#

9C0WebSphere *"$_1z7

0WebSphere *"$_1z7|(BP$w>$_:

v CODE/400
v VisualAge RPG

|
|
|

v WebSphere Studio iSeries f
v VisualAge for Java iSeries f
v IBM Distributed Debugger

PX`XvfoDPm,N{DW?<#

9C CODE/400 $_

IT9C CODE/400 `-w"0LrzIw1r0n?i/w1.;4(}9C<NC
'gfCJb"D~MI1r_0&CLr*"\mw1n?"i0?~#

CODE/400 D0zkhFw1i~Jmzr*M9( DDSSRC ?~#xR,IT9C
0wT$_1i~4wTLr?~#

PX CODE/400 vfoDPm,N{DW?<#

CODE/400 `-w

CODE/400 `-wJmz9C<NC'gf4!q0&CLr*"\mw1?~#

*CJ0&CLr*"\mw1?~:

Z1B &CLr*"\mw&\?~i\ 5

1. +w CODE/400 `-w<j#

D~

2. S

3. 0r*10ZvV,ITZK0ZP!q0&CLr*"\mw1?~#

K%P!q

r*

#

LrzIw

CODE/4000LrzIw19z\;9(0&CLr*"\mw1?~#

*9(0&CLr*"\mw1?~:

1. +w CODE/4000LrzIw1<j#

2. 0LrzIw10ZvV,ITZK0ZP!q*9(D0&CLr*"\mw1

?~#

": N<kh*T BLDOPT D~wDX*|DPXD CODE/400 *zE",TctC

CODE/400 ms4!M0wT$_1#

|
|
|
|

n?i/w

CODE0n?i/w1G;v&\?sD$_,|9z\;9C$w>4`-"i$"
`kMwT&CLr#|9z\;9C@fOD OS/400 Ts#zIT9CfrTsD

C'gf4&mb"D~"I1r0&CLr*"\mw1n?"iM?~#

9C VisualAge RPG $w>$_

VisualAge RPG (VARPG) $w>$_* VARPG &CLr1a)K;V*"73,9

{GITZ_PwzSZD$w>O*"",$Mi5{GDIS&CLr#

0&CLr*"\mw1&\?~9z\;Zwz53Of"M\m0&CLr*"

\mw1n?PD VisualAge RPG &CLr#PXji,N{Z2093D:Z17B 9
C VisualAge RPG ?~;#

PX VisualAge RPG vfoDPm,N{DW?<#

6 &CLr*"\mwC'8O

Z2B 9Cn?

Z0&CLr*"\mw173P,&CLr;F*n?#n?GI&CLrDyP
`Xi~iID#x;[|G&ZD;*"WN#rK,n?;G OS/400 Ts#|G
f"Zb(i)PD;i OS/400 Ts(?~)#

n?0dPDi*&CLr*"(en?cNa9#0&CLr*"\mw1&\?

~9Cn?cNa947(d|nyhDNNbPmDNr#PXn?cNa9T0
0&CLr*"\mw1|ngNR=CcNa9PD?~Dji,N{Z3B 9Cn
?cNa9PDi#

>Ba)KXZBPwbDE":

v 4(n?
v T>n?DPm
v |Dn?
v r!XZn?DE"
v >}n?
v C0`L*"\mw15CLr49Cn?

z&C()1d4DA ADTS/400: Application Development Manager Introduction and
Planning Guide ;Z,|V[KzZ*<4(n?.0&C<GD;)Bn#

4(n? (CRTPRJ)

*9 C 0 &CL r *" \ m w1 & \? ~ ,X k 4 (n ? # 9 C 0 4 ( n ? 1

(CRTPRJ) |n44PCNq#

NNC'<IT4(n?#;)z4(Kn?,zMI*Cn?Dn?\m1,IT

CyP\m|n49C|#zITmSd{n?\m1#C'r*m QSECOFR GyP
n?D\m1#

"

(i*zD?v&CLr<4(%@D0&CLr*"\mw1n?,x*TZ
8v&CLr*+2DNN?~4(m;vn?#9C%@Dn?+a_0C
PDM 49C?~1A;DT\,"R+9z\|CXXF&CLr#

4(n?1,zIT!qGqk*ZXB9(omD~1T/#fMV4omD~P

DbT}]#KN}D1!5G SAVDTA(*YES)#9(}L+Z9(.0#fbT}
],xZXB9(omD~.sV4b)}]#g{z8( SAVDTA(*NO),rZXB
9(omD~1zD}]a;>}#

4(n?1,zITZ TEXT N}Oa)n?hv#}g,zI\k*Zkn?`X*

DD>Pj6&CLrD{FM?D#

© Copyright IBM Corp. 1992, 2001 7

9Cn?

>}

K>}5wgN4(;vF* PAYROLL Dn?,dn?rF* PAY#n?rFn$
IT* 4 vV{,C4*n?PDi4((;Db{#komD~`X*DNN}]G

ZxP9(}L1#fMV4D#g TEXT N}yv,PAYROLL n ?G;v?\
Payroll &m&CLr#

9C CRTPRJ |n

CRTPRJ PRJ(PAYROLL) SHORTPRJ(PAY) SAVDTA(*YES)

TEXT('WEEKLY PAYROLL PROCESSING APPLICATION')

9C0`L*"\mw15CLr

40C PDM 49Cn?1A;OD0F6=4(1#

IT(}1SZNN|nPOdk CL |n49Cn?#9ITZ CL Lr"REXX }
L P 9 C | n , r _ ( } QCMDEXC 4 9 C | n # n ? | n *

CRTPRJ"QRYPRJ"CHGPRJ"PRTPRJ M DLTPRJ#

9IT(}9C0C PDM 49Cn?1A;4(}0`L*"\mw15CLr9C
n?#

}Kb)n?|n.b,K&\?~9'V0XUn?1(RCLPRJ) |n#K|nbvK

Z"z53JOr_n?\m|nl#ax.sn?PyfZDNN;;BT#PX
K|nDji,N{Z1783D:XUn? (RCLPRJ);#

T>yPn? (QRYPRJ)

9C0i/n?1(QRYPRJ) |n4q!zZ53OGGDyPn?DPm#KPmO

+;vVzP(A!r|BDn?#

9IT9CK|n4i$GqI&4(Kn?,r_C47(GqNNn?r53J
Oxp5rdC;;B#PXV4n?DE",N{Z1753D:Z15B #$&CLr

*"\mwE";#

9C OUTPUT N}4T>&C+dv<rN&#1!5*+(fYQzT)r!,
OUTPUT(*PRINT)#

>}

<3 5wK1zdkTB|n1YQzD~Db[:

QRYPRJ OUTPUT(*PRINT)

5722WDS V5R1M0 &CLr*"\mw - i/n? 05/08/01 11:59:48 3f ..: 0001

n? rF }] }] D> QF5

PAYROLL PAY q G ?\ Payroll &m&CLr q

*****P m a x *****

DBCS #f

<3.I

QRYPRJ

|nzIDYQzD~Dy>

8 &CLr*"\mwC'8O

mb,IT(}8( OUTPUT(*OUTFILE) 4+dv<r3vdvD~#dvD~DG

<q=kZb QADM PI53a)D}]bD~ QALYQPRJ Py9CDG<q=`
,#

>}

bPmC47(ZN&f"F* OUTFILE DdvD~,D~PDZ;vI1+SUd
v#

QRYPRJ OUTPUT(*OUTFILE) OUTFILE(*LIBL/OUTFILE) OUTMBR(*FIRST)

|Dn? (CHGPRJ)

9C0|Dn?1(CHGPRJ) |n4|Dkn?`X*DD>,r_|D1Zn?PX

B9(omD~1Gqk*T/#fMV4zDbT}]#;Pn?\m1E\9C
K|n#

g{z8( SAVDTA(*YES),r9(}L+Z9(.0#fbT}],xZXB9(o

mD~.sV4b)}]#

>}

*|Dk PAYROLL n?`X*DhvTD>,dkTB|n:

9C CHGPRJ |n

CHGPRJ PRJ(PAYROLL) SAVDTA(*SAME) TEXT('BIWEEKLY PAYROLL

PROCESSING APPLICATION')

9C0`L*"\mw15CLr

Z0C PDM 49Cn?1A;O!q!n 2(|D)#

K|n+;a|DNNGGE"r_|D-TKn?_P(^#*|DGGE",9
C CHGPRJUSR |n,gZ293D:|DC'GGE" (CHGPRJUSR);;ZPyv#

r!XZn?DE" (PRTPRJ)

9C0r!n?1(PRTPRJ) |n4i4n?DXwMn?cNa9ZDwvi#ITZ
4(n?cNa9.s9CK|n4i$a}76#n?\m1M&CLr*"_<
IT9CK|n#

XkZ PRTPRJ |nD PRJ N}O8(zQGGDn?D{F#

OUTPUT N}D1!5 OUTPUT(*PRINT) +9(fYQzT)r!#

(fT>K PARTL Xh5,C58>iGq*sZ|D"4(ra}?~1<&xv

-r#5 Y 8>Xkxv-r#

>}

K>}5wgN4(Z103D<4PyT>Dy>(f#

9C PRTPRJ |n

PRTPRJ PRJ(PAYROLL) OUTPUT(*PRINT)

9C0`L*"\mw15CLr

Z2B 9Cn? 9

S0C PDM 49Cn?1A;O!q!n 6(r!)#

5722WDS V5R1M0 &CLr*"\mw - r!n? 05/08/01 13:37:40 3f ..: 0001

n? ...............: PAYROLL

n?rF...............: PAY

DBCS }] ..............: q

#fomD~}]...........: G

D> ................: ?\ Payroll &m&CLr

6p i rF a}k (* ks D>

01 MASTER MAST MASTER *NONE N PAYROLL n?D MASTER i(y)#
02 TEST TST MASTER *NONE N PAYROLL n?D TEST i#
03 DEVELOPER1 DEV1 MASTER *NONE N PAYROLL n?D DEVELOPER1 i#
03 DEVELOPER2 DEV1 MASTER *NONE N PAYROLL n?D DEVELOPER2 i#

*****P m a x *****

PARTL

<4.I

PRTPRJ

|nzIDYQzD~Dy>

?viDcN8>{ozz7(n?cNa9#KcN8>{D?DGC4{wn?
ZwviDcNa9TJ#<5 Pm>KK(fPhvDn?cNa9#

MASTER

MASTER

MASTER

MASTER MASTER

DEVELOPER1

TEST

DEVELOPER2

<

5. PRTPRJ

<5 My>(f<5wK;v_PDvixdcNa9P}cDn?#P>Z(fPD
0vVZ?vrbfO=DJ MASTER m>*b)i(eDa}k#

mb,IT(}8( OUTPUT(*OUTFILE) 4+dv<r3vdvD~#dvD~DG
<q=kZb QADM PI53a)D}]bD~ QALYPPRJ Py9CDG<q=`
,#

>}

bPmC47(ZN&f"F* OUTFILE DdvD~,D~PDZ;vI1+SUd
v#

PRTPRJ PRJ(PAYROLL) OUTPUT(*OUTFILE) OUTFILE(*LIBL/OUTFILE)

10 &CLr*"\mwC'8O

(fPhvDn?cNa9

OUTMBR(*FIRST)

>}n? (DLTPRJ)

9C0>}n?1(DLTPRJ) |n4S0&CLr*"\mw1&\?~P>}{vn
?#>}n?1,n?ZDyPiT0wiPDyP?~<a;>},49*"_}
ZG)iP$w#;Pn?\m1E\>}n?#

XkZ PRJ N}O8(n?{#

"

1>}n?1,i5bT0ib<a;>}#Z0&CLr*"\mw1&\?
~b?4(Db2a;>}(g{|D{FGn?PdP;viDP'i5b{

D0)#v1yP_G QPRJOWN 1Ea>}i5bMib,qr,+"v/f#
PXP'i5b{Dhv,N{Z823D:i5?~;#

>}

K>}5wgNS53P}%n? PAYROLL#

9C DLTPRJ |n

DLTPRJ PRJ(PAYROLL)

9C0`L*"\mw15CLr

Z0C PDM 49Cn?1A;O!q!n 4(>})#

1z9C!n 4 1,0`L*"\mw15CLraa);v7OA;#g{1SS|

nP9CK|n,M;arz"v/f#

Z2B 9Cn? 11

12 &CLr*"\mwC'8O

Z3B 9Cn?cNa9PDi

(#,;vn?I`viiI#n?ZD?vi<m>&CLrPzkD;vf>r

cN#

}g,F* MASTER DiIm>{v&CLrDnBf>#m;vi TEST Im>T
;ZbTDlOZ;pDQ|D04|Dzk#KiGZn?cNa9PDi MASTER
Bf4(D,g<6Py>#

MASTER

TEST

<6._P=viDn?cNa9

n?cNa9j6KQw76#Qw76GwiDEP,|7(1Zn?cNa9P

iR?~1,0&CLr*"\mw1&\?~QwwviyICDNr#1Zi TEST

P$w1,+WH9CZCiPR=D?~,r*|Gm>&CLrP?~DnB|
Df>#4Zi TEST PR=DNN&CLr?~<Zi MASTER PiR#PXQw

76Dji,N{Z9B 9CQw76#

>Ba)KXZBPwbDE":

v 4(i
v 4(n?cNa9
v |Di
v >}i
v C0`L*"\mw15CLr49Ci
v 2m*"i
v Tn?MiGG*"_M\m1
v 9Cn?C'|n
v 4(y>n?cNa9

z&C()1d4DA ADTS/400: Application Development Manager Introduction and
Planning Guide ;Z,|P>KzZ*<(en?PDi.0&C<GD;)Bn#

© Copyright IBM Corp. 1992, 2001 13

4(i (CRTGRP)

9C04(i1(CRTGRP) |n4*n?4(i#;\ZQ4(n?.sE\4PKY
w,"RzXkGCn?Dn?\m1E\9CK|n#PXji,N{Z73D:4

(n? (CRTPRJ);#

1z4(i1,Xk*|a)=v{F:;vCZZyPki`XD CL |nP9CD
i,m;vGIevV{iIDrF#KrFkn?rFiOp4,*n?PD?v
i4(;v(;{F#PXgN|{iDE",N{=<C. |{fr#

XkZ PARENT N}O8(;v5,E\("n?cNa9Pwi.dDX5#1z
}Z4(n?cNa9PDZ;vi1,zXk8(Xb5 *NONE,r*Ci;P8
i#8iMGn?cNa9V'P1S;Zm;viOfDi#1WN4(n?cN

a91,z;&|Da}k5#1!5* *PARENT#g{z}Z4(n?cNa9P

DZ~vrsxDi,rXk8(Ci&ZdBD8iD{F#

`kV{/j6{ (CCSID) ITk CCSID N}ODi`X*#Kj6{*iPf"D
?~7(V{/j6{#1! CCSID 5 *PARENT 9Ck8i`X*D CCSID#g
{z}Z4(n?cNa9PDZ;vi,rkw5`X*D CCSID +d11!5#

IT(}8( *JOB 48>*9CkKP CRTGRP |nDxLrw5`,D CCSID,
r_(}8( *HEX 48>z;k*;4?~PD}];r_zITdk;v 1 =

65535 .dD{}54j6X(D CCSID#PXZ'V`VzRoTD&CLrPgN
9C CCSID DE",N{Z2423D:Kb CCSID;#

9C NOTIFY N}4(*KG:Zn?cNa9D ; v V'Pf Z D 3 v? ~}Z;

CHKOUTPART |nlv=,;n?cNa9Dm;V'PD3viP#PXKN}D
ji,N<Z203D:*ihC(*;#

IT|DiD PARTLREQ N}#PARTLREQ N}8(1ZKiP|D?~1Gqh
* PARTL {F#t*X(i8(K *YES,r19C?~*"|nR+Kiw*?j
i1,Xkxv-r#

4(i1,ITZ TEXT N}OhvCim>n?PDDvWN#

n?iMbPm

OS/400 Yw53+bPmDC'?V^F* 25 vb#Zn?cNa9PD?v0n?

-i1T,w*Qw76D;?V,<m>;vb#n?cNa9P?vQw76P
Di}\bPm^F,;(;\,} 25 v#+G,z;+I\Z;vQw76Ph*
`Z 10 vi#PXgNiOn?{Mi{4NI(;b{DE",N{=<C. |{f

r#

4(n?cNa9

y]wviZn?cNa9PD;C4x;=+iV`#yiZNNcNa9P<G
Z;vir_n%?Di#?vn?cNa9<;\P;vyi#(#,yiMG|
,nHjI"|BMbTD&CLrf>Di#yi(#9Gz+VfD&CLr<
kADi#

14 &CLr*"\mwC'8O

>}

K>}5wgNZn? PAYROLL P4(i MASTER#<7 m>*4(DcNa9#
Z PARENT N}O8( *NONE,Tcr0&CLr*"\mw1 &\?~8>

MASTER Gyi#

9C CRTGRP |n

CRTGRP PRJ(PAYROLL) GRP(MASTER) SHORTGRP(MST) PARENT(*NONE)

9C0`L*"\mw15CLr

Z0C PDM 49Ci1A;O40F6=4(1#

TEXT('MASTER GROUP IN PROJECT PAYROLL')

MASTER

<7._Pi

MASTER

Dn?

PAYROLL

*Zn?cNa9P4(Z~vc,IZB;viD PARENT N}O8( MASTER#

>}

TB|n+Zn? PAYROLL P4(i TEST,g<8Pyv#

CRTGRP PRJ(PAYROLL) GRP(TEST) SHORTGRP(TST) PARENT(MASTER)

<8._P=viDn?

TEXT('TEST GROUP IN PROJECT PAYROLL')

MASTER

TEST

PAYROLL

r*n?cNa9_Pi MASTER M TEST,yTzh*(e;)i,9C*"_I
TZdP4P?~*"Nq#*"iMGn?cNa9PjI?~*"Di#

*"n/(g4(?~"lkrlv?~,T0|Dra}?~H)nC&CZn?
cNa9DW?r_cNnMDiPxP#;&**"_a)Tng TEST M MASTER
.`DiD|BCJ(#;PZ|DMbT?~.s,E&ZcNa9Pa}|G,

TckSd{iPa} D?~;pYNxPbT,T7#yPi~Z;p}7X$
w#rK,n?cNa9PO_cND?~*Hn?cNa9POMcNDiPG)

Z3B 9Cn?cNa9PDi 15

?~H(#d{"bBnG,g{*"_Tn?cNa9DPdiP?~D1>xP
K|D,rtm;*"_S|McNDia},;?~,G4ITf;byD|D#

v1xTX*1E&xPbV|D,"R,g{*#f|D,r9&`&X|DcN
a9POMcND`,?~D1>#

zI\kTbye~Xj6|GD*"i8({F#b){FITGZCiP$wD

K1DC'r*m{,r_G|U(D{F,g DEVELOPER1 r DEVELOPER2#

>}

BP|n+Zn? PAYROLL P4(=v*"i,*"_ITZdPxP?~*"n

/#

CRTGRP PRJ(PAYROLL) GRP(DEVELOPER1) SHORTGRP(DEV1) PARENT(TEST)

TEXT('DEVELOPER1 GROUP IN PROJECT PAYROLL')

CRTGRP PRJ(PAYROLL) GRP(DEVELOPER2) SHORTGRP(DEV2) PARENT(TEST)

TEXT('DEVELOPER2 GROUP IN PROJECT PAYROLL')

<9m>n? PAYROLL _PDvi,gyvVDGy#

MASTER

TEST

DEVELOPER1

DEVELOPER2

<9._PDviD

g{zk7#&CLr;9(r_<8C<vA TEST i,rzITZ TEST ik*

"i.d4(;vi,}g,CiC4|,*"$wQjIDG)?~#IT+Ki
F* INTEGRATION#4(KiD?DGZ#t&CLrbTf>D,1,Jm*"_
SKiPlv?~,r_+?~a}=KiP#

*n?cNa9(e;va}k

IZ?~GZn?cNa9P*"D,rK,Xa}76;N;\+;v?~iSc
NOMDia}AcNO_Di#a}76GZ|,Xka}D?~DikT?~D

$wjI1nU+|,?~Di.dDwviDEP#

16 &CLr*"\mwC'8O

Payroll

n?

n?cNa9Da}76GIzZ4(i1Z PRMCODE N}O8(Da}k7(D#

a}kj6IT+?~a}ADi#KiF*?ji#a}76XF?~Zn?cN
a9PI;a}DLH#

1z4(yi+4Z PRMCODE N}O8(51,CiDa}k+1!hC*i{#
0&CLr*"\mw1&\?~(} PARENT N}OD57(z}Z4(DiGq
Gyi#

1z4(;GyiDi1,PRMCODE N}D1!5+<BBikZ PARENT N}O
8(Di_P`,Da}k#

n? PAYROLL D;va}76G(}S\ CRTGRP |nD PRMCODE N}D1!

544(D#ZK>}P,Z*"iP*"D?~nUI;a}Ai MASTER,;Na
};c#zTz}ZSda}DiXk_P|BCJ(#

IT8(*dk CRTGRP |nODi`X*Da}kD{F#PXgN|{a}kD
E",N{=<C. |{fr#ZB;v>}P,BPN;|n+4(a}k* MASTER

Di TEST#

>}

ZZ;v>}P,9CDG1!a}k,xZZ~v>}P,8(Ka}k#r*8

iDa}kG MASTER,yT TEST iDa}k2G MASTER#

CRTGRP PRJ(PAYROLL) GRP(TEST) SHORTGRP(TST) PARENT(MASTER)

TEXT('TEST GROUP IN PROJECT PAYROLL')

CRTGRP PRJ(PAYROLL) GRP(TEST) SHORTGRP(TST) PARENT(MASTER)

PRMCODE(MASTER) TEXT('TEST GROUP IN PROJECT PAYROLL')

MASTER

MASTER

MASTER

TEST

MASTER MASTER

DEVELOPER1

DEVELOPER2

<

10.

_Pa}k

MASTERDPayroll

n?

Z3B 9Cn?cNa9PDi 17

g{Zn?cNa9P;P;v&CLrf>,r_g{z}Z*<BD&CLr*
"n/,rn?;P;va}kGP'D#g{zDi/Xk,$;vVf&CLr
f>,,1|B,;&CL r Dm;f>,rZn?cNa9ZI\h*8va}

k#

9ln?cNa9

n?cNa9Z;N1d.sI|DTcJ&}v&CLrf>D*"$w#}g,
1Z;v&CLrf>D$wj I1,MIT*<*"&CLrDZ~vf>#x
R,I\h*Z;vf>D*"$w4,$&CLr#<11 T>KbyD;vn?cN

a9#

1Z; v f > D $ w j I 1 , n ? c N a 9 D V1 V 'PD ? ~ ; a } A i
V1MASTER#V1FIX iG*I\XhTi V1MASTER PD?~wD^}x4(D#

VZIT*<*"&CLrDZ~vf>K#n?\m1rn?cNa9mSBDV

',CcNa9Ii V2MASTER"V2TEST"DEVELOPER3 M DEVELOPER4 iI,

yPiDa}k<* V2#

<

11.

a}k

(e;vn?cNa9ZD 8 va}kk(e;va}kD=(G`,D#ITZ

CRTGRP |nO9C PRMCODE N}4*i(ea}k#n?cNa9PwviDa
}kDiOM9IKa}76#

18 &CLr*"\mwC'8O

_P}va}kD

Payroll

n?

>}

: BP CL |nP1C44(;v_PyviM}va}kDn?cNa9,g

Z183D<11Py>#ZK>}P,Y(Q-9C CRTPRJ |n4(Kn?#Kn?c

Na9Y(Z;v&CLrf>D$wQjI,RQ+yP?~a}Ai V1MASTER#
KcNa9#tZ;v&CLrf>,x,1Jm(}lvh*|DA V1FIX iPD
?~4TKf>xP^}#|9Jm|D&CLrDZ~vf>#

CRTGRP PRJ(PAYROLL) GRP(V1MASTER) SHORTGRP(V1MST) PARENT(*NONE)

TEXT('VERSION 1 GROUP IN PROJECT PAYROLL')

CRTGRP PRJ(PAYROLL) GRP(V1FIX) SHORTGRP(V1F) PARENT(V1MASTER) PRMCODE(V1FIX)

CRTGRP PRJ(PAYROLL) GRP(V2MASTER) SHORTGRP(V2MST) PARENT(V1MASTER) PRMCODE(V2)

CRTGRP PRJ(PAYROLL) GRP(V2TEST) SHORTGRP(V2T) PARENT(V2MASTER)

CRTGRP PRJ(PAYROLL) GRP(DEVELOPER3) SHORTGRP(DEV3) PARENT(V2TEST)

CRTGRP PRJ(PAYROLL) GRP(DEVELOPER4) SHORTGRP(DEV4) PARENT(V2TEST)

TEXT('VERSION 1 FIX GROUP IN PROJECT PAYROLL')

TEXT('VERSION 2 GROUP IN PROJECT PAYROLL')

TEXT('VERSION 2 TEST GROUP IN PROJECT PAYROLL')

TEXT('DEVELOPMENT 4 GROUP FOR VERSION 2')

TEXT('DEVELOPMENT 5 GROUP FOR VERSION 2')

P}ua}76:;u769C V1 a}k,Z~u769C V1FIX a}k,Z}u
769C V2 a}k#

n?cNa9PD?vi<;\P;va}kk|`X*#n?IT_Pm`va}
k#+G,1z4(i1,*Ci8(Da}k;(;\F5n?cNa9POMc
NDNN?~(d?jiZz}Z4(DBiOf)DVfa}76#}g,ZZ18
3D<11P,;\Z V2TEST ikOMcNDi.d4(;va}k* V1 Di(g
{ZG)iPP?~Da}k* V2 D0)#byvaF5b)?~D V2 a}76#

gZZ173D<10PGy,ZZ183D<11PC4(;?~DQw76GI*"_}
ZdP$wDi47(D#}g,g{*"_}Zi DEVELOPER3 P$w,r+WH
ZCiPQw?~#g{ZCiPR;=y*D?~,raQwi V2TEST#g{ZC
iPTR;=C?~,raQwi V2MASTER#g{ZCiP9R;=?~,raQ

4;=

wi V1MASTER#PKKQw76,Zi DEVELOPER3 P$wD*"_M

Z

i DEVELOPER4 M V1FIX PD?~#

;v?~D=vf>

ZZ183D<11P,PAYROLL n?P}v?~#dP;v?~ BIWKLY _P=vf

>,r*|}Z;mSB&\#b}v?~G BIWKLY"MNTHLY M WKLY#Y(
QjI Payroll &CLrDZ;vf>;+G,Zb}v?~P"VKms,h*xP
;)=SD*"n/#?~ BIWKLY"MNTHLY M WKLY ;lv=i V1FIX(d

a}k* V1FIX)P#

,1,*"&CLrB;vf>D*"_7(Z?~ BIWKLY Ph*3)B&\#K
*"_+ BIWKLY lv=a}k* V2 Di DEVELOPER3 P#"b,;\+

BIWKLY Si V2MASTER a}=i V1,r*a}k;`,#

1Zi DEVELOPER3 P$wD*"_jI BIWKLY D$w1,?~;a}Ai
V2TEST#Z7#?~g$ZcDKws,\m1Ma+C?~a}Ai V2MASTER#

Z3B 9Cn?cNa9PDi 19

VZ,19(K Payroll &CLrDZ~vf>1,+9Ci V2MASTER PD
BIWKLY f>,x ; G9Ci V1MASTER PDf >#ZZ~ vf>P, ?~
MNTHLY M WKLY 4|D,rK,+9CZi V1MASTER PR=Db)?~D1

>#

4(;v;Pa}kDi

2IT4(;va}k* *NONE Di#bb6ECi;Pk|`X*Da}k#;\
a}Ta}k* *NONE Di4(D?~r4FACiD?~#

IT*8(*bT&CLrDK14(;v_P PRMCODE(*NONE) Di#;s,K
bTK1T;ITlv?~r_4F?~"|D?~"bT|,T0lkX?~,+
G;\+Q|DD?~a}XdZn?cNa9PD-4;C#

*ihC(*

1*ng V1MASTER .`DihC NOTIFY N}1,Ma"v(*{"(}g,g

{10}ZcNa9D V2 V'O*";vQ;lvA V1FIX D?~D0)#g{?~
Q|D,rI\h*TC? ~ D`vf>xP|D#}g,14(i1,IT9C

NOTIFY N } 4 R f C ' : f Z Z n ? c N a 9 D ; v V 'PD ? ~ } Z ;
CHKOUTPART |nlv=,;n?cNa9m;V'PDiP#g{?~Q|D,r

I\h*TC?~Dd{f>xP,yD|D#

18(K5 *DEVELOPER r_Xb{F1,SZ CHKOUTPART |nD GRP N}

O8(DiPlvDNN?~<+<B"vgOyvD(*#+Tda}kkylv
?~;,D"RfZZn?cNa9d{V'DiPDX(?~M`MDyPf>"
v(*{"#g{Vf?~_Pa}k *NONE,ra"v(*,x;[C4lv?~

Da}kG24#

;aTfZZ(SdPlv?~r_+?~lv=dPD)iPD,;?~D1>"
v(*{",r_g{?~G9(}LDdv(}g,`M* PGMD?~),2;a"
v(*{"#(#,n?\m19C1!5 NOTIFY(*NONE),|b6E;&"vNN

(*#

1jIZ;v&CLrf>DyP*"$w,RyP?~<Zi V1MASTER P1,n

?\m1I*i V1MASTER |D CHGGRP |nOD NOTIFY N},Tc8(1l

vCiPD?~1&C(*-#N{Z213D<12#bIToz`X*&CLrDB
;f>lvD?~T0*T&CLr10f>D^}ylvD?~#

1Si V1MASTER Plv?~1,+"vBP`M.;D(*:

v g{8(K5 *DEVELOPER,rZn?cNa9m;V'PlvK?~D*"_+

SU=(*E"#lvC?~D*"_+SU=`,D{"#

v g{8(KC'r*m{,r+(*C'r*m#lvC?~D*"_+SU=`

,D{"#Zn?cNa9m;V'PlvK?~DNNK2aSU={"#

<GB<,|5wK&CLrD}vf>#&CLrZ;vf>D*"QjI,Ry
P?~<Zi V1MASTER P#

20 &CLr*"\mwC'8O

<

12.

(*>}

1. n?\m19C CHGGRP |n,"*i V1MASTER + NOTIFY N}hC*
*DEVELOPER#SKiPlvDNN?~VZ<a<B"v(*{"#}Zlv

C?~D*"_+SU=`,D{"#

2. i V1FIX PD*"_+?~ RPGSRC BIWKLY Sa}k* *NONE Di
V1MASTER Plv#

;a"v(*,r*fZD?~ RPGSRC BIWKLY D(;1>;ZSdPlv?
~Di (V1MASTER) T0+?~lvADi (V1FIX) P#

3. i DEVELOPER3 PD*"_+?~ RPGSRC BIWKLY Si V1MASTER Plv#

VZ,?~fZZ}viP:V1MASTER"V1FIX M DEVELOPER3#

4. Zi V1FIX Plv?~D *"_ SU= (*{", 8>?~}Z;lv=i
DEVELOPER3 P#}Zlv?~D*"_SU=(*{",8>?~Q-;lv=
i V1FIX P#

5. xP^}$wD*"_ZjI^}1MIT(*Zi DEVELOPER3 Plv?~D
*"_K#C*"_I9C CMPPART |n4HO DEVELOPER3 iM V1FIX i

PD?~D=vf>#;s,g{h*D0,*"_IT9C MRGPART |n4O
"^}#

g{?~vfZZSPlvC?~Dir_fZZ+|lvADiP,r;a"v(
*{"#

Z3B 9Cn?cNa9PDi 21

9Ci

IT(}1SZNN|nPOdk CL |n49Ci#9ITZ CL Lr"REXX }
LP9C|n,r_(} QCMDEXC 49C|n#i|n* CRTGRP"CHGGRP M

DLTGRP#

}Kb)i|n.b,9IT9C PRTPRJ |n4T>XZn?PDiDE"#PX
PRTPRJ |nDE",N{Z93D:r!XZn?DE" (PRTPRJ);#

9ITC0C PDM 49Ci1A;(}0`L*"\mw15CLr9Ci#

|Di (CHGGRP)

9C0|Di1(CHGGRP) |n 4|DiDtT#;Pn?\m1E\4PKYw#

IT9CK|n4|Dki`X*DD>#9IT9C|4|DiD8i#|D8i

+JmzXB2En?cNa9,r_Zn?cNa9PekBi#

IT|DkX(i`X*Da}k#z8(xCiDBa}k;(;\F5CiTB
iP?~DVfa}76#

9IT|D1SiPlv?~1+"vD(*#zITZ NOTIFY N}O!qBP5.
;: *SAME"*NONE"*DEVELOPER r_C'r*mD{F#*SAME G1!5,

m>Q#f10D(*hC#PXji,N{Z203D:*ihC(*;#

PARTLREQ N}8(1ZKiP|D?~1Gq PARTL {GXhD#t*X(i8
(K *YES,r19C?~*"|nR+Kiw*?ji1,Xkxv-r#

|Dn?cNa9PDi

Z233D<135w1mSBi1,n?cNa9+gN|D#

22 &CLr*"\mwC'8O

BEFORE INTERIM AFTER

MASTER

TEST

DEVELOPER1

TEST

DEVELOPER1

MASTER

SYSTEST

MASTER

SYSTEST

TEST

DEVELOPER1

<

13.

|Dn?cNa9

BEFORE Dn?cNa9P}vi#Y(zk|Dn?cNa9,TcZi MASTER
kVfi TEST .dP;vBD053bT1i#Z;=MG4(CBi#

>}

: TB CL |n+mSBi"4( INTERIM cNa9#

CRTGRP PRJ(PAYROLL) GRP(SYSTEST) SHORTGRP(SYST) PARENT(MASTER)

TEXT('SYSTEM TEST GROUP IN PROJECT PAYROLL')

B;=MG+i TEST D8iSi MASTER |D*i SYSTEST#

>}

: TB CL |n+|Di TEST D8i,T9n?cNa94p4s<13PD0.

s1n?cNa9#

9C CHGGRP |n

CHGGRP PRJ(PAYROLL) GRP(TEST) PARENT(SYSTEST)

9C0`L*"\mw15CLr

Z0C PDM 49Ci1A;O!q!n 2(|D)#

g{zk(}4(BDyi4|Dn?cNa9,;hg4(Kn?PDNNd{i
Gy44(Ci,"Z CRTGRP |nO8( PARENT(*NONE) 4I#BDyiMI

*H0yiD8i#

Z3B 9Cn?cNa9PDi 23

1;vi;mSAn?cNa91,0&CLr*"\mw1&\?~+7#a}7

6OcNOMDiPyP?~Da}76;a\=F5#g{zT<+imSAn?
cNa9,r+<BXE0lv?~1(CHKOUTPART) |nOy8>Dm;a}76
4a}?~,"R CHGGRP |n+'\#

*K\bI\aF5a}76,zZ+iekn?cNa9P.0,&C*syP*

"_#9lkMlv?~#+yP?~<a}A|GD?ji2G;vCk(#

"b,;vi;\G|T:D8i#H;\+cNa9POMcNDij6*8i,
2;\+cNa9PO_cNDij6*8i#

|Dn?cNa9PDa}76

a}kXkm>Vfn?cNa9PDP'a}76#1*n?cNa9|DKa}
761,K&\?~+liGq;ah9?~;a}Ad?ji#

>}

: TB CL |n+|Dn? PAYROLL PDi DEVELOPER1 Da}k,<B

n?g<14Py>#

CHGGRP PRJ(PAYROLL) GRP(DEVELOPER1) PRMCODE(*NONE)

MASTER

MASTER

MASTER

SYSTEST

MASTER

TEST

*NONE MASTER

DEVELOPER1

<

14.

_PQ|Da}kDn?

DEVELOPER2

PAYROLL

24 &CLr*"\mwC'8O

ZK>}P,|DKki DEVELOPER1 `X*Da}k,9CZCiP$wDK1I

T;Ya}?~#g{dk CHGGRP |n1KiPD?~_Pa}k MASTER,rC
|n+'\,r*?~;\Y;a}X=?jiP#

g{|DKVfn?cNa9PiDa}k,rK&\?~9a7#CiPD?~;
q!da}76ODm;?ji#}g,g{9C CHGGRP |n|DK<15Py5w

Dn?cNa9,Tc*i MASTER 8( V1 a}k,r?~ BIWKLY Da}76
;)9,r*C?~+_PBD?ji#ZKivB,CHGGRP |n+'\#

<

15.

T>*N;\)9a}76D;v>}

>}i (DLTGRP)

9C0>}i1(DLTGRP) |n4Sn?cNa9P>}i,">}kCi`X*D(
^E"#;Pn?\m1E\4PKYw#

Z3Kk*n?.s,zIT9CK|n4}%X(*"_Di,r_}%kCn?
DIf>`X*D3)i#}g,g{z}ZxPZ}vf>D$w,zI\;Yh
*n?Z;vf>PD*"i#

"

1>}i1,i5b2a;>}#Z0&CLr*"\mw1&\?~b?4(
Db2a;>}(g{|D{FGP'i5b{D0)#v1i5bMibDy
P_G QPRJOWN 1,i5bMibEa;>}, qr,aT;>}Di"v/
f#PXP'i5b{Dhv,N{Z823D:i5?~;#

Z3B 9Cn?cNa9PDi 25

>}

K>}5wgNSn? PAYROLL P>}i DEVELOPER1#

9C DLTGRP |n

DLTGRP PRJ(PAYROLL) GRP(DEVELOPER1)

9C0`L*"\mw15CLr

Z0C PDM 49Ci1A;O!q!n 4(>})#

1z9C!n 4 1,0`L*"\mw15CLraa);v7OA;#g{1SS|

nP9CK|n,M;arz"v/f#

1>}i1,DLTGRP |n+liBPiv:

1. Zn?cNa9W?>}DiP;(;\Pa}k;G *NONE DNN?~#g{

3vi|,DyP?~<_Pa}k *NONE,R;PNN;v?~;lv,rIT
>}byDi#

2. Zn?cNa9PDd{X=,BPdSXk*f#

v ZCiPy>;P?~#

v Zn?cNa9P;PNN?~9CKi4CJd?ji#

v g{iGyi,r|XkGUD#|XkGcNa9P(;Di,r_|BfX

k;P;viI*BDyi#

g{zT<S*"iP>}?~,r_>};v|,P4a}Ad?jD?~Di,

r|n+'\#

g{9C!n 4 4dk DLTGRP |n,r0`L*"\mw15CLraa);v7
OA;#g{1SS|nP9CK|n,r;aSU=/f#

Zn?cNa9PGGC'

;)4(Kn?cNa9,Mh*xh*"_r\m1T|DCJ(#n?\m1G

Gn?kiPD*"_Md{n?\m1#

z&C()1d4DA ADTS/400: Application Development Manager Introduction and
Planning Guide ;Z,|P>KzZ*<GGC'.0&C<GD;)Bn#

GG*"_Mn?\m1 (ADDPRJUSR)

9C0mSn?C'1(ADDPRJUSR) |n 4Zn?PGGd{C'#;Pn?\m1

E\4PKYw#

C'r*mC4j6zkGGDK1#&Z ADDPRJUSR |nD USRPRF N}O8(
C'r*m{#C'r*m QSECOFR GyPn?D\m1#

IT(}GBZ USRTYPE N}Oa)D547(yGGC'D`M#}g,C'`M
*DEVELOPER 8>z}ZGGDK1G;v&CLr*"_,RTn?cNa9PD

yPi<_PACJ(#

(}Z ACCESS N}O8( *UPDATE,"Z DEVELOPGRP N}Odki{,4T

X(*"iZh|BCJ(#|BCJ(m>*"_ITS{GD*"ia}?~#

26 &CLr*"\mwC'8O

b)N};p9C48>yGG*"_h*T8(Di_P|BCJ(#18(K

ACCESS(*READ) 1,DEVELOPGRP N}M;vT#

>}

K>}5wgNxh*"_Tn?cNa9PyP?~DACJ(T0T;v*"i
PyP?~D|BCJ(#

9C ADDPRJUSR |n

ADDPRJUSR PRJ(PAYROLL) USRPF(SMITH) USRTYPE(*DEVELOPER) ACCESS(*UPDATE)

9C0`L*"\mw15CLr

Z0C PDM 49Cn?1A;O!q!n 41(mSC')#

g{4Z DEVELOPGRP N}Oj6NNi,r*"_;\lkrlv?~r_a}n
?cNa9PD?~#

DEVELOPGRP(DEVELOPER1)

>}

TB|nvxh*"_Tn?cNa9PyP?~DACJ(#

ADDPRJUSR PRJ(PAYROLL) USRPRF(SMITH) USRTYPE(*DEVELOPER) ACCESS(*READ)

C'`M *ADMIN 8>z}ZGGDK1G;vn?\m1,{Tn?cNa9PD
yPi<_P|BCJ(,"RIT9CyP0&CLr*"\mw1|n#C'r
*m QSECOFR GyPn?D\m1#

>}

TB|n5wgNGGn?\m1#

ADDPRJUSR PRJ(PAYROLL) USRPRF(TREMBLAY) USRTYPE(*ADMIN)

g{z8( USRTYPE(*ADMIN),r ACCESS M DEVELOPGRP N}a;vT,r

*~,KTn?cNa9PyPiD|BCJ(#

PXgNZn?PGGK*"_r\m1.s|DC'r*mDGGE"DE",N
{Z293D:|DC'GGE" (CHGPRJUSR);#

9Cn?C'|n

IT(}1SZNN|nPOdk CL |n49Cn?C'DC'r*m#9ITZ CL

Lr"REXX }LP9C|n,r_(} QCMDEXC 49C|n#n?C'|nG
ADDPRJUSR"PRTPRJUSR"CHGPRJUSR M RMVPRJUSR#XkGn?\m1E\9
C ADDPRJUSR"GHGPRJUSR M RMVPRJUSR |n#

yPn?C'|n<9CC'r*m#Xk*?v|na)C'r*m#

(}9C0C PDM 49Cn?1A;,9ITC0`L*"\mw15CLr49C
n?C'#

r!C'GGE" (PRTPRJUSR)

9C0r!n?C'1(PRTPRJUSR) |n4i4n?DX(C'r*mDGGE"#n
?\m1M*"_<IT4PK|n#

Z3B 9Cn?cNa9PDi 27

XkZ PRJ N}O8(zkT>XZDvn?DC'GGE"#zITZ USRPRF N
}OdkX(DC'r*m{r_9C *ALL 48>zki4Zn?PGGDyPK1

DyPGGE"#

Zns;v ADDPRJUSR r CHGPRJUSR |nOZhDCJ6pkC'`M5;pC
44((f#g{zZK|nO8(DC'r*mGCZT3)i_P|BCJ(D

*"_D,raP>{/}Td_P|BCJ(Di#g{*"_Tn?;PACJ
(,r_g{z8(DC'r*mCZ\m1D,raZ(fOr! ALL 4zfiP

m#

>}

: OUTPUT N}D1!5 *PRINT +9(fYQzT)r!#g{zdkTB|

n,r<16PT>D(f;YQz#

9C PRTPRJUSR |n

PRTPRJUSR PRJ(PAYROLL) USRPRF(*ALL) OUTPUT(*PRINT)

9C0`L*"\mw15CLr

Z0C PDM 49Cn?1A;O!q!n 46(r!C')#

5722WDS V5R1M0 &CLr*"\mw - r!n?C' 05/08/01 17:30:15 3f . . : 0001

--------------------------------------------------------------------------------

n? ...............: PAYROLL

C' ................: TREMBLAY

C'`M ..............: *ADMIN

n?CJ6p.............: *ALL

QZ(Di

*** ALL ***

--------------------------------------------------------------------------------

n? ...............: PAYROLL

C' ................: SMITH

C'`M ..............: *ADMIN

n?CJ6p.............: *ALL

QZ(Di

*** ALL ***

--------------------------------------------------------------------------------

n? ...............: PAYROLL

C' ................: ROBERTS

C'`M ..............: *DEVELOPER

n?CJ6p.............: *UPDATE

QZ(Di

DEVELOPER1

--------------------------------------------------------------------------------

n? ...............: PAYROLL

C' ................: LALONDE

C'`M ..............: *DEVELOPER

n?CJ6p.............: *READ

QZ(Di

*** ALL ***

<

16.IPRTPRJUSR

*****P m a x *****

|nzIDYQzD~Dy>

>}

: r_,IT(}8(TB|n4+dv<rdvD~#bPmC47(ZN&f

"F* FILE1 DdvD~,xD~PDZ;vI1+SUdv#

PRTPRJUSR PRJ(PAYROLL) USRPRF(*ALL) OUTPUT(*OUTFILE)

OUTFILE(*LIBL/FILE1) OUTMBR(*FIRST)

28 &CLr*"\mwC'8O

dvD~DG<q=kZb QADM PI53a)D}]bD~ QALYPUSR Py9C
DG<q=`,#

g{zZK|nO8(DC'r*mGCZ*"_D,r**"_Td_P|BCJ
(D?vi4(;vdvD~G<#g{zG*\m1x8(DC'r*m,rv4

(;vdvD~G<#

|DC'GGE" (CHGPRJUSR)

9C0|Dn?C'1(CHGPRJUSR) |n4|Dn?DX(C'r*mGGE"#h

zK|n,IT|DC'`M (USRTYPE)"CJ(^ (ACCESS) r_*"_Td_P
|BCJ(Di (DEVELOPGRP)#Xk7#z|DdGGE"DC';P+NN?~l

v={GD*"iP#;Pn?\m1E\4PKYw#

zIT|D10GG**"_D3vKDC'r*m(g{CK1I*n?\m1D

0),4.`;#IT(}+*"_DCJ(|D* *READ,IT}%*"_TyP*

" i D | B C J ( # * S n ? P { v X } % * " _ r \ m 1 D ( ^ , I 9 C

RMVPRJUSR |n#zZ DEVELOPGRP N}OdkDi{d1*"_H0_P(^
DiDf;Pm#

>}

: Y(H0dkKTB|n#

ADDPRJUSR PRJ(PAYROLL) USRPRF(ROBERTS) USRTYPE(*DEVELOPER)

ACCESS(*UPDATE) DEVELOPGRP(DEVELOPER1)

B;v>}5wgNSi DEVELOPER1 =i DEVELOPER2 4|D*"_ ROBERTS
D|BCJ(#

9C CHGPRJUSR |n

CHGPRJUSR PRJ(PAYROLL) USRPRF(ROBERTS) USRTYPE(*SAME)

ACCESS(*SAME) DEVELOPGRP(DEVELOPER2)

9C0`L*"\mw15CLr

Z0C PDM 49Cn?1A;O!q!n 42(|DC')#

*Jm*"_|Bm;v*"iPD?~,zXkZ CHGPRJUSR |nO8(yPi#

}g,** ROBERTS ZhT DEVELOPER1 M DEVELOPER2 iD|BCJ(,&
dkTB|n#

CHGPRJUSR PRJ(PAYROLL) USRPRF(ROBERTS) USRTYPE(*SAME)

ACCESS(*SAME) DEVELOPGRP(DEVELOPER1 DEVELOPER2)

g{VfDiPm+$,rWH4 0F4=a>1Ta>|n,"RZ|D10iPm.
0lw|#

}%C'GGE" (RMVPRJUSR)

9C0}%n?C'1(RMVPRJUSR) |n4}%n?MCn?PwiDC'r*mG
G#C'r*m QSECOFR GyPn?D\m1,ITSn?P}%yPn?\m1#

;Pn?\m1E\4PKYw#

1\m1r*"_k*n?r1zkSn?cNa9P{vX}%C'1,I9CK

|n#

>}

: TB|n+Sn? PAYROLL P}% ROBERTS#

Z3B 9Cn?cNa9PDi 29

9C RMVPRJUSR |n

RMVPRJUSR PRJ(PAYROLL) USRPRF(ROBERTS)

9C0`L*"\mw15CLr

Z0C PDM 49Cn?1A;O!q!n 44(}%C')#

RMVPRJUSR |nlkX?~,"Rg{PNN?~;lv=Z|nO8(DC'r*

mP,ra"vE"T{"#\m1IT9Cb){"4bvKC'(^[G*"_
9G\m1)Z9C RMVPRJUSR |n.0}ZTdxP$wDNN4bv$wn#
PXZ3vKk*n?1gNem*"iDE",N{Z1843D:ZC'k*n?1
xPV4;#

4(y>n?cNa9

>ZhvK;5P|n,zITC4:

v 4(`FZK&yhvDn? TRAVEL Dn?

v Zn?cNa9P4(i

v T>XZn?DE"

v ZdPGGC'

v |D{GD;)GGE"

9IT9C0`L*"\mw15CLra)DA;44(Kn?cNa9#ZK7
0D)2,z+Q-4(KZ313D<17Py5wDn?cNa9#

30 &CLr*"\mwC'8O

MASTER

MASTER

MASTER

SYSTEST

MASTER

TEST

MASTER

DEV_DAVE

<

17. Travel

MASTER

DEV_NICOLE

&CLrDn?cNa9

MASTER

DEV_KEN

9CBP=h44(KBDn?cNa9:

1. 9C CRTPRJ |n44(n?#TB|n+4(n? TRAVEL#g{z8bD0,
ICm;v{F44(Cn?,TczIT+|#fZ53O)+4709C#

CRTPRJ PRJ(TRAVEL) SHORTPRJ(TRL) TEXT('TRAVEL DESTINATIONS APPLICATION')

PX4(n?Dji,N{Z73D:4(n? (CRTPRJ);#

2. (}9CTB|n4Zn? TRAVEL P4(;vF* MASTER Dyi#

CRTGRP PRJ(TRAVEL) GRP(MASTER) SHORTGRP(MST) PARENT(*NONE)

TEXT('MASTER GROUP IN PROJECT TRAVEL')

ns,*Ki|,&CLrDyPzz6pD?~#PX4(iDji, N{Z14
3D:4(i (CRTGRP);#

3. 4(;vF* SYSTEST D53bTi#CJ1DrLi{Ma}k MASTER 4
4(Ki#Z TEXT N}OhvKi#G!,+KiD8i8(* MASTER#

X4K = h44(i TEST#Ki2 _ Pa}k MASTER,+Gd8 iGi
SYSTEST#

4. VZ#zITYN9C CRTGRP 4mSzh*D*"i#ZK>}P,RGh*}

v*"i,Vp* Dave"Nicole M Ken#yPb}vi<+ TEST iw*|GD
8i,"R<_Pa}k MASTER#+ Dave DiF* DEV_DAVE, Nicole D

iF* DEV_NICOLE,Ken DiF* DEV_KEN#

Z3B 9Cn?cNa9PDi 31

5. 9C PRTPRJ |n4i$n?cNa9GqG*D#PXr!n?E"Dji,N
{Z93D:r!XZn?DE" (PRTPRJ);#zD(f4p4&C`FZZ83D

<3PyT>D(f#g{zTa{P=zb,r*AB;=#g{zk|Dn?
cNa9DE","T9C CHGGRP |n4|DXZdP;viDD>hv#

6. VZ,h*+*"_GG=n? TRAVEL P,Tc{GIT*<$w#?0,zk
GGyPb}v*"_,9{G;TT:Di_P|BCJ(#C ADDPRJUSR |

n4jIKNq#r*h*P5JDC'r*m49CK|n,y T!qzD}v
,B4Vpd1 Dave"Nicole M Ken D?~#PXGGn?C'Dji,N{Z

263D:GG*"_Mn?\m1 (ADDPRJUSR);#

7. ZTn? TRAVEL GGK Dave"Nicole M Ken .s,IT9C PRTPRJUSR |

n4i${GDGGE"#PXr!bVE"Dji,N{Z273D:r!C' G
GE" (PRTPRJUSR);#zD(f4p4&C`FZZ283D<16PyT>D(f#

"b,zDC'r*m2P>Z(fO,-rGzQ-4(Kn? ,rxz2Gn
?\m1#

8. zITv(zh*8(;vr9n?\m1#9C CHGPRJUSR |n4jIKYw#

g{z h * P X gN4P K Y w D ji,N { Z 293 D :|DC'G G E "
(CHGPRJUSR);#YN(}9C PRTPRJUSR |n4i$zQjIDYw#

1zjIYw1,n?cNa94p4&`FZZ313D<17PDcNa9#z I\
kx;=X5yTqC9Cb)|nD|`5y-i#1jI1,G!*9C DLTPRJ
|n4>}Cn?,Tcd{KI9C,;>}#*>}n?,dkTB|n:

DLTPRJ PRJ(TRAVEL)

32 &CLr*"\mwC'8O

Z4B ?~*"i\

>Bhv:

v gNP>?~T0gNT>rr!|GDZ]#
v ITC4qCzTdGGDn?{FD|n,T0C4qCZG)n?ZzTd_

P(^Di{FD|n#b)|nozzKbzIT9CD)?~#

*Kb?~{GgN9lDT0k|{?~`X*Dfr,N{=<C. |{fr#

P>n?Mi{T0zDCJ(

*7(zZD)n?PxPKGGT0zITCJD)i,9C CL |nr0`L*"
\mw15CLr#9C0i/n?1(QRYPRJ) |n4q!zQTdGGDn?DP

m#2IT9C WRKPRJPDM 4i4zTd_PCJ(Dn?DPm#;)z*@K
n?{,M9C0r!n?C'1(PRTPRJUSR) |n4r!PXTn?DC'r*mC
J(DE"#0r!n?1(PRTPRJ) |nJmzr!;]T>n?PyPiD(f#9
IT9C WRKGRPPDM 4i4n?PyPiDPm#

ZZ2B 9Cn?MZ3B 9Cn?cNa9PDiP<Tb)|nxPKhv#PX
9C0`L*"\mw15CLr4P>zZdPxPKGGDn?Dji,N<Z
16B 9C`L*"\mw5CLr#

i4?~Pm (QRYPART)

g{z*@zQTdGGDn?D{F,rzITqCX(iP?~DPmr_n?
PDQw76#

9C QRYPART |n

QRYPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

9C0`L*"\mw15CLr

!q PDM wK%OD!n 6(9C?~)#Z

; s 4 Enter | # + P > S8 ( D i ; 1 =y i P D y P ?~ # 9 I T 9 C
WRKPARTPDM 4qCzTd_PCJ(DiDPm#

XhN}

8(*i/Dn?"i"`MM?~#

TZ TYPE M PART N},zIT8(`t`MM{F"yP`MM{F,r_X(

`MM{F#

TZ GRP N},zIT8(X({Fr_ *ALL#18( GRP(*ALL) 1:

v QRYPART |nOD SCAN M SCHPTH N};vT,x+Qwn?PDyPi

v 0i/?~1(fPavVX4D?~,r*P>K?~DyPf>

n?Mi

a>&8(n?MiD{F,

© Copyright IBM Corp. 1992, 2001 33

g{z9C`t`Mr?~{ (*generic*),r+i/k|%dDyP?~M`M#(}
9CGE (*) rJE (?) ^(?~{r`M48(yP?~r`MDS/,dP,* m
> 0 vr`vV{,x ? ;m> 1 vV{#}g,g{zZ TYPE N}O8( *C*,

ra&mZ?~`MPNNX=_PV{ C D`MDyP?~,}g CBLINC r
CINC#g{zZ PART N}O8( ?ABC,r+&m_PT ABC a2D 4 V{{
FDyP?~,}g DABC#PX QRYPART |nJmD?~`MDPm,N{=<
B. ?~`MT0|Gk|nDX5#QRYPART |n2JmC'(e?~`M#

r* *ALL TZ PART N}45_PXb,e,yT,9C **ALL 48(T ALL a
2DyP?~#

`t`MM{FZ0`L*"\mw15CLrPGT;,==&mD#PXji,
N{Z16B 9C`L*"\mw5CLr#

I!N}

ITZ QRYPART |nO8(;)I!E"#zIT8>&+|nDdv"MAN&"
Gq&C(hcNa9,T0&C9CDuQw76#

ACCKEY N}Jmzi/lv=X(C'DyP?~#1!5* ACCKEY(*ALL),|
+i/yP?~x;\G-+|GlvD#

9C OUTPUT N}48>&C+dv"MAN&#1!5* OUTPUT(*PRINT)#TZ
Kw5,(f;YQzAr!h8#OUTPUT(*OUTFILE) +dv<rdvD~#dv
D~MG;v|,K3)&ma{DD~#dvD~DG<q=kZb QADM PI5
3a)D}]bD~ QALYQPART Py9CDG<q=`,#

>}

IT(}8(`FZTBD|n4+dv<rdvD~#

QRYPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

OUTPUT(*OUTFILE) OUTFILE(*LIBL/FILE1) OUTMBR(*FIRST *REPLACE)

>}

g<18yv,TB|n+Zn? PAYROLL PiR?~ RPGSRC BIWKLY,WHQw

i DEVELOPER1#ZCiP4R=C?~,rK QRYPART |n+XE1!Qw76
(ZK>}P* DEVELOPER1"TEST"MASTER)4iRC?~,"Zi MASTER

PR=K|#<19PD(f;YQzAr!h8#

QRYPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

OUTPUT(*PRINT) SCAN(*YES) SCHPTH(*DFT)

34 &CLr*"\mwC'8O

<

18.

i/?~

5722WDS V5R1M0 &CLr*"\mw - i/?~ 05/08/01 12:00:00 3f ..: 0001

n? ...............: PAYROLL

i ................: DEVELOPER1

`M ................: RPGSRC

?~ ................: BIWKLY

CJ\?(VP_)..........: *ALL

(hcNa9 ............: *YES 1

Qw76...............: *DFT 2

zcQwj<D?~

?~ `M oT i DUZ VP_ D>

BIWKLY RPGSRC RPG MASTER 05/08/01 SMITH |B$J%
1 3 4 5 6 7

<

19.

i/?~(fDy>

*****P m a x *****

ON|D

1 8(Gq*Zn?cNa9PQw8(D?~#
2 Z SCHPTH N}O8(DQw76#

3 ?~DoT#

4 ZdPR=?~Di#

5 ON|D?~Z]DUZ#

6 T>lvK?~DK1DC'r*m(g{PD0)#t*UW,rm>4l

v?~#

7 T>?~DNNhvTD>#

Z4B ?~*"i\ 35

T>Mr!?~ (DSPPART)

9C0T>?~1 (DSPPART) |n4T>rr!?~DZ]rXw#m1P>K
DSPPART |nwCD|nT0wV?~`M#

>}

8(n?"i"`MM?~D{F#9IT!qk*+dv<rN&,T0g{Z8
(DiP4R=3v?~,Gq9C1!Qw764iRC?~#

DSPPART PRJ(PAYROLL)

TYPE N}7(;wC4T>rr!?~D|n#

m1.;wC4T>x(`M?~D|n

?~`M I DSPPART wC4T>?~D|n

BNDDIR DSPBNDDIR
CLD n/a
CMD DSPCMD
DTAARA DSPDTAARA
xPoTtT DSPF D FILE STRSDA(STRSDA ;wC,R DSPFD |n;wC4r!|

_PoTtT ICFF" LF"PF
r PRTF D FILE

JOBD DSPJOBD
JOBQ WRKJOBQ
MENU (UIM) DSPMNUA
MODULE DSPMOD
MSGF DSPMSGD
MSGQ WRKMSGQ
OUTQ WRKOUTQ
PARTL¹ DSPPFM
PGM DSPPGM
PNLGRP n/a
SCHIDX n/a

4, |,, Qw76, 9(!

n?~,PRDDFN"PRDLOD

M SYSTEML ?~
SRVPGM DSPSRVPGM
VRPGBIN M VRPGTXT DSPFD

":

1. PXT>`M* PARTL D?~Dji,N{Z943D:T>?~Pm?~;#

G#)

DSPFD

STRSEU

OUTPUT N}7(&C+dv"MAN&#9C1!5 OUTPUT(*) 49dvvVZA
;O#OUTPUT(*PRINT) +9dvYQzAr!h8DdvSPO#

36 &CLr*"\mwC'8O

SCAN N}7(Gq9C1!Qw764iR?~(g{4Z8(DiPR=C?~D

0)#g{zk;QwZ GRP N}O8(Di,r9C SCAN(*NO)#g{zkQw1
!Qw76PDi,r9C SCAN(*YES)#

Z4B ?~*"i\ 37

38 &CLr*"\mwC'8O

Z5B 4(?~

>BhvgN4(?~#IT4(B?~,2IT+Vf?~4FAB?~#

9IT(}+ OS/400 Tsr4I1<k=0&CLr*"\mw1X~P44(?~#
ZZ6B <k&CLrPTKxPKhv#

?~`M

P8V`pD?~:

v zIT`kD4

v dvTs

v |(4I1

v Ts(g,;G4R;GI`k4zID}]xr{"D~)

v |,8(KQw76DiPmDQw76?~

v |,`k|n0dN}DPmD9(!n?~

v |,d{?~DPmD?~Pm?~

v C4b0&CLrDz7(eMz70k?~

m2 P>KzIT4(D?~D`M#R_D;PT>K?~D`X*oT#Km;|
((}"v BLDPART"IMPPART r CPYPART |nx4(DI53a) D?~`

M: PGM"FILE"CLD" CMD"PNLGRP"MENU"MODULE M SRVPGM# Z5
23Dm5 P>K\0&CLr*"\mw1&\?~'VD OS/400 Ts`M#

;\ C CRTPART |n 4(II BLDPART |n4(DG)`M D?~ ,}G
BLDPART |n4(D?~Gf"Z4I1PD?~#

m2.?~`MMoT

?~`M oT

BLDOPT *NONE
BNDDIR *NONE
BNDSRC BND
CBL36INC CBL36
CBL36SRC CBL36
CBLINC CBL, SQLCBL
CBLLEINC CBLLE, SQLCBLLE
CBLLESRC CBLLE, SQLCBLLE
CBLSRC CBL, SQLCBL
CINC C, CLE, SQLC, SQLCLE
CLDSRC CLD
CLLESRC CLLE
CLPSRC CLP

© Copyright IBM Corp. 1992, 2001 39

m2.?~`MMoT(x

?~`M oT

CLSRC CL
CMDSRC CMD
CSRC C, CLE, SQLC, SQLCLE
DDSSRC DSPF, ICFF, LF, PF, PRTF
DSPF36SRC DSPF36
DTAARA *NONE
FILE SAVF
JOBD *NONE
JOBQ *NONE
MNU36SRC MNU36
MSGF *NONE
MSGF36SRC MSGF36
MSGQ *NONE
OCL36SRC OCL36
OUTQ *NONE
PARTL *NONE
PNLINC PNLGRP
PNLSRC MENU, PNLGRP
PRDDFN *NONE
PRDLOD *NONE
REXXSRC REXX
RPG36INC RPG36
RPG36SRC RPG36
RPGINC RPG, SQLRPG
RPGLEINC RPGLE, SQLRPGLE
RPGLESRC RPGLE, SQLRPGLE
RPGSRC RPG, SQLRPG
RPT36SRC RPT36
SCHIDX *NONE
SCHPTH *NONE
SRT36SRC SRT36
SYSTEML *NONE
TXT36SRC TXT36
TXTSRC *NONE
VRPGBIN VRPG
VRPGTXT VRPG

)

40 &CLr*"\mwC'8O

4(B?~ (CRTPART)

9C04(?~1(CRTPART) |n4Zn?cNa9DiP4(B?~#v1iPP4
fZ,{M,`MD?~,R;P_P,{FM,`MD?~ITa}ACiD1!

Qw761,E\4(x({FM`MD?~#g{1!Qw76PQ-fZ{FM
`M`,D?~,r1z4(C?~1Xk8(a}k *NONE#<G<20:

<

}g,g{QZDEVELOPER1 iP4(K;vF* RPGSRC BIWKLY D?~,xa

}k* MASTER,rxC?~D?jiG MASTER,G4,zITZi DEVELOPER2
P4({FM`M`,D?~D(;=(MG8(a}k *NONE#byM\bKP=
v_P`,{FM`MD?~<I\a;a}A,;iDJb#

XhN}

8(y4(?~Dn?"i"`MM?~{#zXkT}ZdP4(B?~Di_P

|BCJ(#PX CRTPART |nJmD?~`MDPm,N{=<B. ?~`MT0

|Gk|nDX5#

IT4(`M* PARTL D?~4zYzywD|D,9|G_P;BD|{<(#v
Z8(K TYPE(PARTL) 1,EI8( PART(*GENERATE)#zIDZ;v?~Pm

{+ * nnnn000001, d P, nnnn G n? r F# s xz I D? ~ Pm { +*
nnnn000002"nnnn000003 HH#g{zID{FQfZ,r CRTPART |n+Lx7

SA{FD}V]v(n`=;vL(N}),1=R=;fZD?~Pm{*9#

14(?~1,|;alv=C'r*mP#

20.

4(?~

Z5B 4(?~ 41

I!N}

&Z LANG N}O8(CZ?~DoT#8(oTr_9C1!5 LANG(*DFT)#
*DFT ;f;*Q-*y4(?~D`M(eD4V83rP>DZ;VoT#g{;
h*oTD0,r8( LANG(*NONE)#(PX?~`MM`X*oTDPm,N{Z3
93Dm2#)

g { z } Z 4 ( D ? ~ ; G 4 ? ~ , } g , } Z 4 ( D G ` M *

MSGF"DTAARA"JOBD r MSGQ D?~,rIT8(Gqk*a>J1D4(|

n#Z523Dm5 P>K\0&CLr*"\mw1&\?~'VDyP OS/400 Ts
`M#

}g,g{z}Z4(;v`M* DTAARA D?~,Rz!qK PRMPT(*NO),r+

9C04(}]x1(CRTDTAARA) |n1!5#}]xG *CHAR,R$H* 256 v

VZ#Z4(}]x.s,M;\|DC}]xDtT#+T/a)dk(gTs{
Mb{)#

ZKivB,g{z!q PRMPT(*YES),r+a> CRTDTAARA |n#;\|DT

/ndDE",gTs{Mb{#}]xIT*NN`MMs!#

g{z}Z4(D?~D`M* BLDOPT,r CRTPART |n+Q53a)D BLDOPT

4I14F=KB?~D4I1P#PXb)?~DE",N{Z1383D:9C9(

!n;#

IT*#fD~4(`M* FILE xoT* SAVF D?~#

g{z}Z4(D?~D`M* SCHPTH,r CRTPART |n+Q1!Qw76S8

(DiE=KB?~D4I1P#PXb)?~DE",N{Z993D:4(Qw7

6?~;#

g{z}Z4(D?~D`M* SCHIDX,r CRTPART |n+Cz}Z4(D?~
D{F4nd TITLE N}#g{zTK;zb,r&CZ CRTPART |nO8(

PRMPT(*YES),Tca>04(Qww}1(CRTSCHIDX) |n#

&CZ PRMCODE N}O8(zGqk*a}D?~#("GyP?~<gK;}g,
zITv(;*bT?Dx4(?~,"R;<8+|w*&CLrD?~4#f)#

g{z;rca}C?~,r!q1!5 PRMCODE(*GRP)#b+<BQ* GRP N}
O 8 ( D i x(e D a } k V d x B ? ~ # g { z ; k a } ? ~ , r ! q

PRMCODE(*NONE),Sx;\a}C?~#g{zh*iR3viDa}k,I9C
0r!n?1(PRTPRJ) |n#

K&\?~+7#y4(D?~P;fZ,xR;1G(;D#"b,PRMPART |n
OD EXTEND N}Jm9(}LPDdv?~k`X*D4?~;pa}#dv?~

Da}k* *NONE#

SRCFILE N}G8(4D~DX=,Z4D~P,?~w*44I1f"(g{JCD

0)#!q SRCFILE(*TYPE) TcTC`MD?~9CI53a)D1!4D~,r_

dkX(4D~D{F#g{z9C CRTPART r IMPPART |n44(|,?~,
R SRCFILE N}k *TYPE ;,,rXk7#C4PDD~{4^(|,?~#m3 T
>K?~`MT0ZdPf"|GD`& OS/400 1!4D~#z9IT8(f"Z4

D~I1(Z ADDADMTYPE |nO8(D SYSTYPE(*MBR))PDC'(e`MD

42 &CLr*"\mwC'8O

{F#

m3.?~`M0d`&D1!4D~

`M 1!4D~

BLDOPT QBLDOPTSRC
BNDSRC QSRVSRC
CBL36INC QS36SRC
CBL36SRC QS36SRC
CBLINC QLBLSRC
CBLLEINC QCBLLESRC
CBLLESRC QCBLLESRC
CBLSRC QLBLSRC
CINC(oT* C"CLE"SQLC"SQLCLE) H
CLDSRC QCLDSRC
CLLESRC QCLLESRC
CLPSRC QCLSRC
CLSRC QCLSRC
CMDSRC QCMDSRC
CSRC(oT* C"CLE"SQLC"SQLCLE) QCSRC
DDSSRC QDDSSRC
DSPF36SRC QS36SRC
MNU36SRC QS36SRC
MSGF36SRC QS36SRC
PNLINC QPNLSRC
PNLSRC(oT* MENU) QMNUSRC
PNLSRC(oT* PNLGRP) QPNLSRC
PRDDFN QDFNSRC
PRDLOD QLODSRC
OCL36SRC QS36SRC
REXXSRC QREXSRC
RPG36INC QS36SRC
RPG36SRC QS36SRC
RPGINC QRPGSRC
RPGLEINC QRPGLESRC
RPGLESRC QRPGLESRC
RPGSRC QRPGSRC
RPT36SRC QS36SRC
SCHPTH QSCHPTHSRC
SRT36SRC QS36SRC
SYSTEML QSYSTEMSRC
TXT36SRC QS36SRC
TXTSRC QTXTSRC

Z5B 4(?~ 43

Z PARTL N}P8( PARTL {+<B CRTPART |nT/+y4(D?~mSA
z8(D?~Pm?~P#g{zG53\m1,r8( PARTL(*PRV) 1+Jmz9

CCZKn?Dns;v?~Pm?~D{F#+G,g{zG*"_,rKN}j
6CZ8(iDns;v?~Pm?~D{F#g{z}Z9C QSECOFR C'r*m
KPK|n,rK5^'#PARTL N}D1!5* *NONE,|8>y4(D?~+;

a;mS=?~Pm?~P#

g{fZBPiv,rXk8(?~Pm?~:

v Z|nO8(DiGC PARTLREQ(*YES) 4(D
v 8(D`M;G PARTL

g{Z CRTPART |nO8(K?~Pm?~,r:

v ?~Pm?~XkfZZSZdP4(?~Di*<D1!Qw76P#

v y4(D?~{;mSA8(D?~Pm?~P(g{C?~{P;fZD0)#

(49|n4\4(?~,2I\a"zKiv)#

g{8(D`MG PARTL,r+vT PARTL N}#Zd{ivB,PARTL N}+<
B8(D?~Pm?~;|B#

9C TEXT N}4*B?~dk;)hvTD>#g{;dkNND>,r+9C1!
5 *BLANK,xhv#t*UW#

>}

BP>}5wgN4(F* PAYROLL DEVELOPER1 RPGSRC BIWKLY D?~#

9C CRTPART |n

CRTPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY) LANG(RPG)
PRMPT(*NO) PRMCODE(*GRP) SRCFILE(QRPGSRC) TEXT(*BLANK)

9C0`L*"\mw15CLr

40C PDM 49C?~1A;OD0F6=4(1#

?~;a}"w*4I1f"Z QRPGSRC P,|G`M* RPGSRC D?~D1!4

D~#bk8( SRCFILE(*TYPE) `,#

TB|n+Zn? PAYROLL Di DEVELOPER2 P4(?~ MNTHLY#

CRTPART PRJ(PAYROLL) GRP(DEVELOPER2) TYPE(CSRC) PART(MNTHLY) LANG(C)
PRMPT(*NO) PRMCODE(*NONE) SRCFILE(QCSRC) TEXT(*BLANK)

a}k *NONE 8>?~;\;a}#?~w*4I1f"Z QCSRC P,|G`M*
CSRC D?~D1!4D~#bk8( SRCFILE(*TYPE) `,#

4F?~ (CPYPART)

4(B?~Dm;V=(M G+Vf?~4F=8(DiMn?P#9C04F?
~1(CPYPART) |n44PKYw#

44 &CLr*"\mwC'8O

x({FM`MD?~vI4F=P;|,P`,{FM`MD?~DiP#g{Z

*|,;4F?~DiD1!Qw76PQ-fZ`,{FM`MD?~,r1z4
FC?~1Xk8(a}k *NONE#

zXkT|,y4F?~Di_PAr|BCJ(,RTSU1>Di_P|BCJ
(#

Z4F?~.s,|;alv=C'r*mP#

1z4F_-D~?~1,XkWH4F|yyZDomD~,r_ComD~Xk

ZSUiPQfZ#g{z}Z4FomD~,rZ DATA N}O8(zGq9k4
FomD~PD}]#

g{zk|Dy4F?~DtT(gC?~DoTrD>),rZjI4F.s9C

0|D?~E"1(CHGPARTINF) |n#

zk4FD?~

Z CPYPART |nO,8(4j<M

9C FROMPRJ"FROMGRP"FROMTYPE M FROMPART N}#PX CPYPART |

nJmD?~`MDPm,N{=<B. ?~`MT0|Gk|nDX5#

g{zk 4 F y P ` MD?~, r 9 C FROMTYPE(*ALL), g { zk4FZ
FROMTYPE N}O8(D`MDyP?~,r9C FROMPART(*ALL)#

g{Zz8(DiPR;=zk4FD?~,r9C SCAN N}#SCAN N}8(g
{Z8(DiPR;=y4FD?~,GqQw1!Qw76TR=y4FD?~#

1!5* *YES;b+QwS8(i1=yiD76PDyPi#

zk4(D?~

TOPRJ"TOGRP"TOTYPE M TOPART N}Jmz8(y4(D?~Dn?"i"`
MM?~#g{z;ndb)N},r+9CZ from N}O8(DG){F#g{z

Z FROMTYPE M FROMPART N } O 8 ( K *ALL, rX k 9 C 1 ! 5
TOTYPE(*FROMTYPE) M TOPART(*FROMPART)#

g{-<?~G4I1,r TOTYPE N}XkG4`M#}g,g{-<?~D`M
* RPGSRC(4I1`M* RPG),rIT+|4F=`M* RPGSRC"CSRC r
RPGINC D?~P#

1+4?~4F=m;V4`M1,}g,+ RPGSRC 4F= CSRC,r_+ TXTSRC
4F= CBLSRC 1,&8(J1DoT#}g,g{zZ TOTYPE N}O8(

CBLSRC,roT CBL ;8(xC?~;g{zZ TOTYPE N}O8( DDSSRC,
r&8(oT DSPF#TZC'(e`M,8(D1!oTGQ-*y4(?~D`M

(eD"4V83rP>DZ;VoT#

?j

j<#4E"|(n?"i"`MM?~#

g{-<?~;G OS/400 4I1,rBD?~`MXkf"ZkZ FROMTYPE N}

O8(D?~`M`,DTs`MP#(PX OS/400 4I1`MM`&D0&CLr*

"\mw1?~`MDPm,N{Z503Dm4#)PX CPYPART |nJmD?~`M
DPm,N{:=<B. ?~`MT0|Gk|nDX5;#CPYPART |n9JmC'

(e`M#

Z5B 4(?~ 45

;*?~{#V;d,MI9CK|n+`M* VRPGTXT r VRPGBIN D?~S;
vi4F=m;viP,r_S;vn?4F=m;vn?P#

9C PRMCODE zkN}48(Gq*a}B?~#KN}JCZ8v|n,RZF
*Z763D:a}k;D;ZPxPKhv#

9C SRCFILE N}48(ZdP?~;f"*4I1D4D~#KN};JCZTZ

2153D:=<B. ?~`MT0|Gk|nDX5;PyP>D CPYPART P'D?~

{F

`M#1!5* *SAME#4D~{k-<?~y9CDD~{`,#9C

X(D4D~,r_9C1!5 *TYPE 48(+9CI53a)D1!4D~#(PX
1!4D~DPm,N{Z433Dm3#)

9C DATA N}48(14FomD~1Gq4F}]#1!5* *NO#

Z PARTL N}P8( PARTL {+<B CPYPART |nT/+y4(?~mSA8
(D?~Pm?~P#g{zG53\m1,r8( PARTL(*PRV) 1+Jmz9CC

ZKn?Dns;v?~Pm?~D{F#+G,g{zG*"_,rKN}j6C
Z8(iDns;v?~Pm?~D{F#g{z}Z9C QSECOFR C'r*mKP

K|n,rK5^'#PARTL N}D1!5* *NONE,|8>y4(D?~+;a;

mS=?~Pm?~P#

g{fZBPiv,rXk8(?~Pm?~:

v Z|nO8(DiGC PARTLREQ(*YES) 4(D
v 8(D`M;G PARTL

4j6

g{Z CPYPART |nO8(K?~Pm?~,r:

v ?~Pm?~XkfZZS4F?ji*<D1!Qw76P#

v y4(D?~{;mSA8(D?~Pm?~P(g{C?~{P;fZD0)#

(49|n4\4(?~,2I\a"zKiv)#

g{8(D`MG PARTL,r+vT PARTL N}#Zd{ivB,PARTL N}+<
B8(D?~Pm?~;|B#

ZZ473D<21P5wDn?cNa9P,?~ BIWKLY Si TEST ;4F=i
DEVELOPER3 P#

46 &CLr*"\mwC'8O

<

21.

1?~fZZ8viP14F?~

>}

TB|n+4F?~ BIWKLY#

9C CPYPART |n

CPYPART FROMPRJ(PAYROLL) FROMGRP(TEST) FROMTYPE(RPGSRC) FROMPART(BIWKLY)
TOPRJ(*FROMPRJ) TOGRP(DEVELOPER3) TOTYPE(*FROMTYPE) TOPART(NEWPART)
SCAN(*YES) PRMCODE(*GRP) SRCFILE(*TYPE)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 3(4F)#

g| n P y 8(D G y , ?~ RPGSRC BIWKLY Si TEST ; 4 F= i
DEVELOPER3 D?~ RPGSRC NEWPART P#4FI&,r*Z DEVELOPER3 i

Pr_Z DEVELOPER3 iDa}76P<;fZbV`MM{FD?~#g{K?~
Za }76P 4fZ,r|v I;lv x;a;4F# }g,g {F* RPGSRC
NEWPART D?~fZZi MASTER P,ra"zbViv#

>}

TB|n+ RPGSRC BIWKLY Si DEVELOPER1 P4F=i DEVELOPER3 P#

CPYPART FROMPRJ(PAYROLL) FROMGRP(DEVELOPER1) FROMTYPE(RPGSRC) FROMPART(BIWKLY)
TOPRJ(*FROMPRJ) TOGRP(DEVELOPER3) TOTYPE(*FROMTYPE) TOPART(*FROMPART)
SCAN(*NO) PRMCODE(*GRP) SRCFILE(*TYPE)

B?~D`MM{Fky4F?~D`MM{F`,#Z PRMCODE N}O8(K1
!5 *GRP#SRCFILE(*TYPE) 8(?~;f"Z1!4D~ QRPGSRC P#K>}

Y(zT DEVELOPER3 i_P|BCJ(#

Z5B 4(?~ 47

g{Zi DEVELOPER1 PR;=C?~,r|n+'\,r*8(K SCAN(*NO)#
g{?~fZZi DEVELOPER3 (DEVELOPER3"TEST2 r MASTER)D1!Q

w7 6 P , r9C CHKOUTPART |n,x;\ y 8(Da} k G24 # PX
CHKOUTPART |nDji,N<Z613D:lv?~ (CHKOUTPART);#

48 &CLr*"\mwC'8O

Z6B <k&CLr

VfD&CLr"&CLrDw?V,T0vpI1rTs<ITCZ0&CLr*
"\mw1&\?~DXF.B#K&\?~Jm*"_r\m1+Tsr4I1<

k=n?cNa9P#<km>+&CLrD;vr`vi~S OS/400 b4F=0&
CLr*"\mw1n?cNa9P#9C0<k?~1(IMPPART) |n44PKY

w#

>BhvgN+vpTsr{v&CLr<k=n?cNa9P,"a)KXZgN
4PK } L D ; ) p=8<E"# Z < k &CL r .0,z&C()1 d 4 D A
ADTS/400: Application Development Manager Introduction and Planning Guide PPX

<k&CLrDG;Z,|P>Kz&C<GD;)Bn#

<k=n?cNa9P

(#,\m19C IMPPART |n44F{v&CLrr_&CLrD;s?V,x*
"_\I\;4F\YD4I1rTs#\m1IT+Tsr4I1<kn?cNa
9PDNNiP;*"_IT+|G<k={GTd_P|BCJ(DiP#

XkTzk<kDTsMD~_Pc;D(^#h*T4D~_P *USE (^E\<k

dI1,xXkTzk<kDNNTs_P *USE M0Ts\m1(^#g{zTT<
<kDTs;P}7D(^,r IMPPART |n+'\#

g{zD&CLrV"Z8vbP,rITWH<k;vbPDyPTsMI1,;
sYLxB;vb,1=I&X<k&CLrDyPi~*9#

g{8(K REPLACE(*NO),r IMPPART |ngT0GyKw#g{Z+|,;<
k?~DiD1!Qw76PQ-fZ`,{FM`MD?~,r1z<kC?~1

Xk8(a}k *NONE#?~DD>hv;|B,T43y<kTsr4I1DD>
hv#1<k?~1,|"4;lv=zDC'r*mP#

g{8(K REPLACE(*YES),RfZ`,{FM`MD?~"RQ-;,;C'Z?
jiPlv,rC?~+;<kD?~f;#g{C?~4;lv},R|fZZ1
!cNa9P,rC?~;lvxs;f;#rK,1<kjI1,lvD?~Va
;lkX%#

g{f REPLACE(*YES) ;p98(K ARCHIVE(*YES),r?~D-<f>;i5#

*,$0&CLr*"\mw1Dj{T,;)<kDTsI*n?PD?~,rT

y<kTsDyP(^Ma;|D#Ty<kTsD+C(^;hC* *EXCLUDE#T
y<kTsD(C(^G9C(^Pm4 hCD#PXji,N{ iSeries Security

Reference#

g{z9C0`L*"\mw15CLr,rIT9C09Ci1A;OD!n 38(<
k)4<kI1MTs#9IT9CF* IM M IO D C'(e!n4ozzxP<
k#IM +<kI1,IO +<kTs#PXgN4PKYwDE",N{Z2083D:9

CC'(e!n;#

© Copyright IBM Corp. 1992, 2001 49

(#,;&<kI BLDPART |n4(D?~#BLDPART |nh*\;`k<kD?
~TKbQ-<kDw?~.dDX5,xxXB4(dv?~#

g{z<kdv?~,r1 BLDPART T<9(?~1,9((fP+"v/f,49
Z9(DQw76PI\fZ,{D4?~1`GgK#ZK5}P,+h*>}d
v?~,"YN"v BLDPART |n#

g{zk<k_-D~,rXkWH+CD~yyZDomD~<k=,;iP#<
k *ALL Ts1;h*4PK=h,r* IMPPART |n+7#omD~GZ_-D

~.04FD#

y<kDQGkU>DD~Zn?cNa9P+

zk<kDD~rTs

Z IMPPART |nO,Xk8( from M to j<#from E"Im>zk<kDE"D
OS/400 bMTsiI#g{z}Z<k4D~,r9*8>I1{#9C OBJ"
OBJTYPE M MBR N}4j6zk<kD) OS/400 Ts#

Z OBJ N}O8(b{#Xb5 *LIBL M *CURLIB r_X(Db{G\'VD#

9*Z OBJ N}O8(TsD{F,r_9C`t{#ITCq= ABC* 48(`t

Ts,b+&mTz8(DV{*7(g ABC)DyPTsrD~#X(DTs{+<
k;vTs#Xb5 *ALL +<kZ8(bPR=DyPTs#+G,*"b,;\(
}Z IMPPART |nO8( OBJ(*LIBL/*ALL) 4<kZbPmPR=DyPTs#X
b5 *ALL ;N;\dO;vb9C#9a<k_PC'(e`MDNNTsT0*|

G(eDJ1 *CPY Yw#

;a

;GkU>#

OBJTYPE N}8>zk<kDV`MD OS/400 Ts#;\<k\0&CLr*"\
mw1&\?~'VD OS/400 Ts`M#m4 P>K\'VD4I1`M,Z523D

m5P>K\'VDTs`M#9IT<kC'(e?~`M#

m4.&CLr*"\mw&\?~'VD

OS/400 Ts`M OS/400 I1`M ?~`M ?~oT

*FILE VRPGTXT¹ VRPG
*FILE BND BNDSRC BND
*FILE C² CINC C
*FILE C² CINC CLE
*FILE C³ CSRC C
*FILE C³ CSRC CLE
*FILE CBL⁴ CBLINC CBL
*FILE CBL⁵ CBLSRC CBL
*FILE CBL36 CBL36INC CBL36
*FILE CBL36 CBL36SRC CBL36
*FILE CBLLE⁴ CBLLEINC CBLLE
*FILE CBLLE CBLLESRC CBLLE
*FILE CL CLSRC CL
*FILE CLD CLDSRC CLD

OS/400

4I1`M

50 &CLr*"\mwC'8O

m4.&CLr*"\mw&\?~'VD

OS/400

4I1`M(x

)

OS/400 Ts`M OS/400 I1`M ?~`M ?~oT

*FILE CLLE CLLESRC CLLE
*FILE CLP BLDOPT⁶ *NONE
*FILE CLP CLPSRC CLP
*FILE CLP PRDDFN⁶ *NONE
*FILE CLP PRDLOD⁶ *NONE
*FILE CMD CMDSRC CMD
*FILE DSPF DDSSRC DSPF
*FILE DSPF36 DSPF36SRC DSPF36
*FILE ICFF DDSSRC ICFF
*FILE LF DDSSRC LF
*FILE MENU PNLSRC MENU
*FILE MNU36 MNU36SRC MNU36
*FILE MSGF36 MSGF36SRC MSGF36
*FILE OCL36 OCL36SRC OCL36
*FILE PF DDSSRC PF
*FILE PNLGRP⁴ PNLINC PNLGRP
*FILE PNLGRP PNLSRC PNLGRP
*FILE PRTF DDSSRC PRTF
*FILE REXX REXXSRC REXX
*FILE RPG⁴ RPGINC RPG
*FILE RPG RPGSRC RPG
*FILE RPG36 RPG36INC RPG36
*FILE RPG36 RPG36SRC RPG36
*FILE RPGLE⁴ RPGLEINC RPGLE
*FILE RPGLE RPGLESRC RPGLE
*FILE RPT36 RPT36SRC RPT36
*FILE SQLC² CINC SQLC
*FILE SQLC² CINC SQLCLE
*FILE SQLC³ CSRC SQLC
*FILE SQLC³ CSRC SQLCLE
*FILE SQLCBL⁴ CBLINC SQLCBL
*FILE SQLCBL⁵ CBLSRC SQLCBL
*FILE SQLRPG⁴ RPGINC SQLRPG
*FILE SQLRPG RPGSRC SQLRPG
*FILE SRT36 SRT36SRC SRT36
*FILE TXT SCHPTH⁶ *NONE
*FILE TXT SYSTEML *NONE
*FILE TXT36 TXT36SRC TXT36
*FILE TXTSRC⁷ *NONE

Z6B <k&CLr 51

m4.&CLr*"\mw&\?~'VD

OS/400 Ts`M OS/400 I1`M ?~`M ?~oT
"b:

1. VRPGTXT ?~ P?vI1DI1 `MGI VARPG y ]dZ]4 hCD,"R+I
IMPPART |n4#t#

2. g{z<kF* H D4D~,r+4(`M* CINC D?~#g{I1`M* C,r<k
D?~DoT+* CLE#`FX,g{I1`M* SQLC,r?~oT+* SQLCLE#g{
zk<koT* C r SQLC D CINC ?~,rXkT=X8(oT#

3. g{I1`M* C R?~`M* CSRC,ry<k?~DoT+* CLE#g{zk<koT
* C r SQLC DK?~,rXkT=X8(oT#`FX,I1`M SQLC +_PoT
SQLCLE#

4. IT<k|,,+G;PXZ OS/400 5 3DNNE"4+4k|,xV*4# 1<k
RPG"SQLRPG"CBL"SQLCBL r PNLSRC I11,0&CLr*"\mw1?~+IC

k 4 I 1 T & D 1 ! ? ~ ` M # * + b ) I 1 < k = ` M *

RPGINC"RPGLEINC"CBLINC"CBLLEINC r PNLINC D?~P,XkT=X8(?~`
M,r_9C CVTPART |n4|DC?~D`MMoT#

5. g{z<k`M* CBL r SQLCBL DI1,R||,`vLr,r BLDPART |n+;
`kZ;vLr#d{Lra;vT,"RZ9((fP+"v/f{"#

6. I 0 &CL r * " \ m w 1 4 ( D X b 4 D ~ G
QBLDOPTSRC"QSCHPTHSRC"QDFNSRC"QLODSRC M QSYSTEMSRC#g{zSb)
4D~P<kI1,ra4(J1`MD?~#}g,1S QBLDOPTSRC P<k4I11,
M4(K BLDOPT ?~#

7. ZCmP4P>d`MDyPI1Gw*`M* TXTSRC"oT* *NONE D?~4<kD#

1<kI11,I1`M;a|D#

OS/400

4I1`M(x

)

m5.\&CLr*"\mw&\?~'VD

OS/400 Ts`M OS/400 TstT ?~`M ?~oT

*BNDDIR BNDDIR *NONE
*CLD CLD CLD
*CMD CMD CMD
*DTAARA DTAARA *NONE
*FILE DSPF FILE DSPF
*FILE ICFF FILE ICFF
*FILE LF FILE LF
*FILE PF FILE PF
*FILE PF PARTL *NONE
*FILE PF VRPGBIN VRPG
*FILE PRTF FILE PRTF
*FILE SAVF FILE SAVF
*JOBD JOBD *NONE
*JOBQ JOBQ *NONE
*MENU UIM MENU *NONE
*MODULE CBLLE MODULE CBLLE
*MODULE CLE MODULE CLE

OS/400

Ts`M

52 &CLr*"\mwC'8O

m5.\&CLr*"\mw&\?~'VD

OS/400 Ts`M OS/400 TstT ?~`M ?~oT

*MODULE CLLE MODULE CLLE
*MODULE RPGLE MODULE RPGLE
*MSGF MSGF *NONE
*MSGQ MSGQ *NONE
*OUTQ OUTQ *NONE
*PNLGRP PNLGRP *NONE
*PGM C PGM C
*PGM CBL PGM CBL
*PGM CBL36 PGM CBL36
*PGM CBLLE PGM CBLLE
*PGM CLE PGM CLE
*PGM CLLE PGM CLLE
*PGM CLP PGM CLP
*PGM RPG PGM RPG
*PGM RPG36 PGM RPG36
*PGM RPGLE PGM RPGLE
*SCHIDX SCHIDX *NONE
*SRVPGM SRVPGM *NONE
*SRVPGM CBLLE SRVPGM CBLLE
*SRVPGM CLE SRVPGM CLE
*SRVPGM CLLE SRVPGM CLLE
*SRVPGM RPGLE SRVPGM RPGLE

OS/400

Ts`M(x

)

Z OBJTYPE N}O9CXb5 *ALL,TT>*4FX(bPyP\'VDTs#K
5;\kbPm,19C,xR;N;\9C;vX(b#

Xb5 *SRC 8>z;k*4Fw*4omD~DTs#8( *SRC 1,a<k_P
TstT PF Rw*4omD~DyPTs#m4T> OS/400 I1`MgNk0&C

Lr*"\mw1?~`MT&#"b,9a<kmP4PvDI1`MDyPI
1,+b)I1+w*`M* TXTSRC D?~#K5;\kbPm,19C,xR;

N;\9C;vX(b#

4

Xb5 *NONSRC T>*4F

w*4omD~DyPTs#8( *NONSRC 1,a

<kkZ523Dm5PPvDTs`M`%dDyPTs#K5;\kbPm,19

C,xR;N;\9C;vX(b#

IZ OBJTYPE N}O8>X(Ts`M#}g,I8( OBJTYPE(*PGM) T<ky

PLr,r8( OBJTYPE(*MSGF) T<kyP{"D~#g{8( OBJTYPE(*FILE),

r a < k ` M * *FILE R _ P t T PF( } ] M 4 o m D ~ ) "
LF"DSPF"PRTF"SAVF r ICFF DyPTs#<k4D~D==!vZZ TYPE N

}O8(DZ]#g{8( TYPE(*FILE),r4D~aw*om}]D~<k#*+4
D~w*4<k,4,%@X<k?vI1,r9C1!5 TYPE(*OBJTYPE)#

Z6B <k&CLr 53

<k4omD~1,IZ MBR N}O8(X(4I1,r(}9CXb5 *ALL 8

>*<k4D~ZDyPI1#9I9C`t{#I9Cg ABC* .`Dq=8(`t
I1{,Sxa&mTV{ ABC *7DyPI1#

g{Z OBJTYPE N}O8(K *FILE"*SRC"r *ALL,,198(K OBJ(*ALL),
rh*5 MBR(*ALL)# g{;S4D~<k;vI1,r8( OBJ(

OBJTYPE(*SRC)(r OBJTYPE(*FILE))M MBR(

k*4(D?~

Xk8(;)E"48>k*<k OS/400 Tsr4I1D;C#

XhN}

?~GZz8>Dn?MiP4(D,T OS/400 Tsr4I1*y!#Z PRJ N}

O8(n?{,"Z GRP N}O8(i{#b=vN}<GXhD#

Z TYPE N}O8(0&CLr*"\mw1?~`M#g{8(Xb5 *OBJTYPE
R}Z<kDTs;G4omD~,r?~`M1!* OS/400 Ts`MD0&CLr

*"\mw1H'5#}g,g{<k *PGM Ts"8( TYPE(*OBJTYPE),r0&
CLr*"\mw1`M* PGM#

g{}Z<kDTsG4omD~,r?vI1<aI;v@"?~#TZb)?
~,Z8(Xb5 *OBJTYPE 1C?~`M1!* OS/400 TstTMI1`MD0&

CLr*"\mw1H'5#N<m4Mm5Ti4 OS/400 `Mk?~`MD`XT#

I1{

)#

D~{

)"

9I8(X(?~`M#+G,;\Z TYPE N}Oa)T<kD OS/400 Ts^be
D0&CLr*"\mw1?~`M#}g,;\+`M* *PGM DTs<k`M*
RPGSRC D?~#g{T<byvD0,IMPPART |na'\#

XkZ IMPPART |nD TYPE N}O8( VRPGTXT r VRPGBIN,E\<k
VARPG 4r~xFTs#g{<kK4D~,R8(K`t?~`M,ravp<k

4D~PDI1#g{<kKomD~,R8(K`t?~`M,rComD~aw
*`M* *FILE D?~<k#

>}

: TB|n+<kxP C/400 4odD4I1,"4(`M* CSRC D?~

HELLO#?~oT;hC* CLE(g{ HELLO D4I1tT* C D0)#

9C IMPPART |n

IMPPART OBJ(*CURLIB/CSRC) OBJTYPE(*SRC) MBR(HELLO) PRJ(PAYROLL)

9C0`L*"\mw15CLr

Z0C PDM 49Ci1A;O!q!n 38(<k)#

g{<k|,tT* C r SQLC D C 4D4I1,a4(`M* CSRC (}GZ
TYPE N}Ow78(K CINC `M)R?~oTVp* CLE r SQLCLE D?~#

GRP(MASTER) TYPE(CSRC) PART(*NAME)

Z PART N}O8(?~D{F#!q?~{1!5 *NAME a<B4I1{rTs
{I*B?~D{F#8(?~{(g{k*T}Z<kD?~w7|{D0),r
x(B{F(r*;<kxPC{FDTsr4I1)#

>}

54 &CLr*"\mwC'8O

: I1 BIWKLY ;<k"X|{* EMPMST#

IMPPART OBJ(*CURLIB/QRPGSRC) OBJTYPE(*SRC) MBR(BIWKLY)

PRJ(PAYROLL) GRP(MASTER) TYPE(RPGSRC) PART(EMPMST)

g{h*<kDTsD{FT0&CLr*"\mw1?~^'(gTsD{FPx
P!4V{),rXkT=|{B?~#g{ZK&9C PART(*NAME), IMPPART

|n+a'\#

g{(}ZTs (OBJ) rI1 (MBR) N}O8( *ALL 4<k`v4I1rTs,
r;\T=|{b)?~#xG,Xk(}8( PART(*NAME) 4C?~{1!*4I
1{rTs{#

>}

: TB|n<k10bD4D~ QRPGSRC PDyP4I1,"9Cb)4I1

D{F44(?~#

IMPPART OBJ(*CURLIB/QRPGSRC) OBJTYPE(*SRC) MBR(*ALL)

PRJ(PAYROLL) GRP(MASTER) TYPE(*OBJTYPE) PART(*NAME)

"b,9C IMPPART |n;\f;n?cNa9PDVf?~#g{C?~Q-fZ
ZzT<ZdP4(|DiP,r_g{C?~fZZCiDQw76P,r IMPPART
|na'\#Xk>}Qw76PyPvVC?~D;C,""TYN<kC?~#

I!N}

Z+Ts<kn?cNa91,}8(4M

E":

v oTtT
v a}k(N{Z763D:a}k;Tq!ji)
v k*f"?~D4D~
v Gqk*9Com}]D~44F}]
v Gqk*f;Vf?~
v *mS<k?~{D?~Pm?~
v Gqk*+}Z<kD?~DIf>i5
v Gqk*kB?~`X*DhvTD>

?j

j<b,9I8>PXC?~DBP

9CN} LANG"PRMCODE"SRCFILE"DATA"REPLACE"PARTL"ARCHIVE M
TEXT 4Vp8>KE"#

Z LANG N}O8(C?~DoTtT#LANG N}1!5* *ATTR#g{<kT

s,Ts`MMTstTC47(0&CLr*"\mw1oTtT#g{<k4D

~,a9CI1`M#N<Z503Dm4MZ523Dm5Ti4 OS/400 Ts`Mk0&
CLr*"\mw1?~oTD`XT#

IZKN}O8(;VoT,r_I8( LANG(*NONE),8>;PoTtT#5
*NONE vT;h*oTtTD?~P'#

VRPGTXT r VRPGBIN ?~_P0&CLr*"\mw1?~oT VRPG#

>}

: g{S4D~<k RPG 4I1,+Vk*4(`M* CSRC D?~,rXk

Z IMPPART |nP8(oTtT C,gTB|nPy>#

IMPPART OBJ(*CURLIB/QRPGSRC) OBJTYPE(*SRC) MBR(BIWKLY) PRJ(PAYROLL)

GRP(MASTER) TYPE(CSRC) PART(BIWKLY) LANG(C)

g{(}ZTs (OBJ) rI1 (MBR) N}O8( *ALL 4<k`v4I1rTs,
rXk9C1!5 LANG(*ATTR)#

Z6B <k&CLr 55

Z SRCFILE N } O 8 ( * f"B ? ~ D ; C # 1 ! i v G ( } 8 (
SRCFILE(*FROMFILE) T9C<k?~D4D~{#g{k*?~f"ZX(4omD
~P,rdk4D~{F#Xb5 SRCFILE(*TYPE) 2G\'VD#b8>9C53a
)D1!4D~#}g,`M* RPGSRC D?~f"Z4omD~ QRPGSRC P#Z
433Dm3PvK0&CLr*"\mw1?~`M0d`&D OS/400 1!4D~#g
{`M* VRPGTXT D0, SRCFILE N}a;vT#

Z DATA N}O8(Gq*4Fkom}]D~`X*D}]#1!ivG;4F}
]#

Z+10?~Df>f ; *Z0&CLr*"\mw1&\?~b?*"vDf>
1,REPLACE N}GG#PCD#K&\+Jmz9C;,Da}kZ;,ibP<

k?~D;,Df>#bZ0&CLr*"\mw1&\?~D0"PfPG;I\
D#

g{8(K REPLACE(*YES),r+9C}Zf;D?~D10a}kM4D~,R
SRCFILE N}+;vT#g{}Z<kD?~;GomD~,RQ-fZ,r:

v C?~+;lvA*<k|Di
v C?~+;f;*<kf>
v ?~+;lk

g{?~;fZZ?jiP,xGfZZ|_6pDiP,rZ<kYwZdaSO
_6piPlvC?~,"Z<kax1lkC?~#

9C PARTL N}8(Gqk*+<k?~mSA?~Pm?~#8( PARTL(*PRV)
Jmz9CCZKn?DO;v?~Pm?~D{F(g{zG53\m1D0)#+
G,g{zG*"_D0,KN}aj6CZ8(iDO;v?~Pm?~D{F#

g{9C QSECOFR C'r*mKPK|n,rK5^'#PARTL N}D 1!5G
*NONE,8>}Z<kD?~+;amSA?~Pm?~#

BPivBXk8(?~Pm?~:

v Z|nO8(DiG9C PARTLREQ(*YES) 4(D
v 8(D`M;G PARTL

g{Z IMPPART |nO8(K?~Pm?~,r:

v ?~Pm?~XkfZZS<kC?~Dip<D1!Qw76P#

v <k?~{;mSA8(?~Pm?~,g{|9;fZD0#(49|n4\<k

C?~,2I\a"zKiv)#

g{8(D`M* PARTL,r PARTL N}a;vT#TZd{ivxT,PARTL N
}a<B8(?~Pm?~|B#

9C ARCHIVE N}48(}Zf;D?~Gq&i5#v18( REPLACE(*YES) R

C?~G4I1?~1,KN}EPbe#PXT?~xPi5Dji,N{Z823
D:i5?~;#

Z TEXT N}O,TC?~8(hvTD>#Idkn` 80 vV{DD>#g{8(
TEXT(*TEXT) D0,Chv+1!*kCTsr4I1`X*DD>#Xb5 *BLANK

8>?~;P`X*DD>#

56 &CLr*"\mwC'8O

<k;v?~D=8

>Zhv<k?~1*q-D=h#

1. j6k*<kD OS/400 TsrI1
Xk7(CTs`MGq\0&CLr*"\mw1&\?~'V#N{Z523D

m5#9I<kC'(eD?~`M#

2. <k4I1

"v IMPPART |nT<k|,4zkD4omD~#TB>}+F* PROG1 D
4I1<ki DEVELOPER1 PF* BIWKLY D?~#

IMPPART OBJ(*CURLIB/QRPGSRC) OBJTYPE(*SRC) MBR(PROG1) PRJ(PAYROLL)
GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

3. X*1|D?~

<k?~s,7#49Cb{^(4I1PDyP|,?~Mb? }C#g{^(
KD0,r+|G|D* *LIBL,x;GX(bD{F#Z9(}LP,bTZJm

`kwZn?PiRC?~D}7f>45GXhD#
g{Z IMPPART |nD SRCFILE N}O8(K;,Z *TYPE D5,r&7#

yP|,?~<G9CD~{^(D#

4. 9(?~

Xk9(?~E\7#yP`X?~Q<kRGnBD#(iZ< k?~s9CB

P!n49(|#

5. i$?~GqTZ{D==KP

<ky>&CLr

>ZhvZ4(B0&CLr*"\mw1n?cNa9MSb SAMPLE P<kTB
i9&CLr1*q-D;5P|n#(SAMPLE b";Gf>z7a)D,zh*4

(|#)|Y(zw*<k4I1x;GLrTs#Z<k&CLr s9(|MI4(
zh*DyPLrTs#

m6PvKC44(TB=hPEvDB0&CLr*"\mw1n?cNa9D OS/400
I1(0d`X*DTs`MMI1`M)#

m

OS/400 I1 Ts`M I1`M

REFMST *FILE PF
CTLFIL *FILE PF
EMPMST *FILE PF
RSNMST *FILE PF

PART(*ALL) 9(<kDyP?~
TYPE(*ALL) 9(yP`MD?~

g{;<k OS/400 Ts,r9(}L;*@CTs0dT&4.dD?~X5#9

Xk<k4,r9(} LaZ"T9(CTs1"v/f{"#N{Z1193D
:Kb?~X5;Tq!PX?~X509(}LDji#

N{Z12B bTMKP&CLr#

6. OS/400

I10d`X*DTsMI1`M

Z6B <k&CLr 57

m

6. OS/400

OS/400 I1 Ts`M I1`M

TRWEEK *FILE PF
TRWEEKL *FILE LF
PRG03FM *FILE DSPF
PRG06RP *FILE PRTF
PROC3 *FILE CLP
PRG03 *FILE SQLRPG
PRG03A *FILE SQLRPG¹

":

1. KI15JOG;v|,I1#

I10d`X*DTsMI1`M(x

)

m7PvKC44(TB=hPEvDB0&CLr*"\mw1n?cNa9D OS/400

Ts,0d`X*DTs`MMTstT#

m

7. OS/400

OS/400 Ts Ts`M TstT

MESSAGES *MSGF *NULL

Ts0d`X*DTs`MMTstT

1. 9C CRTPRJ |n4(n?#TB|na4(n? PAYROLL#

CRTPRJ PRJ(PAYROLL) SHORTPRJ(PRL) TEXT('WEEKLY PAYROLL PROCESSING

APPLICATION')

PX4(n?Dji,N{4(n? (CRTPRJ)#

2. Zn? PAYROLL P4(yi#&CLra;<kyi#TsIZn?cNa9P
mSd{i#TB|nZKn?P4(i MASTER#

CRTGRP PRJ(PAYROLL) GRP(MASTER) SHORTGRP(MST) PARENT(*NONE)

TEXT('MASTER GROUP IN PROJECT PAYROLL')

PX4(iDji,N{4(i (CRTGRP)#

3. j6F.<kDyP&CLr,"7(D)Ts`MI<kn? PAYROLL#N{

Z503Dm4MZ523Dm5Tq!\0&CLr*"\mw1&\?~'VDy
P OS/400 Ts`MDPm#

<G9C0C PDM 49CI11A;M0C PDM 49CTs1A;4Pvwv
&CLrD?~D OS/400 4D~I1MTs#9IZb)A;P9C IM M IO
C'(e!n#|GZZ2083D:9CC'(e!n;PwKhv#

4. 9C IMPPART |nT<k|,4zkDyP4omD~#9CTB|n4+b
SAMPLE P"VD?v4D~ZDyPI1<kn? PAYROLL#Zi9&CLr
P,"bI1 PRG03A 5JOG|,I1#

IMPPART OBJ(SAMPLE/*ALL) OBJTYPE(*SRC) PRJ(PAYROLL) GRP(MASTER)

TYPE(*OBJTYPE) PART(*NAME)

g{4zk$tZ8v;,DbP,rT?vb9CK|n,+ SAMPLE f;*
5Jb{#

5. 9C IMPPART | nT<k&CLryhDyPTs#9CTB|n4<kb
SAMPLE PDy PTs# Zi9&CL rP,;a<k ;vTs ,|;F *
MESSAGES#

58 &CLr*"\mwC'8O

IMPPART OBJ(SAMPLE/*ALL) OBJTYPE(*NONSRC) PRJ(PAYROLL) GRP(MASTER)

TYPE(*OBJTYPE) PART(*NAME)

6. *?vQ<kD`M* CMDSRC ?~4(`M* BLDOPT D?~#BLDOPT ?
~&k`M* CMDSRC D?~,{,RXk|,K|n4yhD4(|n#N{

9C9(!nTq!PXgN*&CLr4(M\m9(!nDji#

7. +9Cb^(odDyP?~|D* *LIBL#

8. g{Z<ksz5PD4?~Xk*;*|,?~,r9C CVTPART |n#ZK
>}P,I1 PROG3A 5JOG|,4I1#ZCI1<k1,a4(`M*
RPGSRC D?~ PROG3A#K?~Xk*;*`M* RPGINC D?~#PX<k
|,?~DE",N{Z503Dm4#

9. g { k * 9 ( < k D ? ~ , I Z BLDPART | n O 8 (
GROUP(MASTER)"TYPE(*ALL)"M PART(*ALL),T9(UU<kDyP?~#

10. + BLDPART |nk SCOPE(*NORMAL) dO9CT9(&CLr#TB|na
Zn? PAYROLL Di MASTER P9(yP`MDyP?~#

BLDPART PRJ(PAYROLL) GRP(MASTER) TYPE(*ALL) PART(*ALL)

SCOPE(*NORMAL)

N{Z11B 9(&CLrTq!PXgN9(&CLrDji#

11. (}bT&CLrTi$|GqTZ{D==KP#i4Z12B bTMKP&CL

rTq!PXxPKYwDE"#

Z6B <k&CLr 59

60 &CLr*"\mwC'8O

Z7B 9C?~

Z9C?~1a4PDy>n/P:

v lv?~
v |D?~
v HO?~
v O"?~
v lk?~
v a}?~
v X|{?~
v >}?~
v i5?~

9ITPX?~DE"4PBPn/:

v |D?~E"
v r!?~E"
v lwPX?~DE"
v +?~*;*;,`MD?~

"

k4("|Dr>}0&CLr*"\mw1E"(n?"iM?~)`X*D

yPNq&9C0&CLr*"\mw1gfjI#b)gf|( CL |nM0`
L*"\mw1A;(I WRKPRJPDM"WRKGRPPDM M WRKPARTPDM |

n4()#Kb,9I(} CODE/400 z7M0&CLr*"$_d1D0&CL
rVd~q1&\?~4CJ0&CLr*"\mw1n?"ir?~#9I9
C CHGPARTINF |n4,=?~1dAG,TJm BLDPART |n6pQ|D

D?~#

lv?~ (CHKOUTPART)

?~Xkj+IzXF,zE\|D|#KXF(G(}0lv?~1 (CHKOUTPART)

|nqCD#

9C CHKOUTPART |n4+?~lvAzT_P|BCJ(Di#SC?~$tD
i+d4FA8(i,xZ?jiOhCC?~DM;x((n?cNa9P?~I
a}ADnUi)#CJ\?;hC*zDC'r*m#hCCJ\?D?DG@9d

{K|BC?~#1z9C0lk?~1 (CHKINPART) |n1,KCJ\?;4;*

UW#M;x(kf"DPX?~DE"`X*#|G|,vVC?~DnM;CD
iD{F#

g{C?~Z+dlvADiPP;fZ,CHKOUTPART |naSn?cNa9PO
_6pDiP4F|#53aS8(i*<Tn?cNa9xP(h,TiRxP%
d{FM`MD?~#C?~XkfZZ1!Qw76PE\;lv#

© Copyright IBM Corp. 1992, 2001 61

g{k*7(C?~GqQ;lvApDi,r9C PRTPARTINF |nTKP;v(
f,T>CC?~lvDK1M+C?~lv ADi#i4Z863D<30Tq!y>
(f#

XhN}

Z CHKOUTPART |nO8(n?"i"`MM?~#"GyP`MD?~<ITl

v#

I!N}

9C PRMCODE N}48(*Z7(?~Da}7619CDa}k#KN}JCZ
8v|n,RZZ763D:a}k;PwKhv#"b,g{9Ca}k *NONE lv

?~,;sv(a}C?~,rXk>}C?~,"9Ca}k *GRP YNlv|#

X k T g B ` M D ? ~ 8 ( PRMCODE(*NONE): b ) ? ~ D ` M *

PGM"FILE"CLD"CMD"MENU"PNLGRP"MODULE"SRVPGM rGf"ZI09

(?~1(BLDPART) |n4(D OS/400 TsPDC'(e`M#v1Z PRMPART
|nO8( EXTEND(*YES) 1E\a}b)`MD?~#"b,`M* PGM RoT

* CBL36 M RPG36 D?~I9CNNa}klv#

>}

>> } 5 w? ~ RPGSRC BIWKLY( fZ Z i TEST P )g N ; lv A i
DEVELOPER1#Z633D<225wKK}L#

9C CHKOUTPART |n

CHKOUTPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)
PRMCODE(*GRP)

9C`L*"\mw5CLr

Z0C PDM 49C?~1A;O!q!n 28(lv)#

62 &CLr*"\mwC'8O

<

22. CHKOUTPART

DEVELOPER1 Da}k* MASTER,yT?~ RPGSRC BIWKLY ;8(*Ka}
k,m>|nUIa}Xi MASTER#

g{h*PXa}kDji,i4Z163D:*n?cNa9(e;va}k;Tq
!PXn?\m1gNhCa}kDhv#Z743D:a}?~ (PRMPART);hv0a

}?~ (PRMPART) |nMa}kN}D9C=(#*i4iDa}k,"v0r!n

?1(PRTPRJ) |n#

}]2+TMj{T

?~DM;x(h9?~;lvA`vi#}g,g{?~Q;lvAn?cNa9

m;V'P9C,;a}kDD*"i,raZ?jiOTC?~hCdM;x(#
?jiGh9zCJC?~D TEST i#

|nMa}k

<

23.

?~ODM;x(hC

Z7B 9C?~ 63

Z<23P,RPGSRC BIWKLY fZZi TEST P#Zi DEVELOPER2 P$wD*

"_Q+?~lvACi,"rc9Ca}k TEST +C?~a}Xi TEST#rK,

g{}Zi DEVELOPER1(|2_Pa}k TEST)P$w,r;\lvK?~#b

yvb6E_P`,{FM`MD=v?~+;a}A,;i#M;x(I@9bV

iv"z#

MASTER

MASTER

RPGSRC BIWKLY

MASTER

TEST

MASTER

DEVELOPER1

RPGSRC BIWKLY

<

24.

?~ODM;x(hC

Z<24P,RPGSRC BIWKLY fZZi MASTER P#|;lvAi DEVELOPER1,

"+;a}XAi MASTER#RPGSRC BIWKLY ;\;lvAi TEST,r*i
DEVELOPER1 DM;x(ah9KYwDxP#

?~DCJ\?h9`v*"_lvC?~#}g,g{Ti_PCJ(Dm;*"
_QlvC?~,MTC?~hCKM;x(,RC?~DCJ\?Q;hC*KK

DC'r*m#v1?~DCJ\?;hC*UW1,zE\lvK?~#

|D?~ (CHGPART)

;)zlvK?~,|MZzDXF.B,I9C0|D?~1 (CHGPART) |n4|
D|#XkT|,k*|DD?~Di_P|BCJ(#g{C?~QfZZ8(i

P,r CHGPART |naWH+dlv#

MASTER

DEVELOPER2

"

g{T?~$tDi_P *UPDATE CJ(,rZ0C PDM 49C?~1A;
OD?~0dk!n 2(|D)#+aZC?~fZDix;GZz$wDiPl

vC?~"xP|D#

64 &CLr*"\mwC'8O

CHGPART |naKP OS/400 |n,T|D8(?~DZ]rXw#g{C?~GI

`-D,raT>J1D`-a0#g{C?~;\`-,raT>J1D|D|n

TJmzTdXwwJ1D|D#

XhN}

8(*|DDn?"i"`MM?~#"GyP`MD?~<I|D#i4=<B. ?~
`MT0|Gk|nDX5Tq! CHGPART |nyJmD?~`MDPm#

I!N}

CHGCMD N}7(*wCD|D|n#IZKN}O8( *TYPE"STRSDA"STRRLU
r UPDDTA#

g{!q1!5 CHGCMD(*TYPE),r?~`MMoTtT+C47(*wCD|D|
n#}g,g{|D`M* RPGSRC D?~,I+ SEU `-wkdo(li&\d

O9CT`-C4?~PfZD4#

g{;\`-C?~,53aa>zdkk*|DDE"#}g,g{k*|D`M

* PGM D?~,IT;|DLr?~DtT,gkd`X*DD>#

m8T>KZ CHGCMD N}O9C1!5 *TYPE 1*TX(?~`MwCD|n#

m8.Z8(

|n *|DD?~`M

CHGCMD CMD
CHGDSPF oTtT* DSPF D FILE
CHGDTA PARTL
CHGDTAARA DTAARA
CHGICFF oTtT* ICFF D FILE
CHGJOBD CZ`M* JOBD D?~
CHGLF oTtT* LF D FILE
CHGMNU CZoTtT* UIM `M* MENU D?~
CHGMOD MODULE
CHGMSGQ CZ`M* MSGQ D?~
CHGOUTQ CZ`M* OUTQ D?~
CHGPF oTtT* PF"VRPGBIN D FILE
CHGPGM PGM
CHGPRTF oTtT* PRTF D FILE
CHGSAVF oTtT* SAVF D FILE
STRSEU BLDOPT"BNDSRC"CBL36INC"CBL36SRC"CBLINC"CBLSRC"

WRKBNDDIRE CZ`M* BNDDIR D?~
WRKJOBQ CZ`M* JOBQ D?~

CHGCMD(*TYPE)

CBLLEINC"CBLLESRC"CINC"CLDSRC"CLLESRC"CLPSRC"CLSRC"
CMDSRC"CSRC"DDSSRC"DSPF36SRC"MNU36SRC"MSGF36SRC"
OCL36SRC"PNLINC"PNLSRC"PRDDFN"PRDLOD"REXXSRC"RPG36INC"
RPG36SRC"RPGINC"RPGSRC"RPGLEINC"RPGLESRC"RPT36SRC"
SCHPTH"SRT36SRC"SYSTEML"TXT36SRC"TXTSRC M VRPGTXT¹

1wCD

OS/400

|D|n

Z7B 9C?~ 65

m8.Z8(

|n *|DD?~`M

WRKMSGD MSGF
WRKSCHIDXE CZ`M* SCHIDX D?~

":

1. T> VRPGTXT ?~PDyPI1DPm#ISKPmP!qM|DvpI1#

CHGCMD(*TYPE)

1wCD

OS/400

|D|n(x

)

PX|D`M* PARTL D?~Dji,N<Z923D:|D?~Pm?~;#

TZC'(eD?~`M,at/Z CHGADMACN | nD ACTION N}O(eD
*CHG Yw#ITC'(eD`M(eDYwZZ1153Dm10PwKhv#

I8( STRSDA"STRRLU M UPDDTA,x;9C1!5 CHGCMD(*TYPE)(g{

zZ53O20K0&CLr*"$_d1i~D0)#

STRSDA SDA C4|D?~#SDA CZoTtT* DSPF D DDSSRC ?~#

g{9C(} CHGPART |nwCD0A;hF(z15CLr`k
K?~,r9(}LI\;6pb)`k,2;a|BQ|DD?~

.dDX5#

STRRLU RLU C4|D?~#RLU CZoTtT* PRTF D DDSSRC ?~#
UPDDTA DFU C4|D?~#DFU CZ}]D~#

": Z9C STRSDA r STRRLU |n.0,&9C ADDPRJLIBL |n+z}Z$

wDn?bmSAbPm#I(}0C PDM 49C?~1A;9C!n 45(mS
n?bPm)r9C PDM C'(e!n AP x;G9C ADDPRJLIBL |n#b

7# SDA M RLU +\;R=}Z}CDD~PDyPVN}C#

;

Z SEU r SDA P|DI14`M

a<BT&?~DoTtT"z`&|D#+G,

g{9C CHGPARTINF |n|DK4?~DoTtT,rT&4I1DI14`Ma

"z|DT%doTtT#

"

&"b=g{Z0&CLr*"\mw1DXF6'.b|D?~,rI\a<
B;I$bDa{#9(}LI\;6pQ|DD?~,2I\;\XB`kr

&m|#ba<B?~0dT& OS/400 TsMI1.dzze;#

Z PARTL N}P8( PARTL {a<B CHGPART |nT/+Q|DD?~mSA
?~Pm?~#8( PARTL(*PRV) Jmz9CCZKn?DO;v?~Pm?~D{
F(g{zG53\m1D0)#+G,g{zG*"_D0, KN}aj6CZ8(
iDO;v?~Pm?~D{F#g{9C QSECOFR C'r*mKPK|n,rK5

^'#PARTL N}D1!5G *NONE,8>}Z|DD?~+;amSA?~Pm?
~#

BPivBXk8(?~Pm?~:

v Z|nO8(DiG9C PARTLREQ(*YES) 4(D
v 8(D`M;G PARTL

66 &CLr*"\mwC'8O

g{8(K?~Pm?~,r:

v ?~Pm?~XkfZZS|Db)?~Dip<D1!Qw76P#

v |D?~{;mSA8(? ~Pm?~,g{|9;fZD0#(49|n4\|D

C?~,2I\a"zKiv)#

g{8(D`M* PARTL,r PARTL N}a;vT#PARTL N}a<B8(?~P
m?~;|B#

9C ARCHIVE N}48(}Zf;D?~Gq&i5#PXT?~xPi5Dji,
N{Z823D:i5?~;#

>}

TB|na|Di DEVELOPER1 PD?~ RPGSRC BIWKLY#

9C CHGPART |n

CHGPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY) CHGCMD(*TYPE)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 2(|D)#

CHGCMD(*TYPE) 8(?~`MMoTtTC47(;wCT|DC?~D OS/400 |
D|n#ZK>}P,?~+EZ SEU `-a0P#

I9CzT:D`-w4|D?~#I`4 CL r REXX Lr4lwT&Z0&CL
r*"\mw1?~{D OS/400 4I1{,;s9CKE"4wC`-w#i4Z87
3D:lw?~E" (RTVPARTINF);Tq!PXgNxPKYwD5w#

9CzT:D`-w`-j?~s,&9C CHKINPART |n4lk?~#C?~D
1dAGMON|DC?~DC'a;|B#by,B;N"v BLDPART |n1Ma

9(C?~#

*;?~D`MMoT (CVTPART)

0*;?~1(CVTPART) |nZ,;n?MiZ+w*4I1D?~*;*;,`MD
?~#<k.s,+`M* RPGSRC D?~*;*?~`M* RPGINC D|,?~,
rG+`M* CSRC D?~*;*?~`M* CINC D|,?~GG#PCD#

g{**;D?~;Z CVTPART |nO8(DiP,r;aZn?cNa9Dwvi
PQwC?~#

": ILE RPG/400 a)|T:D*;|n:0*; RPG 41(CVTRPGSRC) |n#C

|na+|, RPG/400 4D4I1*;*|, ILE RPG/400 DI1#|,a{I

1D4 D ~ D G <$H; ( ; \ Y Z 112 v V Z# rK , RPGLESRC M
RPGLEINC ?~Xk$tZG<$HAY* 112 VZD4D~P#Kb,;(*
9CZ683Dm9PPvD^(5#

(#,CVTPART |na4(B?~x;|DC?~#+G,g{-<?~G4I1,

Rz8(}Z*;D?~D4D~kC4f"-<?~D4D~&G,;D~,r&

>}-<?~#BD?~M`Mm>-<I1#}g,liF* QRPGSRC D4D~M

Z7B 9C?~ 67

fr

^F

F* A R?~`M* RPGSRC DI1?~#g{+K4D~*;*?~`M RPGINC

x;|D?~{,r CVTPART |n+>}-<?~ RPGSRC A "+d4FAF*
RPGINC A DB?~#

BPfrJC:

1. TOTYPE {Xk;,Z FROMTYPE {#

2. ;\*;`M* FILE D?~#

3. `M* PGM r SRVPGM D?~;\*;*`M* PGM r SRVPGM D?~#

4. w*4I1D?~;\*;*Tw*4I1Dd{?~#

5. `M* TXTSRC D?~I*;*Tw*4I1DNN`MD?~#

6. f"Z4I1PDNN`MD?~I*;*`M* TXTSRC D?~#

}Ovfr.b,9ITZ CVTPART |nO,19CBmPPvD FROMTYPE M
TOTYPE#

>}

m9.CZ

Fromtype Totype

CLD CLDSRC

oT* CLLE D PGM CLLESRC
oT* CLP D PGM CLPSRC

RPGSRC RPGINC"RPGLEINC"RPGLESRC
RPGINC RPGSRC"RPGLEINC"RPGLESRC
RPGLESRC RPGLEINC
RPGLEINC RPGLESRC

": Z*;?~1,9(E";a4FAB?~#

Z0C PDM 49C?~1A;O9C!n 50(*;?~)1,K CVTPART &\2

GICD#

4PBP=hT+`M* TXTSRC D?~*;*`M* PNLSRC RoT* PNLGRP
D?~#

1. 9C CVTPART |n+?~`M*;* PNLSRC#ba+doThC* MENU#

2. 9C CHGPARTINF |n+doT|D* PNLGRP#

CVTPART

|nD

FROMTYPEMTOTYPE

D^(5Pm

VZ,Z1!ivB,g{+`M* TXTSRC D?~*;*`M* CSRC r CINC D

?~,?~oTa;hC* CLE#yT,9I9COv=h+`M* TXTSRC D?~

*;*:

v `M* CSRC oT* C D?~
v `M* CINC oT* C D?~
v `M* CSRC oT* SQLC D?~
v `M* CINC oT* SQLC D?~

68 &CLr*"\mwC'8O

XhN}

8(m>k**;d`MD?~Dn?"iM`M#g{k**;yP?~,9C1
!5 PART(*ALL)#9Xk8(B`M#

I!N}

I8(:

v }Z*;D?~D{F#1!5* TOPART(*FROMPART)#}Z*;D?~D{F

#V;d#

v a}k#1!5* PRMCODE(*GRP)#a9CCiDa}k#
v &+C?~w*4I1f"dPD4D~D{F#1!5* SRCFILE(*TYPE)#a9

C1!4D~#g{8( SRCFILE(*SAME),r9a9C-<?~9CD4D~{

F#g{}Z*;BP?~`M,raIC5 *TYPE:PGM *;A CLPSRC M
CLD *;A CLDSRC#i4Z433Dm3Tq!?~`M0d`&1!4D~DP
m#SRCFILE N}9JCZf"Z4D~I1PDC'(e`M#

v *;?~;mSAD?~Pm?~D{F#8( PARTL(*PRV) Jmz9CCZKn

?DO;v?~Pm?~D{F(g{zG53\m1D0)#+G,g{zG*"

_D 0 ,K N }a j 6CZ8 ( i D O ; v ? ~ Pm ? ~D { F# g {9 C

QSECOFR C'r*mKPK|n,rK5^'#PARTL N}D1!5G *NONE,
8>}Z*;D?~+;amSA?~Pm?~#

BPivBXk8(?~Pm?~:

– Z|nO8(DiG9C PARTLREQ(*YES) 4(D
– 8(D`M;G PARTL

g{Z CVTPART |nO8(K?~Pm?~,r:

– ?~Pm?~XkfZZS*;b)?~Dip<D1!Qw76P#
– *;?~D{Fa;mSA?~Pm?~(g{|G9;fZD0)#(49|n

4\*;C?~,2I\a"zKiv)#

g{8(D`M* PARTL,r PARTL N}a;vT#TZd{ivxT,PARTL
N}a<B8(?~Pm?~|B#

HO?~ (CMPPART)

0HO?~1(CMPPART) |naZ(fPHO=v?~MD5.dDnl#bZzX
k+^}(FA?~DB;f>1aXpPC#

ITBP`MD?~xPHO:

v f"Z4D~I1PD?~
v ?~`M* FILE RoT* PF(omD~)M VRPGBIN D?~
v ?~`M* PARTL(?~Pm)D?~
v ?~`M* VRPGTXT D?~

*HO VRPGTXT ?~Dvp>z4I1,Tf"C?~ D>z4omD~9C
CMPPFM |n#

XhN}

8(m>}ZHODB ? ~Dn?" i"`MM?~#B?~XkfZZn?Mi
P#;aQw1!icNa9TiRKiPR;=DNN?~#g{k*HOyP?

Z7B 9C?~ 69

~ , r 9 C NEWTYPE(*ALL) M NEWPART(*ALL)# 9 X k 8 (

OLDTYPE(*NEWTYPE) M OLDPART(*NEWPART)#

I!N}

8(}ZHODI?~Di"`MM?~#aQw1!cNa9TiRKiPR;=
DNN?~#

*8(*4PHOD`M,9C CMPTYPE N}#9C CMPTYPE(*LINE) 4HOM
j6ekD">}DM|BDP;9C CMPTYPE(*FILE) 4i4=vD~DZ]G;

,9G`,;"9C CMPTYPE(*WORD) 4HOMj6mSD">}DM|BD%J#

RPTTYPE |nC48((fD`M#1!5 RPTTYPE(*DIFF) ;aPvI1.dDn
l#9C RPTTYPE(*SUMMARY) aPvHOa{D\a,x;T>j8Dnl;9C
RPTTYPE(*CHANGE) aa)k *DIFF (f`M`,DE",0b)nlD0s.P;

x9C RPTTYPE(*DETAIL) aPv{vBD~,8>nl,"a)a{\a#

9C OUTPUT N}8>dv&&ZD;C#1!5* OUTPUT(*)#(faT>Z$w
>O#g{|nGTz&m==KPD,rdv+aYQzAr!h8DdvSP#
OUTPUT(*PRINT) a+dvYQzAr!h8#OUTPUT(*OUTFILE) a+dv}<A
dvD~#

OPTION N}hvk*gN4PHO#?;NI8(n` 12 v!n#PX OPTION N
}D!nDji,N< ADTS/400: File Compare and Merge Utility PDCMPPFM |

n#

Z|,xPHO18nodDI1D STMTFILE N}O8(b{MD~{#PXHO
18nodDji,N< ADTS/400: File Compare and Merge Utility#

STMTMBR N}8(|,HOodDI1#

>}

TB|na+i DEVELOPER1 PD ?~ RPGSRC BIWKLYk, ;iPD?~
RPGSRC BIWEEK xPHO#(f;YQzAr!h8#

9C CMPPART |n

CMPPART PRJ(PAYROLL) NEWGRP(DEVELOPER1) NEWTYPE(RPGSRC) NEWPART(BIWKLY)
OLDGRP(DEVELOPER1) OLDTYPE(RPGSRC) OLDPART(BIWEEK) OUTPUT(*PRINT)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 54(HO?~)#

O"?~ (MRGPART)

0O"?~1(MRGPART) |naO"8(?jiD1!Qw76PDX(?~ryP
?~#vf"Z4D~PD?~EITO"#ZzXk+|DS?~D^}f>(F

A?~DB;f>,rG*Tx(?~O")&L|DMzT:D|D1,baXp
PC#

70 &CLr*"\mwC'8O

MRGPART |na+?v?j?~M,$?~kd`&y?~xPHO#b)HODa
{C47(Gq"zK|B#

*O" VRPGTXT ?~Z"VDvp>z4I1,Tf"C?~D>z4omD~9C
MRGSRC |n#

K|n9C MRGSRC |n#PX MRGSRC |nDji,N{ ADTS/400: File
Compare and Merge Utility ;i#

XhN}

?jn?"?ji"?j`MM?j?~{8(?~O"s*ECD;C#?jG;

v4?~,2I\|,k,$?~O"sD|B#O"Da{aEk?j?~#Xk
TO"?j?~Di_P|BCJ(#C?j?~+;lvA?ji#i4=<B. ?~

`MT0|Gk|nDX5Tq! MRGPART |nyJmD?~`MDPm#

+Qw1!cNa9Tq!*O"D?~DPm#

g{8(K TGTTYPE(*ALL),rXk8( MAINTTYPE(*TARGET);g{8(K

TGTPART(*ALL),rXk8( MAINTPART(*TARGET)#

g{8(K TGTTYPE(*ALL),rXk8( ROOTTYPE(*TARGET);g{8(K
TGTPART(*ALL),rXk8( ROOTPART(*TARGET)#

I!N}

,$n?",$i",$`MM,$?~{8(*O"DQ|D?~*#fD;C#

,$G;v4?~,|,*O"=?j?~PD|B#

yn?"yi"y`MMy?~{8(*O"D-<?~*#fD;C#yG4?~

D-<f>,|Gb=i|BDy!#

Z PARTL N}O8(I\amS?j?~D?~Pm?~#8( PARTL(*PRV) Jm

z9CCZKn?DO;v?~Pm?~D{F(g{zG53\m1D0)#+G,
g{zG*"_D0,KN}aj6CZ8(iDO;v?~Pm?~D{F#g{

9C QSECOFR C'r*mK PK| n,rK5^'#PARTL N}D1!5G
*NONE,|8>}ZO"D?~+;amSA?~Pm?~#

BPivBXk8(?~Pm?~:

v Z|nO8(DiG9C PARTLREQ(*YES) 4(D
v 8(D`M;G PARTL

g{Z MRGPART |nO8(K?~Pm?~,r:

v ?~Pm?~XkfZZSO"b)?~D?jip<D1!Qw76P#

v O"?~D{Fa;mSA?~Pm?~(g{|G9;fZD0)#

g{8(D`M* PARTL,r PARTL N}a;vT#TZd{ivxT,PARTL N
}a<B8(?~Pm?~|B#

g{8(K RPTONLY(*YES),r PARTL N}2;GXhD#

Z7B 9C?~ 71

9C SELECT N}48(Gqk*T>0VnO"1A;,TczIZ,$?~P!q
*O"=?j?~PDvp|D#g{ MRGPART |n GTz&m==KPD,r

SELECT a;vT,R;aT>0VnO"1A;#

9C RPTONLY N}48>Gk*4PO"9G;zI(f#g{Z MRGPART |n

O8(K SELECT(*NO),r;aa>KN}#g{8(K SELECT(*YES),rXk8
( RPTONLY(*NO)#

>}

TB|na+-<f> 1 ?~"Q|DDf> 1 ?~kBDf> 2 ?~O"#

9C MRGPART |n

MRGPART PRJ(PAYROLL) TGTGRP(V2) TGTTYPE(RPGSRC) TGTPART(BIWKLY)
MAINTGRP(V1CHANGE) ROOTGRP(V1)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 55(O"?~)#

O"y>&CLr

Y(zQS)&L&SU=|,}v?~:PART A"PART B M PART C D&CL

r#R1ROOT i|,)&La)D&CLrDZ;v"Pf#zQ-|DK PART A
M PART B,"4(K;vBD?~ PART D#R1MAINT i|,z|DDMmSDW
"Pf?~#-};N 1 d.s,VZ)&LV+&CLrDZ~v"Pf"Mx

z,Cf>xP|BD PART A M PART C M;vB?~ PART E# R2ROOT i
|,D?~|,&CLrDZ~v"Pf#n?cNa9T>Z<25D BEFORE ?V

P#

72 &CLr*"\mwC'8O

<

25.

T>O"0sDn?cNa9D>}

9CTB|n4O" R2ROOT P)&LD|DkzZ R1MAINT PD|D,"+a{

EZ R2MAINT iP#

MRGPART PRJ(ACCTA) TGTGRP(R2MAINT) TGTTYPE(*ALL) TGTPART(*ALL)
MAINTGRP(R1MAINT) ROOTGRP(R1ROOT)

O"sDn?cNa9aT>Z<25D AFTER ?VP# "b,PART A G?ji
R2MAINT PqClv"O"D(;?~,r*K?~Z R1MAINT M R2ROOT PV

p*=v;,Df>#

4PO".s,I\av(Z R1MAINT iP|D?~ PART C#g{byD0,Z
|D.s,&9COvO"}L+|k)&L*Z~v"Pf"MD?~ PART C D
1>O"#

*a_T\,&9COvO"}L,}GZ MRGPART |nO8(K TGTPART(C)#

lk?~ (CHKINPART)

0lk?~1(CHKINPART) |n(}+Qlv?~DCJ\?4;*UW,4MEC
?~#bJm2m,; * "iDd{K9CC?~# lk?~";aMEdM;x

(,yTd{iPD*"_T;;\CJ|#v1C?~;a}A?ji1,EaM
EM;x(#CHKINPART |n;a+?~FAn?cNa9PDB;vi#

Z7B 9C?~ 73

CHKINPART |n9a7#|B?~D1dAG,Tk`& OS/400 TsrI1D1d
AG`%d#ba7#9(}L6pQ|DD?~,"ZB;N"v BLDPART |n1

XB`kC?~#

lk?~DK1DC'r*mXkGlvC?~Dr*m;+G,n?\m1I9C

CHGPARTINF |n+NN?~DCJ\?4;*UWTlkC?~#(;Pn?\m1
EP(9C CHGPARTINF |n|DCJ\?#)

XhN}

8( n?"i "`MM?~# i4=<B. ?~`M T0|G k|nDX5T q!
CHKINPART |nyJmD?~`MDPm#

g{k*,1lk8v?~,Z TYPE r PART N}O9C!n *ALL#balk3

V`MDyP?~,rlkTzlvDyP?~#

>}

K>}5wgNlki DEVELOPER1 PD?~ RPGSRC BIWKLY#

9C CHKINPART |n

CHKINPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 29(lk)#

a}?~ (PRMPART)

0a}?~1(PRMPART) |n+8(?~T;N;iD==S?~yZDiFAd8
zi#z;\SzTd_P|BCJ(DiPa}?~#a}D?~DCJ\?Xk

*UWr;hC*zDC'r*m#4,C?~XkGTzlvD#

g{*a}D?~;lv,Za}.0|aHT/lk#Zlv?~1,C?~DC
J\?;hC*zDC'r*m,yTzTC?~_P@PD|BCJ(#a}?~

1,CJ\?;4;*UW,Tcd{*"_I9CC?~#

VRPGTXT 0dX* VRPGBIN ?~&9C PRMPART |n;pa}#ba,$ VRPG

M'z?~.dDj{T,r* VRPGTXT ?~I\|,X* VRPGBIN ?~D3)

dv#

XhN}

8(n?"i"`MM?~#Jma}D?~`M+aC=a}(g{|G4+|G
lvAd{KD0)#i4=<B. ?~`MT0|Gk|nDX5Tq! PRMPART |
nyJmD?~`MDPm#

I!N}

(}9( 4 ?~ z I D? ~ Gdv ?~ , R v1 z Z PRMPART | n O 8(
EXTEND(*YES) 1E\a}#EXTEND(*YES) G\;a}xPa}k *NONE D?~

74 &CLr*"\mwC'8O

D(;=(#ZI&)9a}s,PRMPART |n+ZO MiP>} PGM M PF ?

~#g{_-D~T}Za}DNNomD~?~*y!,rZ)9a}s+;aS
OMiP>}b)?~#

g{k*,1a}8v?~,I(}+ TYPE r PART N}k *ALL !ndO9C4
xPKYw#bJmza}3V`MDyP?~,r4lvAd{KDyP`MDy

P?~#;Na}8v?~Dm;=(G4(?~Pm?~(`M* PARTL D?
~ )," 9 C PARTLOPT N } 4 a } C ? ~ P m ? ~ # } g , g { 8 (
PARTLOPT(*LIST),raa}?~Pm?~ZPvD?v?~#

g { k * + Q a} ? ~ m S A ? ~ P m ? ~ , r &8 ( PARTL N} # 8 (
PARTL(*PRV) Jmz9CCZKn?DO;v?~Pm?~D{F(g{zG53\

m1D0)#+G,g{zG*"_D0,KN}aj6CZ8(i DO;v?~Pm
?~D{F#g{9C QSECOFR C'r*mKPK|n,rK5^'#PARTL N}

D1!5G *NONE,|8>}Za}D?~+;amSA?~Pm?~#

g{ZC|nO8(D8ziG9C PARTLREQ(*YES) 4(D,rXk8(?~Pm

?~#

Z PRMPART |nO,I9C PARTL N}48( TYPE(PARTL),r*K|nI9
*?~Pm?~,"Vp&m?~PmPD?v?~#

g{Z PARTL N}O8(K?~Pm?~,r:

v ?~Pm?~XkfZZSda}b)?~Dip<D1!Qw76P#

v a}?~a;mSA8(?~Pm(g{|G9; fZD0)#(49|n4\a}

C?~,2I\a"zKiv)#

9C ARCHIVE N}48(}Zf;D?~Gq&i5#PXT?~xPi5Dji,
N{Z823D:i5?~;#

>}

K>}5wgN+?~ RPGSRC BIWKLY Si DEVELOPER1 a}An?cNa9
PDB;vi,4i TEST#

9C PRMPART |n

PRMPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 30(a})#

a}I9(}L4(Ddv?~

g{k*,1a}9(}LDdv?~M`X*D4?~,r9C EXTEND N}#

1!5* EXTEND(*NO)#;PZ PRMPART |nO8(D?~Ea;a}#g{8

( EXTEND(*YES),ra,1a}8(?~0ZON9(C?~14(Ddv?~#K
b,TsE"b (OIR) D~q}]x(f"C4`kCTsD4D4D~{"b{MI

1{D;C)a;|B,T43BDb{#I9(}L4(D?~Da}k* *NONE#
EXTEND(*YES) G\;a}xPa}k *NONE D?~D(;=(#

Z7B 9C?~ 75

a}xPa}k *NONE D?~1,BPfrJC:

v g{*a}ADiPQ-fZa}k;,Z *NONE D,;?~,r;\a}xPa

}k *NONE D?~#

v yP`XomD~M_-D~Xk;Z,;iP#omD~kdX*D_-D~;

(*EZ,;iP#

v Za}C?~.s,C?~Da}kT* *NONE#n?\m1rTC?~;a}A

Di_P *UPDATE CJ(DNNC'<&TyP?~KP BLDPART |nT7#
|G<GnBD#G)Q-GnBD?~;axP`k#

a}?~Pm?~

g{}Za}?~Pm?~,r PRMPART |nJmz8(a}|D==#PRMPART
|naTTB==&m?~Pm?~:

1. 1!Qw76C4Qw?~Pm?~#g{4R=?~Pm?~,r PRMPART |
n'\#g{8(K PARTLOPT(*PART),r8(iPXkfZ PARTL ?~#

2. g{Z PRMPART |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}#9IZ PRMPART |nO8(`t?~{#PXji,N{Z8B ?~P
m?~"-rXFM|DzY#

a}k

g{}ZKPD|nl#ax,rI\G4&mdPD3)?~#*7#yPD?~
<C=&m,&i4yPms{""YNKPC|n(g{X*D0)#

>}

TB|n+?~Pm?~ PART001 Si DEVELOPER1 a}An?cNa9PDB;

vi,4i TEST:

PRMPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(PARTL) PART(PART001) PARTLOPT(*LIST)

> Z h v a } k (PRMCODE) N } , | J CZ
CHKOUTPART"CPYPART"CRTPART"IMPPART M RNMPART |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+Z GRP N}(CPYPART |nD TOGRP N})OTi8(Da

76 &CLr*"\mwC'8O

}k8(xC?~#

g{T CHKOUTPART"CPYPART r IMPPART |n8(K *GRP,

R ? ~ D ? ~ ` M *

PGM"FILE"CLD"CMD"MENU"PNLGRP"MODULE"SRVPGM,

rGf"ZI BLDPART |n4(D OS/400 TsPDC'(e`M,
r9C PRMCODE(*NONE) 4&mC?~#}G9C EXTEND N},
qrb)`MD?~^(a}#EXTEND(*YES) G\;a}xPa}

k *NONE D?~D(;=(#g{ BLDPART |n4(D?~Gf
"Z4I1PD?~,rI BLDPART |n4(Dw`MD?~<I

Ta}#"b,`M* PGM RoT* CBL36 M RPG36 D?~Da
}kITG *GRP#

*NONE ;aTC?~8(NNa}k#C?~;\a}#

9C CHKOUTPART"CHKINPART M PRMPART |n

<26MZ783D<279Cy>n?cNa945w9C CHKOUTPART"CHKINPART
M PRMPART |n0s?~"zDd/#

Z<26D BEFORE ?VP,RPGSRC ?~ BIWKLY ;fZZi TEST P#*T?
~w;)|D#z9C CHKOUTPART |n+C?~lvA*"i DEVELOPER1#b

aZ<D AFTER ?VP5w#+ BIWKLY 4FACi,"TC?~hCKM;x(#
CJ\?ahC*zDC'r*m,Th9d{K|BC?~#

<

26. CHKOUTPART

|n

H; BIWKLY QlvAzDi,zMIT|D|#jI|Ds,9C CHKINPART |

n4lkC?~#C?~T#fZ DEVELOPER1 P,gZ783D<27P BEFORE ?

Vy>#g{b;iGId{*"_2mD,r{GdPD;KI"LlvC?~M
|D|#

Z7B 9C?~ 77

i DEVELOPER2 PD * " _ ;\ l v BIWKLY, r * C? ~ Q l vA i
DEVELOPER1(;\C?~Gq;lvAi DEVELOPER1 PD*"_)#C?~}H
};a}Ai TEST,RTi DEVELOPER2 ;IC#

<

27. CHKINPARTMPRMPART

|n

VZ 9C PRMPART | n4+d a}XAi TEST# <27D AFTER ?VT>
PRMPART |ngN+C?~a};v6p,FAi TEST#g{C?~TGTzlv
D,rZ+C?~a}XAi TEST .0, PRMPART |naH+C?~lkA
DEVELOPER1#+ BIWKLY a}Ai TEST a+ TEST PC?~DI1>f;*4
T DEVELOPER1 DB?~#

BP|nzzDYwT>ZZ773D<26M<27P:

1. *lv?~ RPGSRC BIWKLY,dk:

CHKOUTPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)
PRMCODE(*GRP)

2. *|D?~ RPGSRC BIWKLY,dk:

CHGPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)
CHGCMD(*TYPE)

3. *+?~ RPGSRC BIWKLY lXAi DEVELOPER1,dk:

CHKINPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

4. *+?~ RPGSRC BIWKLY a}XAi TEST,dk:

PRMPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

78 &CLr*"\mwC'8O

X|{?~ (RNMPART)

9C0X|{?~1(RNMPART) |nTZ,;n?MiP+?~S;v{FX|{*
m;v{F#

TZx({FM`MD?~,v18(iP;fZxPB{Fx`M`,D?~1,
E\TdX|{#g{CiPQ-fZ`,{FM`MD?~,ra"v;u{",

R RNMPART |n'\#

X|{?~+;a,$I\Q-fZDPXI?~D9(E"#?~;aZ8(iP
X|{,x;aZ{vn?PX|{#

XkT|,}ZX|{D?~Di_P|BCJ(#

g{X|{?~.0C?~QTzlv,rC?~+aX|{,+;aTzlv#g

{C?~QlvAm;C',ra"v;u{",x RNMPART |na'\#

g{k*|D4F?~DtT(g|DoTrD>),rZX|{jIs9C0|D
?~E"1 (CHGPARTINF) |n#

`M* VRPGTXT r VRPGBIN D?~;\9CK|n4X|{#

XhN}

8(}ZmSD?~Dn?"i"`MM?~{,T0?~DB{F#XkT}ZX
|{D?~yZDi_P|BCJ(#NN`MD?~<I9C RNMPART |n4X
|{#

*X|{C'(e`MD?~,XkTC?~`M(e *CPY M *DLT Yw#

NEWPART N}Jmz8(C?~DB{F#K{F;(*PpZZ PART N}O8

(D{F#

I!N}

9C PRMCODE N}48(Gqa}B?~#KN}JCZ8v|n,RZZ763D
:a}k;;ZPwKhv#

I8( PARTL N}T+X|{?~mSA?~Pm?~#8( PARTL(*PRV) Jmz
9CCZKn?DO;v?~Pm?~D{F(g{zG53\m1D0)#+G,g

{zG*"_D0,KN}aj6CZ8(iDO;v?~Pm?~D{F#g{9
C QSECOFR C'r*mKPK|n,rK5^'#PARTL N}D1!5* *NONE,

|8>}ZX|{D?~+;amSA?~Pm?~#

BPivBXk8(?~Pm?~:

v Z|nO8(DiG9C PARTLREQ(*YES) 4(D
v 8(D`M;G PARTL

g{8(D`M* PARTL,r PARTL N}a;vT#TZd{ivxT,PARTL N
}a<B8(?~Pm?~|B#

Z7B 9C?~ 79

>}

TB|naZ PAYROLL n?Di TEST P+?~ RPGSRC BIWKLY X|{*
RPGSRC BIWEEK#

9C RNMPART |n

RNMPART PRJ(PAYROLL) GRP(TEST) TYPE(RPGSRC) PART(BIWKLY) NEWPART(BIWEEK)
PRMCODE(*GRP) PARTL(*NONE)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 7(X|{)#

>}?~ (DLTPART)

9C0>}?~1(DLTPART) |n4SiP>}?~#XkTCi_P|BCJ(,R

;(;\Td{KlvC?~#

XhN}

8(n?"i"`MM?~#i4Z2153D:=<B. ?~`MT0|Gk|nDX5;
Tq!II DLTPART |n>}D?~`MDPm#

9C TYPE(*ALL) >}yP`MD?~,r9C PART(*ALL) >}yP?~#

XkH>}_-D~?~,E\>}`X*DomD~?~#

g{}Z>}D?~4;lvAd{K,ra>}C?~00&CLr*"\mw1
&\?~#fDPXC?~DNNE"#g{C?~Q;lv,r;\>}|#

I!N}

g { k * S ? ~P m ? ~ } % Q > } D ? ~ , r &8 ( PARTL N} # 8 (
PARTL(*PRV) Jmz9CCZKn?DO;v?~Pm?~D{F(g{zG53\

m1D0)#+G,g{zG*"_D0,KN}aj6CZ8(i DO;v?~Pm
?~D{F#g{9C QSECOFR C'r*mKPK|n,rK5^'#PARTL N}
D1!5G *NONE,|8>}Z>}D?~+;amSA?~Pm?~#

"b,Z DLTPART |nO, PARTL N}GI!D,49ZC|nO8(DiG9

C PARTLREQ(*YES) 4(D#

g{8(K?~Pm?~,R*>}D?~"G PARTL `M,r:

v ?~Pm?~XkfZZS>}C?~Dip<D1!Qw76P#

v Q>}?~aS? ~Pm?~P}%#(49|n4\>}C?~,2I\a"zK

iv)#

g{8(D`M* PARTL,r PARTL N}a;vT#TZd{ivxT,PARTL N
}a<B8(?~Pm?~|B#

9C DLTARCHIVE N}48(Gq&Z>}C?~D,1>}C?~Di5f>#Z
>}yPi5I11,g{4D~P;PNNd{I1,r9a>}C4D~#

80 &CLr*"\mwC'8O

>}

K>}5wgNSi DEVELOPER1 P>}?~ RPGSRC BIWKLY#

9C DLTPART |n

DLTPART PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 4(>})#

M;x(gN|D

g{>}K;v?~,x`,?~fZZ`viP,rM;x(a|D*8rC?~
10lvADi#<G<28:

<

28. DLTPART

Y(+?~Si DEVELOPER1 a}Ai TEST,;s+dYlvAi DEVELOPER1#

VZ?~ BIWKLY D1>fZZTB}viP:DEVELOPER1"TEST M MASTER#
g{Zi DEVELOPER1 P>}KC?~D1>,rM;x(a8ri TEST#bZZ

823D<29PwK5w#

|nMM;x(

Z7B 9C?~ 81

i5?~

<

29.

M;x(PD|D

n?\m1I$

r*;v?~IfZZ`viP,*Sn?cNa9P9W>}|I\h*n?\m
1DI$#g{>}K;v?~,xC?~D1>TfZZzTd;P|BCJ(D
m;viP,MavVbViv#\m1Xk>}?~DCf>#

Z0&CLr*"\mw173P,r*?~Z];O|D,zI\k*#fb)?

~DH0f>#(}9C ARCHIVE N},BP|nVZIZx(iPT/i54?~
Dn`evf>#

CHGPART
IMPPART
PRMPART

ii5b|,?~DH0f>,RCbG9COv|n*C?~y$tDi4(D#
KbI|,d{Fkd?~{j+`,D4D~,x?vbI|,n`evH0f>

I1#I1{* "archiven",dP n=1 GnBf>,x n=5 *nIf>#

g{8(K ARCHIVE(*YES):
v 4(ii5b(g{|9;fZD0)#ii5bD{F* xxxx_yyyyy,dP xxxx G

n?rF,x yyyyy GrLi{#ii5bD(^kibD(^`,#

v li|,}Zf;D?~DiDi5b,TiRxPC?~D{FD4D~#g{

xPC{FD4D~;fZD0,Ma4(|#

v g{4D~|,I1 "archive5",CI1a;>}#
v `BDI1aX|{,T9I1{PD`ES 1#}g "archive4" I* "archive5"#
v };f;DI1+4FAI1 "archive1"#

82 &CLr*"\mwC'8O

?~DX*E"

": Z,;iP,I\aP=v?~9C, ;{F(+_P;,`M)#bVI1+;

i5A,;4D~,Tc;vi5?~I\2Gm;v#rK, wGDw(G9

C(;?~{(uAT;,`MD?~2Gby),g{{Gh*i5D0#

*lwrXvi5?~,9CIMPPART |n#Z LIBRARY a>{O8(ii5bD
{F,"Z MEMBER a>{O8(i5I1D{F#G!T!4N=8(I1{,"
C+}E}p4#I9C REPLACE(*YES) 4+|DXvA?~#

g{}Z9C0C PDM 49C?~1A;r0C PDM 49C?~PmPD?~1A
;,IZC?~Tdk!n 52(9Ci5I1)TxA0C PDM 49CI11A;,

CA;aPvC?~Di5I1#;s,I9CC'(e!n IM(<k?~)Xv|
D#PXji,N{Z2033D:9Ci5I1;MZ2063D:C'(e!n;#

DLTPART |nOD DLTARCHIVE N}Jmz8(Gq&Z>}C?~>mD,1>
}C?~Di5f>#Z>}yPi5I11,g{4D~P;PNNd{I1,r
9a>}C4D~#

?v?~<Pkd`X*DE",zIT|Db)E",2ITr!v4#9C0|
D?~E"1(CHGPARTINF)"0r!?~E"1(PRTPARTINF) M0lw?~E"1

(RTVPARTINF) |n49C?~E"#

|D?~E" (CHGPARTINF)

0|D?~E"1(CHGPARTINF) |nIC4|DPX?~DBPE"(?N;v?
~):

v ?~DoT#Z393Dm2Pv?~`M00`X*DoT#

v VPC?~DvKDCJ\?(C'r*m)(;Pn?\m1E\|D|)#

v ?~DD>hv#

g{9C CHGPARTINF |n4|D?~DoT,r? ~D1dAGahC*101
d,xON|DC?~DK1DC'r*ma;hC*10C'#

g{49C CHGPARTINF |n|D?~DoT,r CHGPARTINF a7#?~D1d

AGHZC?~DTsrI1DON|DD1dAG#g{ToT"CJ\?MD>
hv8(K *SAME,rI\a"zbViv#

09(?~1|n (BLDPART) +;a9(`M* CSRC"CINC M PGM,oT* C
M SQLC D?~#*#V}]Dj{T,b)?~+;aT/*;*oT CLE r

SQLCLE(g{b)`MD?~QfZD0)#*+oT|D* CLE r SQLCLE,I9
C CHGPARTINF |n#

XhN}

8(k*|DdE"Dn?"i"`MM?~#i4=<B. ?~`MT0|Gk|nD

X5Tq!I9C CHGPARTINF |n|Dd?~E"D?~`MDPm#

Z7B 9C?~ 83

I!N}

g{|DK?~DoTtT,RC?~D`M*Z503Dm4PvD`M.;rC'(
e`M,r|,C?~DT& OS/400 4I1D4`M2a`&"z|D#C'(e4
I1`M2a|D#

oTN}D1!5* LANG(*SAME)#|8(;|D10oT#g{Z CHGPARTINF
|nOnkKyPXhDN},r *SAME +f;*10oT#g{;k*C?~kN
NoTX*,r9C LANG(*NONE),rdkX(oT#i4Z393Dm2Tq!?~`
M0dX*oTDPm#

g { k * + Q |D?~ m S A ? ~ P m ? ~ , r & 8 ( PARTL N } # 8 (
PARTL(*PRV) Jmz9CCZKn?DO;v?~Pm?~D{F(g{zG53\

m1D0)#+G,g{zG*"_D0,KN}aj6CZ8(i DO;v?~Pm
?~D{F#g{9C QSECOFR C'r*mKPK|n,rK5^'#PARTL N}

D1!5G *NONE,|8>d?~E"}Z|DD?~+;amSA?~Pm?~#

BPivBXk8(?~Pm?~:

v Z|nO8(DiG9C PARTLREQ(*YES) 4(D
v 8(D`M;G PARTL

g{Z CHGPARTINF |nO8(K?~Pm?~,r:

v ?~Pm?~XkfZZS}Z|D?~E"Dip<D1!Qw76P#

v }Z|Dd?~E"D?~D{FamSA?~Pm?~,g{|9;fZD0#

b+ a x P | B , u A Z 8 ( K LANG(*SAME)" ACCKEY(*SAME) M
TEXT(*SAME) DivB#(49|n4\|D?~E",2I\a"zKiv)#

g{8(D`M* PARTL,r PARTL N}a;vT#TZd{ivxT,PARTL N
}a<B8(?~Pm?~|B#

*|D?~DD>hv,9C TEXT N}#9C TEXT(*SAME) #f`,hv;9C

hv

TEXT(*BLANK) +10hv|D*UW;r9C TEXT(

0&CLr*"\mw1?~DD>hvn$IP 80 vV{,xkd`X*D>zT
sDD>hvn$;\P 50 vV{#TsDD>hva;XO*n$ 50 vV{,x

?~D>hvG9C CHGPARTINF |n|DD#

I9C ACCKEY N}4|D?~DCJ\?#bJm+BDC'r*mj6*VP?
~DC'r*m,r_ , I}%CJ\?x(,T9C?~I)d{C'9C# +

G,;Pn?\m1E\|D ACCKEY N}#

>}

: TB|na+?~ BIWKLY DoT|D* LF,"+dD>hv|D*UW#

9C CHGPARTINF |n

CHGPARTINF PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(DDSSRC) PART(BIWKLY)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 13(|DE")#

LANG(LF) ACCKEY(*SAME) TEXT(*BLANK)

)dkBhv#

84 &CLr*"\mwC'8O

r!?~E" (PRTPARTINF)

0r!?~E"1(PRTPARTINF) |nar!XZ?~XwDBPE":

v n?"i"`MM?~

v C4`kC?~DoT

v ON|DC?~DK1

v ON|D?~Z]DUZM1d

v 4(C?~DUZM1d

v 8(xC?~Da}k

v M;x(

v CJ\?
v T&D OS/400 {F(b"Ts"`M"I1)

v |,Zn?cNa9DCV'PvVC?~DnM;C,Ra}kkK?~`,D

i

v Cn?cNa9DCV'PvVC?~DnM;COD?~lv,Ra}kkK?

~`,DK1DC'r*m

v hvC?~DD>

XhN}

8(k*r!dE"D?~Dn?"i"`MM?~{#i4=<B. ?~`MT0|G
k|nDX5Tq!IZ PRTPARTINF |nO8(D?~`MDPm#

I!N}

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

dvD~DG<q=kb QADM PD53a)}]bD~ QALYPARTI 9CDq=

`,#

>}

: I(}8(`FgBD|n+dv}<AdvD~#

9C PRTPARTINF |n

PRTPARTINF PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)
OUTPUT(*OUTFILE) OUTFILE(*LIBL/FILE1) OUTMBR(*FIRST *ADD) SCAN(*YES)

9C0`L*"\mw15CLr

Z0C PDM 49C?~1A;O!q!n 26(r!E")#

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

PRTPARTINF |nOD SCAN N}8(GqQwn?cNa9TiRC?~(g{Z
8(iPR;=|D0)#1!5* SCAN(*YES)#

>}

: TB|nr! RPGSRC ?~ BIWKLY D?~E"#

Z7B 9C?~ 85

PRTPARTINF PRJ(PAYROLL) GRP(DEVELOPER1) TYPE(RPGSRC) PART(BIWKLY)
OUTPUT(*PRINT) SCAN(*YES)

(f;YQzAKw5Dr!h8#<30T>y>(f#

5722WDS V5R1M0 &CLr*"\mw - ?~E"(f 05/08/01 12:00:00 3f . . : 0001

n?...............: PAYROLL

i................: DEVELOPER1

`M...............: RPGSRC

?~...............: BIWKLY

oT ..............: RPG 1

ON|D(C'j6).......: SMITH 2

ON|DUZ...........: 05/08/01 12:00:00 3

4(UZ ............: 05/08/01 12:00:00 4

a}k .............: MASTER 5

M;x(.............: 6

CJ\?(VP_)........: 7

53{:

Ts ..............: QRPGSRC 8

b................: PAY.DEV1 9

`M ..............: *FILE 10

I1...............: BIWKLY 11

lvA PWS............: No 12

vV?~DnM;CDi......: 13

nM;CvVD?~D

VP_ .............: 14

D> ..............: 15

<

30.

?~E"(fy>

***** P m a x *****

BDhv?~E"(fPDE":

1 ?~DoT#

2 ON|DC?~DK1DC'j6#

3 ON|DC?~DUZM1d#ON|DC?~DUZM1dI\aH4(C

?~DUZM1d*g#g{Sn?cNa9P&ZO_6pDilv?~D
0,MavVbViv#byvD0,9(}L9(C?~M;a;I&#O
N|DC?~DUZM1dMGSn?cNa9P&ZO_6pDiP4FD
?~DUZM1d#

4 4(C?~DUZM1d#

5 kC?~`X*Da}k#
6 C?~DM;x(;* *NONE ri{#

7 VPC?~DK1DCJ\?rC'r*m#bGlvC?~DK1DC'r

*m#g{3vKlvK;v?~,rd{NNK<;\|B|#

8 T&D OS/400 53Ts{#

9 T&D OS/400 53b{#
10 T&D OS/400 53`M#
11 T&D OS/400 53I1{#g{C?~;G4I1D0,(fOM;avVb

;P#

12 8>Gq+C?~lvAI`L$w>#

13 |,Zn?cNa9DCV'PvVC?~DnM;C,Ra}kkK?~`

86 &CLr*"\mwC'8O

,Di#

14 lvn?cNa9DCV'PvVC?~DnM;COD?~,Ra}kkK

?~`,DK1DC'r*m#

15 hvC?~DD>#

lw?~E" (RTVPARTINF)

0lw?~E"1(RTVPARTINF) |naZ CL r REXX LrZlwx(0&CLr

*"\mw1D*{FD+^( OS/400 TsrI1{#g{C?~G;vTs,rK
|na5Xb{"Ts { MTs`M#g{C?~G;vI1,rK|na5Xb
{"D~{MI1{#K|n;\w* CL r REXX LrD?VKP#

Z RTVPARTINF |nO,8(n?"i"`MM?~D{F,T0*SUb{"Ts
{"Ts`MMI1{D CL d?#(i4=<B. ?~`MT0|Gk|nDX5Tq

!I9C RTVPARTINF |nTdlw?~E"D?~`MDPm#)CL d?XkTM
E (&) *<,n`IP 10 vV{#

I9C CL r REXX LrlwTsrI1{,"9CzT:D$_T?~4Pwv&
\#}g,g{53O4200&CLr*"$_d1i~,rIT`4 CL r REXX

Lr4lwT&Z0&CLr*"\mw1?~D OS/400 4TsrI1D{F,"9
CKE"4wCzT:D`-w#

Z883D<31T>y> CL Lr EDITPART,T5wZ9C;,Z SEU D`-w1a
gN|D4?~#y>Lralv?~,lwPXC?~D53E",wC SEU `-
w4|DC?~,"lkC?~#h*9C CHKOUTPART |nE\9C?~&Z0&
CLr*"\mw1DXF.B#I4(;v`FDLr4TZTBLrPwC SEU `

-wD==4wCzT:D$_#

y>Lr9C0&CLr*"\mw1M{"#IZ4(D CL r REXX LrP4P
`,Yw#{"G<+T>CLrQ4PDYw#

Z7B 9C?~ 87

/********************************************************************/

/* */

/* A sample program that illustrates how a source part could */

/* be changed when using an editor other than SEU. The project, */

/* group, type, and part names are passed to the program. The */

/* program issues the CHKOUTPART command, calls an editor (SEU is */

/* used as an example), and then issues the CHKINPART command. */

/* */

/********************************************************************/

/********************************************************************/

/* */

/* The following variables are the parameters passed to this */

/* program. The variables resolve to the name of the project, */

/* group, type, and part. */

/* */

/********************************************************************/

/********************************************************************/

/* */

/* The following variables receive the information returned from */

/* the RTVPARTINF command. */

/* */

/********************************************************************/

/********************************************************************/

/* */

/* The part is checked out to the user running this program. */

/* Any messages from the Application Development Manager */

/* product are monitored. The part must be checked out so that */

/* it remains under the control of the Application Development */

/* Manager feature. */

/* */

/********************************************************************/

PGM PARM(&PRJ &GRP &TYP &PART)

DCL VAR(&PRJ) TYPE(*CHAR) LEN(32)
DCL VAR(&GRP) TYPE(*CHAR) LEN(32)
DCL VAR(&TYP) TYPE(*CHAR) LEN(10)
DCL VAR(&PART) TYPE(*CHAR) LEN(10)

DCL VAR(&OBJ) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&TYPE) TYPE(*CHAR) LEN(10)
DCL VAR(&MBR) TYPE(*CHAR) LEN(10)

CHKOUTPART PRJ(&PRJ) GRP(&GRP) TYPE(&TYP) PART(&PART)
MONMSG MSGID(ADM0000)

<

31.

88 &CLr*"\mwC'8O

9C

RTVPARTINF

|nDy>

CL

Lr

EDITPART (1/2)