@XQT $PL1TAX
$PL1TAX VER 2  05/27/99 15:01:07
    
**  PL1TAX SOURCE LISTING  **   
     #  STATEMENT   
     1. *   
     2. *  PP.DEMOH 
     3. *   
     4. * FILE PROCESSING - INTERMEDIATE
     5. *   
     6. *FILES  
     7.  PAGECT 
     8.  OLD  FILE PL1TAXDATA 80
     9.  TITLE *'PL1TAX DEMONSTRATION RUN',/
    10. 
    11. *FUNCTIONS  
    12.  LOOKUP LRACE 8 1   
    13.  WHITE     W
    14.  BLACK     B
    15.  ORENTIAL  O
    16.  INDIAN    I
    17.  HISPANIC  H
    18.  UNKNOWN   U
    19.  END
    20. 
    21. *WORKINGSTORAGE 
    22.  W1/NEW NAME/A21
    23.  W2/HALF SALARY/N5  
    24.  W3/NEW RACE/A8 
    25.  W4/NEW SEX/A   
    26. 
    27. *RECORDS
    28.  LASTNAME/LAST NAME/1-12
    29.  FIRSTNAME/FIRST NAME/13-20 
    30.  AGE//21-22 
    31.  RACE//23   
    32.  SEX//24
    33.  COUNTY//25-26  
    34.  COMPANY//27-36 
    35.  PHONE//37-46   
    36.  AREACODE/AREA CODE/37-39   
    37.  SSN//47-55 
    38.  SALARY//56-60/N
    39. 
    40. *VARIABLES  
    41.  PHONENUM/PHONE #/58-60,'-',61-64   
    42. 
    43. *INSTRUCTIONS   
    44.  IF COMPANY = IBM   
    45.     IF AREACODE = 222   
    46.        W1 = LASTNAME,',',FIRSTNAME  
    47.        PRINT '1: ',W1   
    48.     ENDIF   
    49.  ENDIF  
    50. 
    
**  PL1TAX SOURCE LISTING  **   
     #  STATEMENT   
    51.  IF COMPANY = CDC   
    52.     IF AREACODE = 333   
    53.        W2 = SALARY / 2  
    54.        PRINT '2: ',SALARY,2X,W2 
    55.     ENDIF   
    56.  ENDIF  
    57. 
    58.  IF COMPANY = DEC   
    59.     IF AREACODE = 444   
    60.        LOOKUP W3=LRACE(RACE)
    61.        PRINT '3: ',RACE,2X,W3   
    62.     ENDIF   
    63.  ENDIF  
    64. 
    65.  IF COMPANY = PRIME 
    66.     IF AREACODE = 555   
    67.        W4 = SEX 
    68.        TRANSLATE W4 FROM M,F TO 0,1 
    69.        PRINT '4: ',SEX,2X,W4
    70.     ENDIF   
    71.  ENDIF  
    72. 

** $PL1TAX SOURCE LISTING  **   

    
05/27/99                                              PL1TAX DEMONSTRATION RUN                                            PAGE     1
2: 77887  38943 
2: 51592  25796 
3: W  WHITE 
1: WILLIAMS    ,LARRY   
2: 21437  10718 
2: 46234  23117 
2: 87463  43731 
2: 38917  19458 
4: F  1 
1: STREET      ,LARRY   
1: HARRIS      ,CURLY   
4: M  0 
2: 87988  43994 
3: H  HISPANIC  
4: F  1 
3: B  BLACK 
4: M  0 
4: M  0 
4: M  0 
4: F  1 
4: F  1 
1: HARRIS      ,LUKE
4: M  0 
4: M  0 
4: M  0 
4: M  0 
4: F  1 
2: 51025  25512 
4: F  1 
2: 01121  00560 
2: 59482  29741 
4: F  1 
4: F  1 
3: H  HISPANIC  
4: F  1 
2: 11100  05550 
4: F  1 
3: B  BLACK 
2: 34573  17286 
1: CARTER      ,CURLY   
2: 07963  03981 
3: B  BLACK 
4: M  0 
4: F  1 
1: STREET      ,DONA
3: H  HISPANIC  
4: F  1 
4: F  1 
3: W  WHITE 
1: SMITH       ,CURLY   
3: O  ORENTIAL  
1: SMITH       ,ALTHEA  
1: WILLIAMS    ,CURLY   
1: SMITH       ,LARRY   
2: 88819  44409 
    
05/27/99                                              PL1TAX DEMONSTRATION RUN                                            PAGE     2
3: W  WHITE 
1: MILLER      ,LARRY   
4: F  1 
3: B  BLACK 
3: W  WHITE 
3: W  WHITE 
2: 31235  15617 
4: M  0 
2: 66460  33230 
    
05/27/99                                              PL1TAX DEMONSTRATION RUN                                            PAGE     3

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