View previous topic :: View next topic
|
Author |
Message |
frenchien
New User
Joined: 22 Aug 2005 Posts: 2
|
|
|
|
does anyone have JCL to perform a compare of two files? I have Fileaid and Ditto on my sytem -- that's it.
thanks |
|
Back to top |
|
|
die7nadal
Active User
Joined: 23 Mar 2005 Posts: 156
|
|
|
|
Depends on what tools u have in your shop, U can also compare using Comparex, Insync, SuperC. If u have any of these tools in ur system, I can send the JCL. |
|
Back to top |
|
|
frenchien
New User
Joined: 22 Aug 2005 Posts: 2
|
|
|
|
we have the following:
ABENDAID
APCDOC
DB2I
FILE-AID
CA-11
INFOPAC-TSR
INS/XFR
JCLCHECK
PRODICT
Panvalet
Natural
OptBlk
RMFMON
CA-1
UACR
Comparex
Alchemist
MVS/Ditto
DATA PACKER
Trilogy
XPEDITER
VPS
FileAID/DB2
CA-7
I'm speaking from past experience, where i've seen two files compared (byte by byte) and any different bytes are highlight with an asterisk above the byte. I would like the two files side-by-side. SuperC will tell me the whole line has been modified, and thus will show Inserts and Deletes (not what i'm looking for). Any other recommendations? (Please include the JCL)
thanks! |
|
Back to top |
|
|
die7nadal
Active User
Joined: 23 Mar 2005 Posts: 156
|
|
|
|
Looks like u have comparex, its the best tool that I ever did compare with.
Code: |
//CPX EXEC PGM=COMPAREX,REGION=0K
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=FILE.BEFORE
//SYSUT2 DD DISP=SHR,DSN=FILE.AFTER
//SYSIN DD *
FORMAT=14
KEY=(301,4,C,R) /* TO COMP WITH KEYS
FILTORIN=(301,EQ,C'0361') /* TO INCLUDE A RECORD
FILTOROUT=(301,EQ,C'0362') /*TO OMIT
MASK=(416,1) /* TO MASK A COLUMN */
MAXDIFF=300
CONTINUE /* TO SEE FINAL COUNT OF DIFFERENCES */
/* |
|
|
Back to top |
|
|
|