2002 SOI Individual Public-Use File Layout These are portions of the SAS programs used to create the PUF. They are provided to you in order to eliminate the need to rekey the layout in your programs. You may find it useful to paste these layouts into a spreadsheet and parse the columns in order to eliminate or modify particular columns. file lrecl=2184; put AGIR1 z4. /* C 1 */ DSI z4. /* C 2 */ EFI z4. /* C 3 */ EIC z4. /* C 4 */ ELECT z4. /* C 5 */ FDED z4. /* C 6 */ FLPDYR z4. /* C 7 */ FLPDMO z4. /* C 8 */ F2441 z4. /* C 9 */ F3800 z4. /* C 10 */ F6251 z4. /* C 11 */ F8582 z4. /* C 12 */ F8606 z4. /* C 13 */ IE z4. /* C 14 */ MARS z4. /* C 15 */ MIDR z4. /* C 16 */ N20 z4. /* C 17 */ N24 z4. /* C 18 */ N25 z4. /* C 19 */ PREP z4. /* C 20 */ SCHB z4. /* C 21 */ SCHCF z4. /* C 22 */ SCHE z4. /* C 23 */ STATE z4. /* C 24 */ TFORM z4. /* C 25 */ TXST z4. /* C 26 */ XFPT z4. /* C 27 */ XFST z4. /* C 28 */ XOCAH z4. /* C 29 */ XOCAWH z4. /* C 30 */ XOODEP z4. /* C 31 */ XOPAR z4. /* C 32 */ XTOT z4. /* C 33 */ E00200 Z12. /* F 1 */ E00300 Z12. /* F 2 */ E00400 Z12. /* F 3 */ E00600 Z12. /* F 4 */ E00700 Z12. /* F 5 */ E00800 Z12. /* F 6 */ E00900 Z12. /* F 7 */ E01000 Z12. /* F 8 */ E01100 Z12. /* F 9 */ E01200 Z12. /* F 10 */ E01400 Z12. /* F 11 */ E01500 Z12. /* F 12 */ E01700 Z12. /* F 13 */ E02000 Z12. /* F 14 */ E02100 Z12. /* F 15 */ E02300 Z12. /* F 16 */ E02400 Z12. /* F 17 */ E02500 Z12. /* F 18 */ E03150 Z12. /* F 19 */ E03210 Z12. /* F 20 */ E03220 Z12. /* F 21 */ E03230 Z12. /* F 22 */ E03260 Z12. /* F 23 */ E03270 Z12. /* F 24 */ E03300 Z12. /* F 25 */ E03400 Z12. /* F 26 */ E03500 Z12. /* F 27 */ E00100 Z12. /* F 28 */ P04470 Z12. /* F 29 */ E04600 Z12. /* F 30 */ E04800 Z12. /* F 31 */ E05100 Z12. /* F 32 */ E05200 Z12. /* F 33 */ E05800 Z12. /* F 34 */ E06000 Z12. /* F 35 */ E06200 Z12. /* F 36 */ E06300 Z12. /* F 37 */ E09600 Z12. /* F 38 */ E07180 Z12. /* F 39 */ E07200 Z12. /* F 40 */ E07220 Z12. /* F 41 */ E07230 Z12. /* F 42 */ E07240 Z12. /* F 43 */ E07970 Z12. /* F 44 */ E07300 Z12. /* F 45 */ E07400 Z12. /* F 46 */ E07600 Z12. /* F 47 */ P08000 Z12. /* F 48 */ E07150 Z12. /* F 49 */ E06500 Z12. /* F 50 */ E08800 Z12. /* F 51 */ E09400 Z12. /* F 52 */ E09700 Z12. /* F 53 */ E09800 Z12. /* F 54 */ E09900 Z12. /* F 55 */ E10300 Z12. /* F 56 */ E10700 Z12. /* F 57 */ E10900 Z12. /* F 58 */ E59560 Z12. /* F 59 */ E59680 Z12. /* F 60 */ E59700 Z12. /* F 61 */ E59720 Z12. /* F 62 */ E11070 Z12. /* F 63 */ E11100 Z12. /* F 64 */ E11200 Z12. /* F 65 */ E11300 Z12. /* F 66 */ E11400 Z12. /* F 67 */ E10605 Z12. /* F 68 */ E11900 Z12. /* F 69 */ E12000 Z12. /* F 70 */ E12200 Z12. /* F 71 */ E17500 Z12. /* F 72 */ E18400 Z12. /* F 73 */ E18500 Z12. /* F 74 */ E19200 Z12. /* F 75 */ E19800 Z12. /* F 76 */ E20100 Z12. /* F 77 */ E19700 Z12. /* F 78 */ E20550 Z12. /* F 79 */ E20600 Z12. /* F 80 */ E20400 Z12. /* F 81 */ E20800 Z12. /* F 82 */ E20500 Z12. /* F 83 */ E21040 Z12. /* F 84 */ E90040 Z12. /* F 85 */ E90050 Z12. /* F 86 */ E90080 Z12. /* F 87 */ E90190 Z12. /* F 88 */ E90210 Z12. /* F 89 */ E90240 Z12. /* F 90 */ E90250 Z12. /* F 91 */ E90280 Z12. /* F 92 */ E90370 Z12. /* F 93 */ E90100 Z12. /* F 94 */ P22250 Z12. /* F 95 */ E22320 Z12. /* F 96 */ E22550 Z12. /* F 97 */ E22370 Z12. /* F 98 */ P23250 Z12. /* F 99 */ E24515 Z12. /* F 100 */ E24560 Z12. /* F 101 */ E24587 Z12. /* F 102 */ E24595 Z12. /* F 103 */ E24605 Z12. /* F 104 */ E24615 Z12. /* F 105 */ E24570 Z12. /* F 106 */ E25350 Z12. /* F 107 */ E25360 Z12. /* F 108 */ E25370 Z12. /* F 109 */ E25380 Z12. /* F 110 */ E25470 Z12. /* F 111 */ E25500 Z12. /* F 112 */ E25700 Z12. /* F 113 */ E25800 Z12. /* F 114 */ E25820 Z12. /* F 115 */ E25850 Z12. /* F 116 */ E25860 Z12. /* F 117 */ E25940 Z12. /* F 118 */ E25980 Z12. /* F 119 */ E25920 Z12. /* F 120 */ E25960 Z12. /* F 121 */ E26110 Z12. /* F 122 */ E26170 Z12. /* F 123 */ E26190 Z12. /* F 124 */ E26160 Z12. /* F 125 */ E26180 Z12. /* F 126 */ E26270 Z12. /* F 127 */ E26100 Z12. /* F 128 */ E26390 Z12. /* F 129 */ E26400 Z12. /* F 130 */ E27200 Z12. /* F 131 */ E30400 Z12. /* F 132 */ E30500 Z12. /* F 133 */ E32800 Z12. /* F 134 */ E33000 Z12. /* F 135 */ E53220 Z12. /* F 136 */ E53240 Z12. /* F 137 */ E53260 Z12. /* F 138 */ E53280 Z12. /* F 139 */ E53300 Z12. /* F 140 */ E53410 Z12. /* F 141 */ E58950 Z12. /* F 142 */ E58990 Z12. /* F 143 */ P60100 Z12. /* F 144 */ P61850 Z12. /* F 145 */ E60000 Z12. /* F 146 */ E62100 Z12. /* F 147 */ E62900 Z12. /* F 148 */ E62720 Z12. /* F 149 */ E62730 Z12. /* F 150 */ E62740 Z12. /* F 151 */ E62748 Z12. /* F 152 */ P65300 Z12. /* F 153 */ P65400 Z12. /* F 154 */ E68000 Z12. /* F 155 */ E82200 Z12. /* F 156 */ T27800 Z12. /* F 157 */ S27860 Z12. /* F 158 */ P27895 Z12. /* F 159 */ E87500 Z12. /* F 160 */ E87510 Z12. /* F 161 */ E87520 Z12. /* F 162 */ E87530 Z12. /* F 163 */ E87540 Z12. /* F 164 */ E87550 Z12. /* F 165 */ RECID Z12. /* F 166 */ S006 Z12. /* F 167 */ S008 Z12. /* F 168 */ S009 Z12. /* F 169 */ WSAMP Z12. /* F 170 */ TXRT Z12. /* F 171 */ ; run; data _null_; set step8; file XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' lrecl=2184; array codes{33} c1-c33; array fields{171} f1-f171; do i=1 to 33; put codes{i} z4. @; end; do i=1 to 171; if fields{i} < 0 then put fields{i} z12. @; else put '+' fields{i} z11.@; end; run; /********** ### END STEP 8 ************/ data out.puf_2002(rename=( F1 = E00200 F2 = E00300 F3 = E00400 F4 = E00600 F5 = E00700 F6 = E00800 F7 = E00900 F8 = E01000 F9 = E01100 F10 = E01200 F11 = E01400 F12 = E01500 F13 = E01700 F14 = E02000 F15 = E02100 F16 = E02300 F17 = E02400 F18 = E02500 F19 = E03150 F20 = E03210 F21 = E03220 F22 = E03230 F23 = E03260 F24 = E03270 F25 = E03300 F26 = E03400 F27 = E03500 F28 = E00100 F29 = P04470 F30 = E04600 F31 = E04800 F32 = E05100 F33 = E05200 F34 = E05800 F35 = E06000 F36 = E06200 F37 = E06300 F38 = E09600 F39 = E07180 F40 = E07200 F41 = E07220 F42 = E07230 F43 = E07240 F44 = E07970 F45 = E07300 F46 = E07400 F47 = E07600 F48 = P08000 F49 = E07150 F50 = E06500 F51 = E08800 F52 = E09400 F53 = E09700 F54 = E09800 F55 = E09900 F56 = E10300 F57 = E10700 F58 = E10900 F59 = E59560 F60 = E59680 F61 = E59700 F62 = E59720 F63 = E11070 F64 = E11100 F65 = E11200 F66 = E11300 F67 = E11400 F68 = E10605 F69 = E11900 F70 = E12000 F71 = E12200 F72 = E17500 F73 = E18400 F74 = E18500 F75 = E19200 F76 = E19800 F77 = E20100 F78 = E19700 F79 = E20550 F80 = E20600 F81 = E20400 F82 = E20800 F83 = E20500 F84 = E21040 F85 = E90040 F86 = E90050 F87 = E90080 F88 = E90190 F89 = E90210 F90 = E90240 F91 = E90250 F92 = E90280 F93 = E90370 F94 = E90100 F95 = P22250 F96 = E22320 F97 = E22550 F98 = E22370 F99 = P23250 F100 = E24515 F101 = E24560 F102 = E24587 F103 = E24595 F104 = E24605 F105 = E24615 F106 = E24570 F107 = E25350 F108 = E25360 F109 = E25370 F110 = E25380 F111 = E25470 F112 = E25500 F113 = E25700 F114 = E25800 F115 = E25820 F116 = E25850 F117 = E25860 F118 = E25940 F119 = E25980 F120 = E25920 F121 = E25960 F122 = E26110 F123 = E26170 F124 = E26190 F125 = E26160 F126 = E26180 F127 = E26270 F128 = E26100 F129 = E26390 F130 = E26400 F131 = E27200 F132 = E30400 F133 = E30500 F134 = E32800 F135 = E33000 F136 = E53220 F137 = E53240 F138 = E53260 F139 = E53280 F140 = E53300 F141 = E53410 F142 = E58950 F143 = E58990 F144 = P60100 F145 = P61850 F146 = E60000 F147 = E62100 F148 = E62900 F149 = E62720 F150 = E62730 F151 = E62740 F152 = E62748 F153 = P65300 F154 = P65400 F155 = E68000 F156 = E82200 F157 = T27800 F158 = S27860 F159 = P27895 F160 = E87500 F161 = E87510 F162 = E87520 F163 = E87530 F164 = E87540 F165 = E87550 F166 = RECID F167 = S006 F168 = S008 F169 = S009 F170 = WSAMP F171 = TXRT C1=AGIR1 C2=DSI C3=EFI C4=EIC C5=ELECT C6=FDED C7=FLPDYR C8=FLPDMO C9=F2441 C10=F3800 C11=F6251 C12=F8582 C13=F8606 C14=IE C15=MARS C16=MIdR C17=N20 C18=N24 c19=N25 C20=PREP C21=SCHB C22=SCHCF C23=SCHE C24=STATE C25=TFORM C26=TXST C27=XFPT C28=XFST C29=XOCAH C30=XOCAWH C31=XOODEP C32=XOPAR C33=XTOT )); set step8; RUN;