book
Article ID: 118792
calendar_today
Updated On:
Issue/Introduction
Want to compare the different master file members and merge data as the latest ARC level.
Resolution
1. Please compare the different master file members with the PGM=COMP2.
Sample JCL;
//COMPARE EXEC PGM=COMP2
//STEPLIB DD DISP=SHR,DSN=LIBR.R44SP00.CALJLINK
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=USER.LIBR.OLDMAST
//SYSUT2 DD DISP=SHR,DSN=USER.LIBR.NEWMAST
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSIN DD *
OLDFILE MEMBER=OLDMEM,STRING=(1,80),ARC=-0
NEWFILE MEMBER=NEWMEM,STRING=(1,80),ARC=-0
DK PUN=YES,CLEARID=NO
REPORT TITLE='*** STATEMEMT COMPARE ***',
LIST=CHG,DDNAME=SYSOUT,LINECNT=NOPAGE,
OLDLINE=((1,'OLD'),(5,(1,80)),(86,'OLD')),
EQULINE=((10,'EQU'),(14,(1,80),OLD),(95,'EQU')),
NEWLINE=((20,'NEW'),(24,(1,80)),(105,'NEW'))
/*
//
2. Please update the member with SYSPUNCH data of JOBLOG as SYSIN data.
Sample JCL;
//STEP01 EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB DD DISP=SHR,DSN=LIBR.R44SP00.CALJLINK
//SYSPRINT DD SYSOUT=*
//OSJOB DD SYSOUT=*
//LIST DD SYSOUT=*
//MASTER DD DSN=USER.LIBR.OLDMAST,DISP=SHR
//SYSIN DD *
SYSPUNCH DATA
-END
/*
//