if someone might take a look at this

Hi, i've been struggling w/a pgm & hope
someone can give me a pointer as to why
my chain does not yield the proper
record. the program below has worse
problems than that, but the chain is
what i'm most concerned about.

the program is below..

*=comments, trust me :)

Mohammad



ITMAS     IF   E             DISK                                      
                
OA0010D   CF   E             WORKSTN                                   
                
                   EVAL      *IN93=*OFF                                
                
                   READ      ITMASR                                 93 
                
     *IN03         DOWEQ     *OFF                                      
                
                   EXFMT     OA0010D01                                 
                
                   EXSR      SCRN2                                     
                
                   ENDDO                                               
                
     *IN03         IFEQ      *ON                                       
                
                   EVAL      *INLR=*ON                                 
                
                   RETURN                                              
                
                   ENDIF                                               
                
*                  EXSR      SCRN2                                     
                
*                  ENDDO                                               
                
                   EVAL      *INLR=*ON                                 
                
                   RETURN                                                       
        
     SCRN2         BEGSR                                                        
        
                   IF        (FIELD1=*ZEROS) OR (FIELD2=*ZEROS)                 
        
                   EXFMT     OA0010D01                                          
        
                   ENDIF                                                        
        
     FIELD1        CHAIN     ITMASR                             90              
        
     *IN90         IFEQ      *OFF                                               
        
                   EXFMT     OA0010D02                                          
        
                   EVAL      FIELD9=FIELD4+FIELD5+FIELD6+                       
        
                             +FIELD7-FIELD8                             
                   EVAL      FIELD4=FIELD2*FIELD3                       
                   EVAL      FIELD5=FIELD4*0.03                         
                   EVAL      FIELD6=FIELD4*0.08                         
                   EVAL      FIELD7=FIELD4*0.07                         
                   EVAL      FIELD8=FIELD4*0.02                         
                   ENDIF                                                
                   EXFMT     OA0010D01                                  
                   ENDSR                                                


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *