FSOUPMSTRIF  E                    DISK                             
      FSOUPPRTFO   E             10     PRINTER                          
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     READ SOUPREC                  45             
      C           *IN45     DOWEQ'0'                                     
      C                     EXSR CALC                                    
      C                     WRITEDETAIL                                  
      C           *IN10     IFEQ '1'                                     
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     ENDIF                                        
      C                     READ SOUPREC                  45             
      C                     ENDDO                                        
      C           TOTPCT    DIV  RECRDS    AVGPCT  63H                   
      C                     WRITETOTAL                                   
      C                     WRITEFOOT                                    
      C                     SETON                     LR                 
      C*                                                                 
      C           CALC      BEGSR                                        
      C           SP        SUB  COST      PROFIT  42                    
      C           PROFIT    DIV  COST      DECPCT  55                    
      C           DECPCT    MULT 100       PERCNT  53                    
      C                     ADD  PERCNT    TOTPCT  63                    
      C                     ADD  1         RECRDS  40                    
      C                     ENDSR                                        



   back to RPG page