Compare two VB files of length 5000

Mazahar · New User Joined: 11 Dec 2007 Posts: 82 Location: hyderabad

Hi All,

Can any one tell me to compare two VB files of LRECL 5000.

1) I need to compare first file first record with all the records in second file, if it matches i need to write to MATCH file, if not need to write to DIFF file.

2) Like this i need to do for all the records in file 1.

3) Now i need to read the second file first record and compare all the records of first file, if it matches i need to write to Matchfile, if not write to DIFF file

I tried a PLI, COBOL for small files its working fine, but my files are having 17lk records because of that its taking millions of file open close statements.

I tried ICETOOL, but its not working for the length more than 4080.

enrico-sorichetti · Posted: Thu May 07, 2009 1:14 pm

dick scherrer · Posted: Thu May 07, 2009 1:17 pm

Hello,

You might try to define the compare as 2 smaller lengths rather than one of 5000.

If that does not work for you:

Sort both files on the "match key".

Download the sample "match/merge" code from the "sticky" near the top of the cobol forum and change it according to your files.

Run the match/merge and create whatever output files you need.

Mazahar · New User Joined: 11 Dec 2007 Posts: 82 Location: hyderabad

Hmmm...Right, If the file is in sorted order or file is having a Key i can comapre pretty easily, but the problem is we do not have a key nor the file in sorted order....file is having some text in each record....

file records are something like this

these are the closing charges
5% on closing charges
10% we will charge for opening

enrico-sorichetti · Posted: Thu May 07, 2009 2:46 pm

on what fields, in Your program, are You carrying on the comparison ??

if the records are completely unformatted then the field is the whole record

please define Your requirements in a better way

if You were able to write a program
You should be able also to describe the algorithm in a better way

Mazahar · New User Joined: 11 Dec 2007 Posts: 82 Location: hyderabad

Yes En,

Field is complete record...

Lets us say i have File A and File B, i need to compare these two.

For this what i wrote is

Read File A in to FileA rec
do while not fileA eof
check file2 proc;
read fileA into FileArec;
end

check file2 proc
close fileB; << So that second file cursor moves to fisrt record again
Open fileB;
Read fileB into FileB rec
do while not fileB eof & rec_found
if FileA_rec= FileB Rec then
write matching;
else
write not matching;
read fileB to FileB rec;
end;

subinraj · New User Joined: 04 Sep 2007 Posts: 16 Location: Bangalore

Try the followin steps

1. Sort FILEA and FELEB with the following sort card

Frank Yaeger · Posted: Thu May 07, 2009 9:49 pm

subinraj,

If you had actually bothered to test your control statements:

subinraj · New User Joined: 04 Sep 2007 Posts: 16 Location: Bangalore

Frank,

Thanks for pointing out the error. Actually i tested with a lower length file.

Frank Yaeger · Posted: Fri May 08, 2009 9:27 pm

Mazahar · New User Joined: 11 Dec 2007 Posts: 82 Location: hyderabad

I have achieved it....but so much of process

1) Wrote a REX to invoke superC got FileA

2) Took FileA and then wrote a sort to strip out I & D(which we get when we do 3.13) records got FILEB

3) wrote a PLI to strip out the FILEB records from actual file, worte PLI because i cant use the records in sort (for sort i need include or omit condition to be specified for the records of file) achived a fileC (now file C has difference records)

4) Now again wrote another PLI to divide File C from Actual file...and got the two files one with Difference and one with the Atuals

I dont know what ever i did is correct or wrong, but i have got the outputs...

If any one can suggest a better way than this....that would be a great help.

Expecting something with sorts only from Frank and Xpact :-)

Skolusu · Posted: Sat May 09, 2009 1:04 am

mazahar,

You can try to implement the solution listed here

www.ibmmainframes.com/viewtopic.php?p=125375#125375

dick scherrer · Posted: Sat May 09, 2009 1:09 am

Hmmm. . . .

That reply does not look like it came from "Frank and Xpact"

Mazahar · New User Joined: 11 Dec 2007 Posts: 82 Location: hyderabad

Dick Scherrer......Sorry if i hurt you........i was looking for some sort things, that is why i specified their names....really sorry about that....

Sukolu......thanks for your job...i will try tomorrow.

If i have 1000's account numbers in a file, Can i sort them from a file with out giving it in sysin....i meansi have a file like this

this is my VB file of lrecl 4504 having lakhs of records
XXXXXXXXXX120XXXXXXXXX
XXXXXXXXXX121XXXXXXXXX
XXXXXXXXXX122XXXXXXXXX
XXXXXXXXXX123XXXXXXXXX
XXXXXXXXXX124XXXXXXXXX
XXXXXXXXXX125XXXXXXXXX
XXXXXXXXXX126XXXXXXXXX
XXXXXXXXXX127XXXXXXXXX
XXXXXXXXXX128XXXXXXXXX

All the accounts are there in 10th position....I have got a file like this with all the account number which i need to sort from that file
121
125
128
127

like this 1000's account numbers....

what i knew is i need to give all these accounts numbers in SYSIN with a Include condition......but copy pasting 1000's of accounts taking lot more time....is there any way i can sort this file directly from the source ?/

dick scherrer · Posted: Mon May 11, 2009 8:17 am

Hello,

Mazahar · New User Joined: 11 Dec 2007 Posts: 82 Location: hyderabad

:-)

Cool.....

Any one can help me with answer to my query???

If i have 1000's account numbers in a file, Can i sort them from a file with out giving it in sysin....i meansi have a file like this

this is my VB file of lrecl 4504 having lakhs of records
XXXXXXXXXX120XXXXXXXXX
XXXXXXXXXX121XXXXXXXXX
XXXXXXXXXX122XXXXXXXXX
XXXXXXXXXX123XXXXXXXXX
XXXXXXXXXX124XXXXXXXXX
XXXXXXXXXX125XXXXXXXXX
XXXXXXXXXX126XXXXXXXXX
XXXXXXXXXX127XXXXXXXXX
XXXXXXXXXX128XXXXXXXXX

All the accounts are there in 10th position....I have got a file like this with all the account number which i need to sort from that file
121
125
128
127

like this 1000's account numbers....

what i knew is i need to give all these accounts numbers in SYSIN with a Include condition......but copy pasting 1000's of accounts taking lot more time....is there any way i can sort this file directly from the source ?/

Frank Yaeger · Posted: Mon May 11, 2009 11:25 pm

So for output, you want the records from input file1 that have a matching account number in input file2 ... right?

You said input file1 has RECFM=VB and LRECL=4504.

What is the RECFM and LRECL of input file2?

What is the starting position, length and format of the account numbers in input file1?

What is the starting position, length and format of the account numbers in input file2?

Can there be duplicate account numbers in input file1 (e.g. two records with account number 123?).

Mazahar · New User Joined: 11 Dec 2007 Posts: 82 Location: hyderabad

Frank,

"So for output, you want the records from input file1 that have a matching account number in input file2 ... right? "

YES

Second file is 80byte FB,

Starting position is 10 and lengtha is 10 is first file

Starting postion is 8 and length is 10 in second file, and format is Char

Frank Yaeger · Posted: Tue May 12, 2009 9:22 pm