|
View previous topic :: View next topic
|
| Author |
Message |
nadeemahmed
Currently Banned
New User
Joined: 17 Jan 2008
Posts: 5
Location: Chennai
|
|
|
|
| My program is fetching records from a KSDS file(access sequential), so to check for end of file i have used READ FILE AT END MOVE 1 to WS-EOF(9(1) declared in WS-SECTION)..then i put this read in a loop say PERFORM until WS-EOF is 1..I would like to know if there is an easier way using which we could directly chk for end of file rather than moving a value when end of file is reached etc etc.. |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello nadeemahmed and welcome to the forums,
The READ. . .AT END is an easy way to detect EOF. . .
How would you prefer it work? |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| Or, PERFORM until the filestatus indicates EOF..... |
|
| Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007
Posts: 691
Location: Earth
|
|
|
|
| Quote: |
| Or, PERFORM until the filestatus indicates EOF..... |
I would like to add to what Bill has already told.
SELECT FileA ASSIGN TO INFILE
FILE STATUS IS WS-Status.
Declare WS-STATUS in working storage and after read statement check
IF WS-Status = '10'
blah.. |
|
| Back to top |
|
|
nadeemahmed
Currently Banned
New User
Joined: 17 Jan 2008
Posts: 5
Location: Chennai
|
|
|
|
| Thanks for all ya reply guys..was helpful..this forum rocks.. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
You're welcome 
Someone should be here when there are questions.
d |
|
| Back to top |
|
|
|
|
