FDEPSALESIF  E                    DISK                             
      FSALESREPO   E             10     PRINTER                          
      C           *LIKE     DEFN STRNUM    HSTR                          
      C                     Z-ADD0         HIGH    72                    
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     READ DEPSALES                 45             
      C           *IN45     DOWEQ'0'                                     
      C                     MOVE STRNUM    HSTR                          
      C                     SETON                     66                 
      C                     EXSR INIT                                    
      C           STRNUM    DOWEQHSTR                                    
      C           *IN45     ANDEQ'0'                                     
      C                     EXSR CALC                                    
      C                     WRITEDETAIL                                  
      C                     SETOF                     66                 
      C           *IN10     IFEQ '1'                                     
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     SETOF                     10                 
      C                     ENDIF                                        
      C                     READ DEPSALES                 45             
      C                     EXSR HISLS                                   
      C                     ENDDO                                        
      C                     WRITETOTALS                                  
      C                     ENDDO                                        
      C                     WRITEHIGHEST                                 
      C                     SETON                     LR                 
      C*                                                                 
      C           INIT      BEGSR                                        
      C                     Z-ADD0         TASALE                        
      C                     Z-ADD0         TDISC                         
      C                     Z-ADD0         TBONUS                        
      C                     Z-ADD0         TNSALE                        
      C                     ENDSR                                        
      C*                                                                 
      C           CALC      BEGSR                                        
      C                     EXSR NETSLS                                  
      C                     EXSR ACCTOT                                  
      C                     EXSR HISLS                                   
      C                     ENDSR                                        
      C*                                                                 
      C           NETSLS    BEGSR                                        
      C           DISC      ADD  ASALES    NSALE                         
      C                     SUB  BONUS     NSALE                         
      C                     ENDSR                                        
      C*                                                                 
      C           ACCTOT    BEGSR                                        
      C                     ADD  ASALES    TASALE                        
      C                     ADD  DISC      TDISC                         
      C                     ADD  BONUS     TBONUS                        
      C                     ADD  NSALE     TNSALE                        
      C                     ENDSR                                        
      C*                                                                 
      C           HISLS     BEGSR                                        
      C           TNSALE    IFGT HIGH                                    
      C                     Z-ADDTNSALE    HIGH                          
      C                     MOVE HSTR      STRHI   30                    
      C                     ENDIF                                        
      C                     ENDSR                                        


Link back to cobol page