IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Confusion in READ statement if the file is empty


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
dipanshu

New User


Joined: 16 Jan 2006
Posts: 53
Location: pune

PostPosted: Wed Feb 08, 2006 6:38 pm
Reply with quote

READ FILE1
AT END
MOVE 'NO' TO ARE-THER-MOR-RECS
NOT AT END
PERFORM CHK-STATUS

Confusion - If the file is empty will it execute (chk-status para) ie not-end part

Pls assist
Back to top
View user's profile Send private message
Rupesh.Kothari

Member of the Month


Joined: 27 Apr 2005
Posts: 463

PostPosted: Wed Feb 08, 2006 7:03 pm
Reply with quote

HI,

Quote:
READ FILE1
AT END
MOVE 'NO' TO ARE-THER-MOR-RECS
NOT AT END
PERFORM CHK-STATUS

Confusion - If the file is empty will it execute (chk-status para) ie not-end part



If file is empty then it will not execute CHK-STATUS

Hope this helps

Regards
Rupesh
Back to top
View user's profile Send private message
umeshkmrsh

New User


Joined: 21 Sep 2005
Posts: 79
Location: India

PostPosted: Fri Feb 10, 2006 5:35 pm
Reply with quote

umeshkmrsh wrote:
It will not execute CHK-STATUS.
Back to top
View user's profile Send private message
priti

New User


Joined: 29 Sep 2005
Posts: 3

PostPosted: Fri Feb 10, 2006 6:54 pm
Reply with quote

The file being empty, the 'AT END ' clause will be executed
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sat Feb 11, 2006 6:14 am
Reply with quote

Hi,

There are 2 kinds of empty:

1) If the file was never opened/closed, it is uninitialized and not a valid file.

2) If it was opened/closed but never written to, it is a valid file with no records.

In the 1st instance, if you attempt to open the file, it will produce an error.
In the 2nd, the open is successful and the 1st read produces an EOF condition.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Error to read log with rexx CLIST & REXX 11
Search our Forums:

Back to Top