RE: EOFDLY problem -- RPG400-L

Mahesh,

On an empty file the first read will turn *IN90 on and you will not enter the 
DO-loop.

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.