@XQT $PL1TAX
$PL1TAX VER 2 05/27/99 14:16:37
** PL1TAX SOURCE LISTING **
# STATEMENT
1. *
2. * PP.PL1TAXGEN
3. *
4. *FILES
5. OLD GENERATED 40N
6. LIMIT 1000
7. OUTPUT FILE PL1TAXDATA 80
8.
9. *FUNCTIONS
10. GEN GLNAME SMITH,JONES,MILLER,HARRIS,DAVIS,WILLIAMS,STREET,CARTER
11. GEN GFMNAME MATHEW,MARK,LUKE,JOHN,LARRY,MOE,CURLY
12. GEN GFFNAME SHIRLEY,BONNIE,RHONDA,ALTHEA,MAGGIE,CAROL,DONA,FRAN
13. GEN GRACE W,W,W,B,B,O,H,U
14. GEN GSEX M,M,M,F,F
15. GEN GCOMP IBM,UNIVAC,CDC,WANG,PRIME,BURROUGHS,DEC
16.
17. *WORKINGSTORAGE
18. LNAME/LAST NAME/A12
19. FNAME/FIRST NAME/A8
20. RACE//A
21. SEX//A
22. PHONE//A10
23. COMPANY//A10
24.
25. *RECORDS
26. AGE//1-2
27. COUNTY//3-4
28. PHONEAC//5
29. PHONENO//6-12
30. SSN//13-21
31. SALARY//22-26
32.
33. *INSTRUCTIONS
34. GEN LNAME=GLNAME
35. GEN SEX=GSEX
36. IF SEX=M
37. GEN FNAME=GFMNAME
38. ELSE
39. GEN FNAME=GFFNAME
40. ENDIF
41. GEN RACE =GRACE
42. GEN COMPANY =GCOMP
43. TRANSLATE AGE FROM 00-11 TO 20-31
44. TRANSLATE PHONEAC FROM 0,1 TO 5,7
45. TRANSLATE COUNTY FROM 00,61-99 TO 20-59
46. PHONE=PHONEAC,PHONEAC,PHONEAC,PHONENO
47. WRITE LNAME,FNAME,AGE,RACE,SEX,COUNTY,COMPANY,
48. PHONE,SSN,SALARY ON FILE PL1TAXDATA
** $PL1TAX SOURCE LISTING **
** PL1TAX INSTRUCTIONS/READ COUNTS **
** OLD 1000 GENERATED
** OLD 1000 SELECTED
** PL1TAX OUTPUT FILE COUNTS **
** PL1TAXDATA 1000 WRITTEN
** CPU TIME 0.7048 SECONDS
** CPU/RECORD 0.7048 MILLISECONDS
** CPU/SELECT 0.7048 MILLISECONDS
** PL1TAX START 05/27/99 14:16:37 **
** PL1TAX END 05/27/99 14:16:44 **
** PL1TAX TOTAL 05/27/99 00:00:07 **
** CPU/TOTAL 10.0685711 PERCENT
@BK2,E