FCSALES  IF  E                    DISK                             
      FCARLIST O   E             10     PRINTER                          
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     READ CSALES                   45             
      C           *IN45     DOWEQ'0'                                     
      C                     ADD  SALES     TOTSLS     52                 
      C                     WRITEDETAIL                                  
      C           *IN10     IFEQ '1'                                     
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     SETOF                       10               
      C                     ENDIF                                        
      C                     READ CSALES                   45             
      C                     ENDDO                                        
      C                     WRITETOTAL                                   
      C                     SETON                       LR               





   back to RPG page