FECONOMP IF  E                    DISK                             
      FECONPRTFO   E             10     PRINTER                          
      C                     EXSR HEADRS                                  
      C                     READ ECONOMP                  45             
      C           *IN45     DOWEQ'0'                                     
      C                     EXSR CALC                                    
      C                     WRITEDETAIL                                  
      C           *IN10     IFEQ '1'                                     
      C                     EXSR HEADRS                                  
      C                     SETOF                     10                 
      C                     ENDIF                                        
      C                     READ ECONOMP                  45             
      C                     ENDDO                                        
      C*                    WRITETOTAL                                   
      C*                    WRITEFOOT                                    
      C                     SETON                     LR                 
       *                                                                 
       *                                                                 
      C           CALC      BEGSR                                        
      C           USAGE     MULT 2         TEMP1   60                    
      C           TEMP1     MULT ORDCST    TEMP2   90                    
      C           UNTCST    MULT CARCST    TEMP3   96                    
      C           TEMP2     DIV  TEMP3     TEMP4   70                    
      C                     SQRT TEMP4     EOQ                           
      C           USAGE     DIV  EOQ       ORDERS                        
      C                     ENDSR                                        
       *                                                                 
       *                                                                 
      C           HEADRS    BEGSR                                        
      C                     WRITEHEADER                                  
      C                     WRITEHEADER2                                 
      C                     ENDSR                                        




   back to RPG page