@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