Re: Need to merge two source files into one, from two different LPARs

Hi, Paul:

IMHO, you do not necessarily want to always keep the latest version (based on just the source member "last changed" date) ...

What you want is the source member that "matches" the corresponding *PGM object(s) that are currently being used in "production" ... ;-)

So, you should issue a DSPPGM for each CL program in production, to obtain the source member last changed date when the program was compiled, and compare that to these member dates, to ensure you get "the right stuff"...

Hope that helps,

Mark S. Waterbury

> On 6/25/2013 12:16 PM, Steinmetz, Paul wrote:

We have the need to merge two source files, QCLSRC from Production LPAR and QCLSRC from R&D LPAR, when complete, QCLSRC will not exist in Production, only on R&D
Step D is complicated.
Has anyone done this or attempted to do this?

Step 1 - SAVRSTOBJ OBJ(QCLSRC) LIB(PROD) RMTLOCNAME(PENCOR06) RSTLIB(RD)
Step 2 - DSPFD FILE(PROD/QCLSRC) TYPE(*MBRLIST) OUTPUT(*OUTFILE) OUTFILE(QGPL/PRDQCLSRC)
Step 3 - DSPFD FILE(RD/QCLSRC) TYPE(*MBRLIST) OUTPUT(*OUTFILE) OUTFILE(QGPL/RDQCLSRC)
Step 4 - Using CL or other tool -
A- Read Rec from QGPL/PRODQCLSRC
B- Check for existence in QGPL/RDQCLSRC
C- If non- existence- CPYSRCF FROMFILE(PROD/QCLSRC) TOFILE(RD/QCLSRC) FROMMBR(&FROMMEM) TOMBR(*FROMMBR)
RMVM FILE(RD/QCLSRC) MBR(&FROMMEM)
GO to Step A
D. If already exist in RD (Duplicate), must compare change dates, need to select the most recent of the two sources
Problem - Source member change dates were all updated during last hardware migration, not accurate.
On 4/21/12 RD LPAR was migrated from P5 to P7, all RD has source change date of 120421 or greater if updated
On 5/06/12 Prod LPAR was migrated from P5 to P7, all Prod has source change date of 120506 or greater if updated
If can't determine, skip, will process manually.
GO TO Step A

Thank You
_____
Paul Steinmetz
IBM i Systems Administrator

Pencor Services, Inc.
471 Delaware Ave
Palmerton Pa 18071

610-826-9117 work
610-826-9188 fax
610-349-0913 cell
610-377-6012 home

psteinmetz@xxxxxxxxxx<mailto:psteinmetz@xxxxxxxxxx>
http://www.pencor.com/