comparison of files

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

Hi all,

I need to compare two files and write the unmatching records and new records into a new output file.
Example:
File1 contains 100 Records
File2 contains 110 records out of which 99 exactly matches with File1, so now i need rest 11 records to be written to a new file.
Note: File1 and File2 are of same format.

The comparison should be done based on the whole record, we don't have any key fields in the files.

I came to know this can be done by ICETOOL, i have not worked on it so could anyone kindly give the solution with brief example.
If the same can be achieved by anyother utility also its fine.

Thanks,
M.Loganathan

anandinmainframe · Active User Joined: 31 May 2007 Posts: 171 Location: India

Loganathan,
We can do that using a match Eztrieve also(EZTPA00 utility).

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

Hi Anand,
I have not used EZTPA00 utility also.
But do send me the sample i'll try it out.

Thanks,
M.Loganathan

ksk · Posted: Fri Apr 03, 2009 10:41 am

Just you can do using a simple program.

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

hi,

we have lot of utilites. using them is much easier then creating a progam.
so wish to learn those utilites.

Thanks,
M.Loganathan

anandinmainframe · Active User Joined: 31 May 2007 Posts: 171 Location: India

//XXXXXXXX JOB (X,XXX),'EZT',CLASS=0,MSGCLASS=X
//EZTCOM EXEC PGM=EZTPA00
//STEPLIB DD DSN=SYSTEMS.LINKLIB,DISP=SHR
// DD DSN=DB2D.SDSNLOAD,DISP=SHR
//EZTVFM DD SPACE=(CYL,(20,20)),UNIT=SYSDA,DCB=BUFNO=40
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSUDUMP DD SYSOUT=Y
//SYSOUT DD SYSOUT=*
//FILEA DD DISP=SHR,DSN=File1(I/P1)
//FILEB DD DISP=SHR,DSN=File2(I/P2)
//FILEC DD DSN=File3(MISMATCH)
//FILED DD DSN=File4(MISMATCH FROM I/P1)
//FILEE DD DSN=File5(MISMATCH FROM I/P2)
//SYSIN DD *
*
FILE FILEA
A-REC 1 80 A
A-KEY 1 80 A
*
FILE FILEB
B-REC 1 80 A
B-KEY 1 80 A
*
FILE FILEC
C-REC 1 80 A
*
FILE FILED
D-REC 1 80 A
*
FILE FILEE
E-REC 1 80 A
*
JOB INPUT ( FILEA KEY(A-KEY) +
FILEB KEY(B-KEY) ) FINISH EXIT-PARA
*
IF MATCHED
C-REC = A-REC
PUT FILEC
ELSE
IF FILEA
D-REC = A-REC
PUT FILED
ELSE
IF FILEB
E-REC = B-REC
PUT FILEE
END-IF
END-IF
END-IF
*
EXIT-PARA. PROC.
DISPLAY 'SUCCESSFUL RUN '
END-PROC.
/*

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

hi,

Please find below the input and output.

File1:
aaaaaaaaaa
bbbbbbbbbb
cccccccccc
dddddddddd
eeeeeeeeee

File2:
aaaaxxxxxx
bbbbxxxbbb
cccccxcccc
gggggggggg
dddddddddd
eeeeeeeeee
ffffffffff

File3: Empty

File4:
aaaaaaaaaa
bbbbbbbbbb
cccccccccc
dddddddddd
eeeeeeeeee

File5:
aaaaxxxxxx
bbbbxxxbbb
cccccxcccc
gggggggggg
dddddddddd
eeeeeeeeee
ffffffffff

It is not matching the requirements. Could u kindly send me some reference document so that i can understand how the IF condition is working.
I have not changed you code added the files.

Thanks,
M.Loganathan

ksk · Posted: Fri Apr 03, 2009 11:39 am

M.Loganathan,

I know about utilities. I myself used in our shop EZT, DFSORT and COBOL for comparison purposes. For his requirment COBOL is enough as number of records are less.

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

hi,

Actual file contains millions of records.
Just for understanding i gave that example.

anandinmainframe · Active User Joined: 31 May 2007 Posts: 171 Location: India

Loganathan,
Have you sorted the two files before this step. if you sort and match definitely you will get the result you want.

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

Hi Anand,

Still the same output i get

murugan_mf · Posted: Fri Apr 03, 2009 12:04 pm

Loganathan,

Try this, i have sorted the file before comparing.

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

hi,
Thanks a lot...
Could you please send the code using ICETOOL, That would be of very great help.

anandinmainframe · Active User Joined: 31 May 2007 Posts: 171 Location: India

Loganathan,
I Tested now its working very well for me

and
A-KEY 1 80 A below this give
A-KEY1 1 80 A

B-KEY 1 80 A
B-KEY1 1 80 A

try again i hope you will get it.

murugan_mf · Posted: Fri Apr 03, 2009 12:41 pm

Hi,

Have a look this post for comparing files using icetool

ibmmainframes.com/viewtopic.php?t=39181&highlight=comparing+files+icetool

vinothsubramanian · Posted: Fri Apr 03, 2009 12:45 pm

Try this and let us know your output:

himanshu7 · Posted: Fri Apr 03, 2009 1:23 pm

Hi loganathan,

Try this job.

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

Thanks a lot at all.
This above post looks perfect.

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

Hi all,

One small doubt.
If my file contains Packed decimal, will that also be considered while comparison.

File1: Packed decimal, Position 1 to 5 value 25369
File2: Packed decimal, position 1 to 5 value 54879 all other position matches exactly with file1.

will the above two records will be considered as matching or unmatching.
It should be unmatching, just wanted to confirm
(I'm using the ICETOOL code)

vinothsubramanian · Posted: Fri Apr 03, 2009 2:53 pm

Which Icetool code. Posted by me or himanshu7

loga_nathan_m · New User Joined: 07 Jun 2007 Posts: 40 Location: India

Posted by himanshu7

Frank Yaeger · Posted: Fri Apr 03, 2009 8:57 pm

In the case you give (25369 vs 54879), the records would be considered unmatched.

However, you really need to consider the matching PD values to understand if CH would work for you or not.

If your packed decimal fields are "normalized", then the comparisons will work correctly with CH format. If the packed decimal fields are "not normalized", then you'd need to use separate ON operands for the CH and PD fields.

By "normalized", I mean that all of the positive PD values have the same sign (e.g. C) and all of the negative PD values have the same sign (e.g. D).

An example of "not normalized" PD values would be where some of the positive PD values have a C sign and some of the positive PD values have an F sign.