MVSFORUMS.com

DGM · Beginner Joined: 21 Sep 2003 Posts: 12 Topics: 4

The input file is 1 byte length and and total of 14080 records.
I want to accumulate 483 bytes from input to write to output file. My Program is abending at end of file.
Trying to find why is it so ?

kolusu · Posted: Sat Nov 12, 2005 4:17 am Post subject:

DGM,

You are getting an error because you don't have logic to perform once the file has reached end. you are just checking for EOF condition but you did not code any logic to perform after eof.

Anyway here is an untested code which should give you the desired results.

DGM · Beginner Joined: 21 Sep 2003 Posts: 12 Topics: 4

Hi Kolusu
This worked and thak you very much for your solution.
Again It didn't solve my purpose what I am trying to do.

This logic will always write the record even if it has not reached 483 Bytes. But I want to write only when full complete of 483 Bytes.
If the input record has 483 Bytes I want to write one record.
If input file has 965 records which is 1 less than 483*2 , I still want to write one record. If the input file has 966 Bytes which is Exactly 2 output record, I want to write two records.
For this one , I removed the FINISH LAST-REC.
But when I removed it, Even if the input file has 483 Records, It didn't write any record.

How do I accompalish this logic in easytrieve. I tried DO WHILE and in end I could not get my result.

Thanks
DGM

kolusu · Posted: Sat Nov 12, 2005 4:22 pm Post subject:

DGM,

You should have mentioned all the requirements earlier. You don't need a DO while statement to incorporate the new requirement, all you need is to chang the IF statement to the following and remove the last-rec proc.

DGM · Beginner Joined: 21 Sep 2003 Posts: 12 Topics: 4

Hi kolusu
I did the coding the way you have suggested. I saw my input has 966 records and i am expecting two output records but it only wrote one record. I thing i have to do something with end of file but could not figure out.

please check if the logic you have given is correct or not.
I have not checked if the input file has 483 records. I thing in this case also It will write only one record.

Thanks
Digambar

DGM · Beginner Joined: 21 Sep 2003 Posts: 12 Topics: 4

Sorry for mistaken in last sentense. If input has 483 records, It won't be writing any record by putting the = sign in If loop.

DGM · Beginner Joined: 21 Sep 2003 Posts: 12 Topics: 4

I thing, I have mistaken in my code. I have kept ODX = 1 instead of ODX=0.
I will check it again before Post again.
Thank you kolusu.

kolusu · Posted: Mon Nov 14, 2005 7:35 am Post subject:

DGM,

The code shown by me gives the exact results.

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

DGM · Beginner Joined: 21 Sep 2003 Posts: 12 Topics: 4

Yes Kolusu, It worked as I have expected. It is a great site to get the resolution.
Thank you Kolusu