MVSFORUMS.com

[vinush2000]

Hi All,

I have 2 seq. files (PS) file 1 and file 2.

for every record in file 1 I have to scan file 2 for a match. I write the output to different files based on the match.

now, when i tried this, I get S0000 U4038 abend. I find from sysout that problem occurs when I am reading file 2 for the second record from file 1.
The file 2 has already reached 'at end' and I want to know how to reset this for every read.

Please help ( If possible, a sample code)
thanks,
vinu

[chandresha_t]

vinush2000,

The easiest solution will be to close and open the file 2 for each record on file 1.

Hope this helps,

Chandresha T

[vinush2000]

thanks,

but, is that a coding standard to practice?
I am afraid, its not.

vinu

[hisabarish]

Hi ,

How it will come to
_________________
Sabari
Madras

[vinush2000]

[hisabarish]

Dear vinush2000,
Really I am not understand your code. What is your goal ie., what is your exact requirement. Pls. tell me clearly. why u r coding the evaluate statement.
_________________
Sabari
Madras

[vinush2000]

hi, thanks for your interest

goal
------
to scan file 2 for every file 1 entry and write some o/p (blah..) based on the match found.

evaluate
---------
to write contents (blah...) into particular file based on the INDICATOR

hope its clear now,
vinu

[kolusu]

vinush2000,

Check this link which explains in detail about matching files.

http://mvsforums.com/helpboards/viewtopic.php?t=11&highlight=match

Fyi.. you need to sort both the files on the matching keys and use the logic posted in the above link

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[vinush2000]

thanks, kolusu.

what I wanted was the COBOL Soln. I got much more than that.

thanks a lot,
vinu