options center linesize=80; data PUF_2005; infile 'public_2005.dat' lrecl=2196; array codes{33} c1-c33; array fields{172} f1-f172; do i=1 to 33; input codes{i} 4. @; end; do i=1 to 172; input fields{i} 12. @; end; output; run; data puf_2005(rename=( F1 = E00200 F2 = E00300 F3 = E00400 F4 = E00600 F5 = E00650 F6 = E00700 F7 = E00800 F8 = E00900 F9 = E01000 F10 = E01100 F11 = E01200 F12 = E01400 F13 = E01500 F14 = E01700 F15 = E02000 F16 = E02100 F17 = E02300 F18 = E02400 F19 = E02500 F20 = E03150 F21 = E03210 F22 = E03220 F23 = E03230 F24 = E03260 F25 = E03270 F26 = E03240 F27 = E03290 F28 = E03300 F29 = E03400 F30 = E03500 F31 = E00100 F32 = P04470 F33 = E04600 F34 = E04800 F35 = E05100 F36 = E05200 F37 = E05800 F38 = E06000 F39 = E06200 F40 = E06300 F41 = E09600 F42 = E07180 F43 = E07200 F44 = E07220 F45 = E07230 F46 = E07240 F47 = E07300 F48 = E07400 F49 = E07600 F50 = P08000 F51 = E07150 F52 = E06500 F53 = E08800 F54 = E09400 F55 = E09700 F56 = E09800 F57 = E09900 F58 = E10300 F59 = E10700 F60 = E10900 F61 = E59560 F62 = E59680 F63 = E59700 F64 = E59720 F65 = E11070 F66 = E11100 F67 = E11200 F68 = E11300 F69 = E11400 F70 = E10605 F71 = E11900 F72 = E12000 F73 = E12200 F74 = E17500 F75 = E18425 F76 = E18450 F77 = E18500 F78 = E19200 F79 = E19800 F80 = E19850 F81 = E20100 F82 = E19700 F83 = E20550 F84 = E20600 F85 = E20400 F86 = E20800 F87 = E20500 F88 = E21040 F89 = E90040 F90 = E90050 F91 = E90080 F92 = E90190 F93 = E90210 F94 = E90240 F95 = E90250 F96 = E90280 F97 = E90370 F98 = E90100 F99 = P22250 F100 = E22320 F101 = E22370 F102 = P23250 F103 = E24515 F104 = E24516 F105 = E24518 F106 = E24535 F107 = E24560 F108 = E24598 F109 = E24615 F110 = E24570 F111 = E25350 F112 = E25360 F113 = E25370 F114 = E25380 F115 = E25470 F116 = E25500 F117 = E25700 F118 = E25800 F119 = E25820 F120 = E25850 F121 = E25860 F122 = E25940 F123 = E25980 F124 = E25920 F125 = E25960 F126 = E26110 F127 = E26170 F128 = E26190 F129 = E26160 F130 = E26180 F131 = E26270 F132 = E26100 F133 = E26390 F134 = E26400 F135 = E27200 F136 = E30400 F137 = E30500 F138 = E32800 F139 = E33000 F140 = E53220 F141 = E53240 F142 = E53280 F143 = E53410 F144 = E58950 F145 = E58990 F146 = P60100 F147 = P61850 F148 = E60000 F149 = E62100 F150 = E62900 F151 = E62720 F152 = E62730 F153 = E62740 F154 = P65300 F155 = P65400 F156 = E68000 F157 = E82200 F158 = T27800 F159 = S27860 F160 = P27895 F161 = E87500 F162 = E87510 F163 = E87520 F164 = E87530 F165 = E87540 F166 = E87550 F167 = RECID F168 = S006 F169 = S008 F170 = S009 F171 = WSAMP F172 = 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 PUF_2005; RUN;