FVOTERP  IF  E                    DISK                             
      FVOTERREPO   E             10     PRINTER                          
       *   MAIN CODE                                                     
      C           *LIKE     DEFN TNUM      HTWN                          
      C                     Z-ADD0         HIGH    40                    
      C                     WRITEHEADER                                  
      C*                    WRITEBLANK1                                  
      C                     WRITECOLHDG                                  
      C                     READ VOTERP                   45             
      C           *IN45     DOWEQ'0'                                     
      C                     MOVE TNUM      HTWN                          
      C                     EXSR INIT                                    
      C           TNUM      DOWEQHTWN                                    
      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 VOTERP                   45             
      C                     ENDDO                                        
      C                     WRITETOTAL1                                  
      C                     ENDDO                                        
      C                     WRITETOTAL2                                  
      C                     SETON                     LR                 
      C           INIT      BEGSR                                        
      C                     Z-ADD0         TWNTOT  70                    
      C                     ENDSR                                        
      C           CALC      BEGSR                                        
      C                     ADD  VOTERS    TWNTOT                        
      C                     ADD  VOTERS    STATOT                        
      C                     ENDSR                                        



   back to RPG page