Re: READE in Free form, and dow not %eof

[Booth Martin <booth@xxxxxxxxxxxx>]

hmmm...  thats the behavior I expected.  I wonder if it still works if 
you add a couple of more records with Field2 = 12?


Shaheen Ahmed wrote:
> Following code works without any problem on our system. We are on V5R4.
>
> FXXFILE    if   e           k disk             
> D XX1             s              1A            
> D X               S              3s 0 inz      
>  /Free                                         
>     XX1 = 'O';                                 
>                                                
>       Setll (XX1: 11) XXFILE;                  
>       Reade (XX1: 11) XXFILE;                  
>                                                
>       Dow not %eof;                            
>           Eval x = X + 1;                      
>           Reade (XX1: 11) XXFILE;              
>       Enddo;                                   
>                                                
>         *inlr = *on;              	             
>   /End-Free                                    
>
> DDS source for PF
>
> A          R XXFILE0                                       
> A            FLD1           1A                             
> A                                      COLHDG('FIELD 1')   
> A            FLD2           2  0                           
> A                                      COLHDG('FIELD 2')   
> A            FLD3           1A                             
> A                                      COLHDG('FIELD 3')   
> A            FLD4           1A                             
> A                                      COLHDG('FIELD 4')   
> A          K FLD1                                          
> A          K FLD2                                          
> A          K FLD3                                          
>
> FIELD 1  FIELD 2  FIELD 3  FIELD 4
>    O        11       A        A   
>    O        11       B        B   
>    O        11       C        D   
>    O        11       D        E   
>    O        11       F        G   
>    O        11       G        H   
> ********  End of data  ********   
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Booth Martin
> Sent: Thursday, August 14, 2008 2:27 PM
> To: RPG programming on the AS400 / iSeries
> Subject: READE in Free form, and dow not %eof
>
>
> READE in Free form, and dow not %eof
>
> Something is not working the way I expected.
>
> I have a file with three keys.  I want to read all records (53 of them) 
> where key1 = the value in XX1 and key2 = 11.
>
> Here's what I think I have done:
> FXXFILE   if   e           k disk  
>    XX1 = 'O';                               
>    // Retrieve XXFILE record:   
>    setll (XX1: 11) XXFILE;                 
>    reade (XX1: 11) XXFILE;                 
>    dow not %eof;                                                
>      ... stuff                        
>      reade (XX1: 11) XXFILE;               
>    enddo;
>
> This all works as I expect in debug *except* that once the 53 records 
> are retrieved nothing more that I can see happens.  It acts like an 
> endless loop, but I just don't know what is happening.
>
> Any suggestions would be most welcome.
>
>                                       
>
>