MVSFORUMS.com

[bullfighter]

hi
please let me know how I can close a file that I opened in Easytrieve

i have a program ( input1, input2 are input files )

job input input1
get input2
do while not eof input2
*****
*****
get input2
end-do

once the input2 eof is reached I get an error as we try to open it for the next record of input1,
can somebody suggest how to close input2 once eof is reached

thanks in advance
_________________
champion is not one who never fails, but one who never quits

[kolusu]

Bullfighter,

Easytrieve does not have exclusive open/closing of files. If your intention is to match 2 files why not use syncronised file processing ?

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

[HB0]

Bullfighter,

If you want to stop processing , when INPUT2 ends ,You can say

IF EOF INPUT2
STOP
END-IF.

or if you are matching then as Kolusu said syncronised file processing is the best.

HB0.

[bullfighter]

I dont want to stop processing at end of file Input2,
I want to read second record of input1 and start reading input2 from the start, any help on this

what is synchronised file processing ?? can you give me more info


thanks
_________________
champion is not one who never fails, but one who never quits

[kolusu]

[bullfighter]

yes I am trying to compare every record of file 1 with all records of file2

File1 and file2 are entirely different formats

File1:
12345678912345678911
12345678812345678911

File2
TRAN....*.<TADP 0...
TRAN....*.<TADP 1...

My requirement :
1. Pick first 9 characters of file1
2. check every record in file2, to see if the value from position 5 until 5 places is same as the one from file1 ( value from file1 is char9, value from file2 is packed5 )
3. once we check all the records in file2 , start with next record of file1

Is this clear,
please let me know if this is not,
please help me in this
thanks a lot
_________________
champion is not one who never fails, but one who never quits

[kolusu]

[bullfighter]

if this value matches, I have to write to output file ( if the value from 14 to 16 is ADP )

thanks,
_________________
champion is not one who never fails, but one who never quits

[kolusu]

Bullfighter,

Step1 : Sort the file1 on the first 9 bytes. If you have duplicates eliminate them.

[bullfighter]

thanks kolusu,

step2 I am getting error an error, can you help me
my OUTREC should have the Packed numbers + another 11 characters starting at 106, so I changed it accordingly and I am getting the below error

SYSIN :
INCLUDE COND=(53,3,CH,EQ,C'ADP')
INREC FIELDS=(5,5,PD,EDIT=(TTTTTTTTT),106,11)
SORT FIELDS=(1,20,CH,A)
SUM FIELDS=NONE
OUTREC FIELDS=(1,20)
WER164B 12,672K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,008K BYTES USED
WER146B 16K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VB ; LRECL= 1008; BLKSIZE= 27998
WER235A INREC RDW NOT INCLUDED
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
_________________
champion is not one who never fails, but one who never quits

[kolusu]

Bullfighter,

Your input file is a variable block file , so you need to include the RDW also. so change your control cards to the following.

[bullfighter]

I made my control card as