IBM Mainframe Forum

[mrgnndhmk]

Hi,
I am getting a program ABEND if my sequential file is empty for the easytrieve. I tried to find if I could find the status and found that file status could be checked only for VSAM or ISAM in easytrieve.

But how can I handle empty input for sequential files?

Error: 138 *******A010 INVALID FILE REFERENCE - VELOFIL

Code:
137 JOB INPUT NULL
138 GET VELOFIL
139 IF EOF VELOFIL
140 DISPLAY 'EMPTY INPUT FILE'
141 ELSE
142 DISPLAY FILE-RECORD
143 END-IF

138 *******A010 INVALID FILE REFERENCE - VELOFIL

I cannot modify to have a VSAM file. Can anyone help me handle this situation?

Regards,
Murugs

[dick scherrer]

Hello and welcome to the forum,

I cannot modify to have a VSAM file.

You should not need to - sequential files work quite well.

What is your definition of an "empty file"? Unfortunately, there are multiple ways to have a file with zero records, but not be a true empty file. How was this empty file created?

Why have you specified "job input null" followed by the "get"? How is the file defined?

[sambras]

Hi,
One way of handling an empty input file is, yo can count the no of records in the input file in the JOB INPUT statement using a counter.Then yo can check for the value of the counter.If the counter value is "0" yo can move a value (2 or 3 or 8..ur wish) to the predefined variable "RETURN-CODE".
Yo can check for this return-code value before moving further and yo can even code a "COND" parameter in the jobstep which will check for the return-code value generated in the previous step.So yo can direct the program accordingly.
Hope this will help...

[dick scherrer]

Hello,

This will only work if the file is truly an "empty" file (meaning that the file has a valid end-of-file) rather than being merely allocated.

You need to drop the "yo" and "ur". This is neither a chat room nor an instant messenger. . .

[Jegan R]

Hi We are facing S001 abend in Ezytrive.The file is Empty(THE FILE IS GETTING CREATED FROM another SAS program).But when we override with a empty file ( created using 3.2 option) its working fine.

Can you suggest?

[dick scherrer]

Hello,

Can you suggest?

Yes, please re-read the previous reply. . .

This will only work if the file is truly an "empty" file (meaning that the file has a valid end-of-file) rather than being merely allocated.

It sounds like the process that created the file did not create a proper end-of-file. . .

The SAS process will need to write an end-of-file or possibly some "dummy" eof record. . .

[Jegan R]

Hi Sorry for the wrong info.. Even when we give an empty file (created from 3.2 option), its giving same S001 Abend.
The same code in the prev posts we are following:
JOB INPUT NULL
GET FILEA
IF EOF FILEA
STOP
END-IF
IF NAME NE ' '
WS-FLAG = 'Y'
END-IF
IF WS-FLAG = 'Y'
PUT FILEB FROM FILEA
END-IF

You have already replied for this GET file question. But Could you please give detail explanation?
Whether Ezytrieve can handle Empty file ( whatever be may the LRECL, RECFM,BLKSIZE) if we use both GET FILEA, if EOF FILEA?
When the input file is Empty, what will GET FILEA will do? will it give abend?

[dick scherrer]

Hello,

Easytrieve needs an end-of-file. . . Which is caused by opening the file as output and closing it (by whatever process creates the file). A "truly empty file" is not the same as a "merely allocated" file. Allocating space does not guarantee there will be a valid end-of-file.

Whether Ezytrieve can handle Empty file ..... When the input file is Empty, what will GET FILEA will do? will it give abend?

If the file is a valid "empty file" the first read will cause end-of-file. If the file has no end-of-file, an abend is most likely.

[Jegan R]

Hi ,

Thank you so much.. I got the Meaning..But for S001, in all the posts i can see the cause of abend as:

Due to wrong LRECL, BLKSIZE. Whats Exactly S001? when will S001 COME? only in Easytrieve?

[dick scherrer]

Hello,

There are several reasons for a s001-nn abend. . .

These are mentioned in the info for the IEC020I message:
http://publibz.boulder.ibm.com/cgi-bin/ ... a2m781/3.6

An s001 abend is not unique to Easytrieve.