@XQT $PL1TAX
$PL1TAX VER 2  05/27/99 15:20:13
    
**  PL1TAX SOURCE LISTING  **   
     #  STATEMENT   
     1. *   
     2. *  PP.DEMOJ 
     3. *   
     4. * FILE PROCESSING - CONTROL BREAK   
     5. *   
     6. *FILES  
     7.  OLD  FILE PL1TAXDATAS 80   
     8.  TITLE *'PL1TAX CONTROL BREAK DEMONSTRATION RUN',/  
     9. 
    10. *WORKINGSTORAGE 
    11.  COMPANYSV//A10 
    12.  AVGSALARY//B   
    13.  CNTSALARY//B   
    14.  SUMSALARY//B   
    15.  CNTGSALARY//B  
    16.  SUMGSALARY//B  
    17. 
    18. *RECORDS
    19.  OLDKEY/COMPANY/27-36   
    20.  LASTNAME/LAST NAME/1-12
    21.  FIRSTNAME/FIRST NAME/13-20 
    22.  AGE//21-22 
    23.  RACE//23   
    24.  SEX//24
    25.  COUNTY//25-26  
    26.  COMPANY//27-36 
    27.  PHONE//37-46   
    28.  AREACODE/AREA CODE/37-39   
    29.  SSN//47-55 
    30.  SALARY//56-60/N
    31. 
    32. *INITIALIZATION 
    33.  CNTSALARY=0
    34.  SUMSALARY=0
    35.  CNTGSALARY=0   
    36.  SUMGSALARY=0   
    37. 
    38. *CBREAD 
    39.  SUBTITLE 'AVERAGE SALARYS PAID BY COMPANYS',/  
    40.  CNTSALARY=CNTSALARY+1  
    41.  SUMSALARY=SUMSALARY+SALARY 
    42.  CNTGSALARY=CNTGSALARY+1
    43.  SUMGSALARY=SUMGSALARY+SALARY   
    44.  COMPANYSV=OLDKEY   
    45. 
    46. *CBREAK 
    47.  AVGSALARY=(SUMSALARY/CNTSALARY)
    48.  PRINT COMPANYSV,5X,SUMSALARY:'$ZZZ,Z99,999',5X,CNTSALARY:'ZZ,ZZZ',5X,  
    49.        AVGSALARY:'$Z99,999' 
    50.  CNTSALARY=0
    
**  PL1TAX SOURCE LISTING  **   
     #  STATEMENT   
    51.  SUMSALARY=0
    52. 
    53. *TERMINATION
    54.  AVGSALARY=(SUMGSALARY/CNTGSALARY)  
    55.  PRINT ' '  
    56.  PRINT 'GRANT TOTAL',4X,SUMGSALARY:'$ZZZ,Z99,999',5X,CNTGSALARY:'ZZ,Z99',5X,
    57.        AVGSALARY:'$Z99,999' 
    58. 

** $PL1TAX SOURCE LISTING  **   
    
05/27/99                                       PL1TAX CONTROL BREAK DEMONSTRATION RUN  
                                   PAGE     1
AVERAGE SALARYS PAID BY COMPANYS

BURROUGHS      $  6,335,711        128     $ 49,497 
CDC            $  8,709,598        168     $ 51,842 
DEC            $  7,282,414        143     $ 50,925 
IBM            $  7,710,197        157     $ 49,109 
PRIME          $  6,010,135        129     $ 46,590 
UNIVAC         $  6,440,725        130     $ 49,544 
WANG           $  7,446,280        145     $ 51,353 

GRANT TOTAL    $ 49,935,060      1,000     $ 49,935 
    
05/27/99                                       PL1TAX CONTROL BREAK DEMONSTRATION RUN                                     PAGE     2

**  PL1TAX INSTRUCTIONS/READ COUNTS  ** 
**  OLD               1000  READ
**  CB                   7  CB READ 
**  OLD               1000  SELECTED
**  PL1TAX OUTPUT FILE COUNTS  **   
**  LINES                9  PRINTED 
**  CPU TIME        0.0000  SECONDS 
**  CPU/RECORD      0.0000  MILLISECONDS
**  CPU/SELECT      0.0000  MILLISECONDS
**  PL1TAX START  05/27/99  15:20:13  **
**  PL1TAX END    05/27/99  15:20:13  **
**  PL1TAX TOTAL  05/27/99  00:00:00  **
**  CPU/TOTAL    0.0000000  PERCENT 
@BK2,E