Re: re-reading records in CL (not after EOF!)

["Dennis Lovelady" <dlovelady@xxxxxxxx>]

Ummm... not unless they've changed the rules.

First off, OVRDBF POSITION(*START) has always seemed like a silly value to
me.  Where else would one expect it to begin processing?

Secondly, you don't have to use explicit open in order to effectuate your
OVRDBF command.

Finally, as I said, reclaiming resources and issuing another read will
cause the program to read FROM THE BEGINNING OF THE FILE.  (If I didn't say
it, I meant it.....)

The following snippet will read the FIRST three records in a file
repeatedly until your power company finds out you haven't paid your bill:

    DCLF FILENAME

LOOP:
    RCVF
    RCVF
    RCVF
    RCLRSC LVL(*CALLER)
    GOTO LOOP

(I know - I just tried it.  Works at V5R1 anyway.)

Now, if your program reaches EOF, you're done, as Al pointed out earlier.


Dennis





                                                                                
                                                                     
                      Ken Sims                                                  
                                                                     
                      <mr3111@xxxxxxxxx>           To:      
midrange-l@xxxxxxxxxxxx                                                         
         
                      Sent by:                     cc:                          
                                                                     
                      midrange-l-bounces@x         Subject: Re: re-reading 
records in CL (not after EOF!)                                            
                      idrange.com                                               
                                                                     
                                                                                
                                                                     
                                                                                
                                                                     
                      06/20/2003 04:43 PM                                       
                                                                     
                      Please respond to                                         
                                                                     
                      Midrange Systems                                          
                                                                     
                      Technical Discussion                                      
                                                                     
                                                                                
                                                                     
                                                                                
                                                                     




Hi Dennis -

>Elimiate the OPNDBF command - you don't need it.  On first read, RCVF will
>implicitly open the file

The OPNDBF is required to be able to use POSDBF to reposition the file.

Ken
http://www.ke9nr.net/
Opinions expressed are my own and do not necessarily represent the views of
my employer or anyone in their right mind.

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.