× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. July 2005

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.