RE: EOFDLY problem

You use *loval to setll, that means that the file is declared as key access.  
depending on what is the key of the record that you are adding, EOFDLY might 
not work correctly.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mahesh Pawar
Sent: Friday, July 01, 2005 2:57 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: EOFDLY problem


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