RE: EOFDLY problem

Have you checked the SCOPE of override???
I think if your pgm is ILE you must define OVRSCOPE in yours OVRDBF 
command. It's described in RedBook (sourcers guide) on pg.90.

Regards,
Igor Bešlić, dipl. ing. rač. 
VOLKSBANK d.d.
OJ Informatika
Zelinska 2, 10000 Zagreb
tel: +385 1 6326422



Rich Duzenbury <rduz-midrange@xxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01.07.2005 23:01
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: EOFDLY problem






On Fri, 2005-07-01 at 22:47 +0200, Carel Teijgeler wrote:
> Mahesh,
> 
> On an empty file the first read will turn *IN90 on and you will not 
enter the DO-loop.

This is not true.  If the file is overridden to EOFDLY, as the original
poster is alluding to, it won't matter if it's empty or not.  _Any_ read
to the overridden file will block until a record becomes available. 

See my previous post from a few hours ago.  I started with an empty file
and it *works*.  This stuff has been working since I started on S/38 way
back in '85.

Probably the real issue is that the override is not in effect when the
file is opened, and as such, then your statement is true.

> 
> Regards,
> Carel Teijgeler
> 
> *********** REPLY SEPARATOR  ***********
> 
> On 1-7-05 at 12:56 Mahesh Pawar wrote:
> 
> >following is my code . Please tell me what is worng in this code. why 
the
> >same code does not work if file is empty?. why program does not wait 
for
> >eof?
> >Plese adivice me to resolved this issue.
> >C     *loval        SETLL     L2SNGCHG 
> >C                   READ      L2SNGCHG                               90 

> >C     *IN90         DOWEQ     *OFF 
> > * CALL  RSYS106A to create keyword record 
> >C                   CALLB     'RSYS106A' 
> >C                   PARM                    SCCODE 
> > * UPDATE FLAG 
> >C                   MOVEL     'X'           SCFLG2 
> >C                   UPDATE    RSNGCHG 
> > * read next record 
> >C                   READ      L2SNGCHG                               90 

> >C                   ENDDO 
> >C* 
> >C                   SETON                                        LR 
> >C********************************************************** 
> >
> >Jon Sinner <JSinner@xxxxxxxx> wrote:Mahesh, I had the same problem. To
> >resolve the problem, I took the %EOF
> >line. I removed any possible method(except for the %SHTDN condition) of
> >leaving the loop. 
> >
> >That fixed the problem and I have not had another problem since.
> >
> >
> >
> >-----Original Message-----
> >From: rpg400-l-bounces@xxxxxxxxxxxx
> >[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mahesh Pawar
> >Sent: Friday, July 01, 2005 12:45 PM
> >To: RPG programming on the AS400 / iSeries
> >Subject: Re: EOFDLY problem
> >
> >
> >Martin If i remove my OVRDBF then whole purpose will go away. 
> >my program is like driver. it should be active everytime and should 
wait
> >for new records entry in file. the program works fine all other
> >condition but does not work if the file empty at the time of program
> >execution.(DOW llop works if file is not empty)
> >
> >Thanks & regards
> >Mahesh Pawar
> >
> >Booth Martin wrote:
> >What happens if you remove the OVRDBF? The program should work ok then. 

> >
> >Would it help you if your first step was to see if there are records in
> >the file? The INFDS will tell you if there are records in the file, or
> >not.
> >
> >---------------------------------
> >Booth Martin
> >http://www.martinvt.com
> >---------------------------------
> >-------Original Message-------
> >
> >From: RPG programming on the AS400 / iSeries
> >Date: 07/01/05 12:02:33
> >To: rpg400-l@xxxxxxxxxxxx
> >Subject: EOFDLY problem
> >
> >I am using EOFDLY option in OVRDBF of PF and calling RPG program to
> >process the file. It's works fine whenever there is at least one 
records
> >in file. But if my file is empty. Program doesn't wait for new records.
> >
> >
> >
> >I was using DOWEQ loop for processing the file. So I changed program to
> >process with DOU loop. Now program is waiting for next record (even the
> >file empty in beginning) I have added new records to file but program
> >does not process new records.
> >
> >
> >
> >Please advice me ASAP. Tommy I hope we can answer my query
> >
> >
> >
> >Thank in advance
> >
> >
> >
> >Thanks & Regards
> >
> >Mahesh Pawar
> >
> >
> >__________________________________________________
> >Do You Yahoo!?
> >Tired of spam? Yahoo! Mail has the best spam protection around
> >http://mail.yahoo.com
> >--
> >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> >list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
> >unsubscribe, or change list options,
> >visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> >or email: RPG400-L-request@xxxxxxxxxxxx
> >Before posting, please take a moment to review the archives
> >at http://archive.midrange.com/rpg400-l.
> >
> >
> >.
> >--
> >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> >list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
> >unsubscribe, or change list options,
> >visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> >or email: RPG400-L-request@xxxxxxxxxxxx
> >Before posting, please take a moment to review the archives
> >at http://archive.midrange.com/rpg400-l.
> >
> >
> >
> >---------------------------------
> >Yahoo! Sports
> >Rekindle the Rivalries. Sign up for Fantasy Football
> >-- 
> >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> >list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
> >unsubscribe, or change list options,
> >visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> >or email: RPG400-L-request@xxxxxxxxxxxx
> >Before posting, please take a moment to review the archives
> >at http://archive.midrange.com/rpg400-l.
> >
> >
> >-- 
> >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
list
> >To post a message email: RPG400-L@xxxxxxxxxxxx
> >To subscribe, unsubscribe, or change list options,
> >visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> >or email: RPG400-L-request@xxxxxxxxxxxx
> >Before posting, please take a moment to review the archives
> >at http://archive.midrange.com/rpg400-l.
> >
> >
> >
> >
> >Thanks & Regards
> >
> >Mahesh Pawar,
> >Mumbai,India,
> >Phone#(R) - 91-22-25442164,
> >Mobile#   - 98204 46415
> >__________________________________________________
> >Do You Yahoo!?
> >Tired of spam?  Yahoo! Mail has the best spam protection around 
> >http://mail.yahoo.com 
> >-- 
> >This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
list
> >To post a message email: RPG400-L@xxxxxxxxxxxx
> >To subscribe, unsubscribe, or change list options,
> >visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> >or email: RPG400-L-request@xxxxxxxxxxxx
> >Before posting, please take a moment to review the archives
> >at http://archive.midrange.com/rpg400-l.
> 
> 
> 

Regards,
Rich