data _null_; set out.temp9c; file 'pubout7.dat' notitles lrecl=2244; 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 */ E00650 Z12. /* F 5 */ E00700 Z12. /* F 6 */ E00800 Z12. /* F 7 */ E00900 Z12. /* F 8 */ E01000 Z12. /* F 9 */ E01100 Z12. /* F 10 */ E01150 Z12. /* F 11 */ E01200 Z12. /* F 12 */ E01400 Z12. /* F 13 */ E01500 Z12. /* F 14 */ E01700 Z12. /* F 15 */ E02000 Z12. /* F 16 */ E02100 Z12. /* F 17 */ E02300 Z12. /* F 18 */ E02400 Z12. /* F 19 */ E02500 Z12. /* F 20 */ E03150 Z12. /* F 21 */ E03210 Z12. /* F 22 */ E03220 Z12. /* F 23 */ E03230 Z12. /* F 24 */ E03260 Z12. /* F 25 */ E03270 Z12. /* F 26 */ E03300 Z12. /* F 27 */ E03400 Z12. /* F 28 */ E03500 Z12. /* F 29 */ E00100 Z12. /* F 30 */ P04470 Z12. /* F 31 */ E04600 Z12. /* F 32 */ E04800 Z12. /* F 33 */ E05100 Z12. /* F 34 */ E05200 Z12. /* F 35 */ E05800 Z12. /* F 36 */ E06000 Z12. /* F 37 */ E06200 Z12. /* F 38 */ E06300 Z12. /* F 39 */ E09600 Z12. /* F 40 */ E07180 Z12. /* F 41 */ E07200 Z12. /* F 42 */ E07220 Z12. /* F 43 */ E07230 Z12. /* F 44 */ E07240 Z12. /* F 45 */ E07970 Z12. /* F 46 */ E07300 Z12. /* F 47 */ E07400 Z12. /* F 48 */ E07600 Z12. /* F 49 */ P08000 Z12. /* F 50 */ E07150 Z12. /* F 51 */ E06500 Z12. /* F 52 */ E08800 Z12. /* F 53 */ E09400 Z12. /* F 54 */ E09700 Z12. /* F 55 */ E09800 Z12. /* F 56 */ E09900 Z12. /* F 57 */ E10300 Z12. /* F 58 */ E10700 Z12. /* F 59 */ E10900 Z12. /* F 60 */ E59560 Z12. /* F 61 */ E59680 Z12. /* F 62 */ E59700 Z12. /* F 63 */ E59720 Z12. /* F 64 */ E11070 Z12. /* F 65 */ E11100 Z12. /* F 66 */ E11200 Z12. /* F 67 */ E11300 Z12. /* F 68 */ E11400 Z12. /* F 69 */ E10605 Z12. /* F 70 */ E11900 Z12. /* F 71 */ E12000 Z12. /* F 72 */ E12200 Z12. /* F 73 */ E17500 Z12. /* F 74 */ E18400 Z12. /* F 75 */ E18500 Z12. /* F 76 */ E19200 Z12. /* F 77 */ E19800 Z12. /* F 78 */ E20100 Z12. /* F 79 */ E19700 Z12. /* F 80 */ E20550 Z12. /* F 81 */ E20600 Z12. /* F 82 */ E20400 Z12. /* F 83 */ E20800 Z12. /* F 84 */ E20500 Z12. /* F 85 */ E21040 Z12. /* F 86 */ E90040 Z12. /* F 87 */ E90050 Z12. /* F 88 */ E90080 Z12. /* F 89 */ E90190 Z12. /* F 90 */ E90210 Z12. /* F 91 */ E90240 Z12. /* F 92 */ E90250 Z12. /* F 93 */ E90280 Z12. /* F 94 */ E90370 Z12. /* F 95 */ E90100 Z12. /* F 96 */ P22250 Z12. /* F 97 */ E22320 Z12. /* F 98 */ E22550 Z12. /* F 99 */ E22370 Z12. /* F 100 */ P23250 Z12. /* F 101 */ E24515 Z12. /* F 102 */ E24516 Z12. /* F 103 */ E24518 Z12. /* F 104 */ E24535 Z12. /* F 105 */ E24560 Z12. /* F 106 */ E24587 Z12. /* F 107 */ E24595 Z12. /* F 108 */ E24598 Z12. /* F 109 */ E24605 Z12. /* F 110 */ E24615 Z12. /* F 111 */ E24570 Z12. /* F 112 */ E25350 Z12. /* F 113 */ E25360 Z12. /* F 114 */ E25370 Z12. /* F 115 */ E25380 Z12. /* F 116 */ E25470 Z12. /* F 117 */ E25500 Z12. /* F 118 */ E25700 Z12. /* F 119 */ E25800 Z12. /* F 120 */ E25820 Z12. /* F 121 */ E25850 Z12. /* F 122 */ E25860 Z12. /* F 123 */ E25940 Z12. /* F 124 */ E25980 Z12. /* F 125 */ E25920 Z12. /* F 126 */ E25960 Z12. /* F 127 */ E26110 Z12. /* F 128 */ E26170 Z12. /* F 129 */ E26190 Z12. /* F 130 */ E26160 Z12. /* F 131 */ E26180 Z12. /* F 132 */ E26270 Z12. /* F 133 */ E26100 Z12. /* F 134 */ E26390 Z12. /* F 135 */ E26400 Z12. /* F 136 */ E27200 Z12. /* F 137 */ E30400 Z12. /* F 138 */ E30500 Z12. /* F 139 */ E32800 Z12. /* F 140 */ E33000 Z12. /* F 141 */ E53220 Z12. /* F 142 */ E53240 Z12. /* F 143 */ E53260 Z12. /* F 144 */ E53280 Z12. /* F 145 */ E53410 Z12. /* F 146 */ E58950 Z12. /* F 147 */ E58990 Z12. /* F 148 */ P60100 Z12. /* F 149 */ P61850 Z12. /* F 150 */ E60000 Z12. /* F 151 */ E62100 Z12. /* F 152 */ E62900 Z12. /* F 153 */ E62720 Z12. /* F 154 */ E62730 Z12. /* F 155 */ E62740 Z12. /* F 156 */ E62748 Z12. /* F 157 */ P65300 Z12. /* F 158 */ P65400 Z12. /* F 159 */ E68000 Z12. /* F 160 */ E82200 Z12. /* F 161 */ T27800 Z12. /* F 162 */ S27860 Z12. /* F 163 */ P27895 Z12. /* F 164 */ E87500 Z12. /* F 165 */ E87510 Z12. /* F 166 */ E87520 Z12. /* F 167 */ E87530 Z12. /* F 168 */ E87540 Z12. /* F 169 */ E87550 Z12. /* F 170 */ RECID Z12. /* F 171 */ S006 Z12. /* F 172 */ S008 Z12. /* F 173 */ S009 Z12. /* F 174 */ WSAMP Z12. /* F 175 */ TXRT Z12. /* F 176 */; run; data _null_; set step8; file '/public_2003.dat' lrecl=2244; array codes{33} c1-c33; array fields{176} f1-f176; do i=1 to 33; put codes{i} z4. @; end; do i=1 to 176; if fields{i} < 0 then put fields{i} z12. @; else put '+' fields{i} z11.@; end; run; data out.puf_2003(rename=( F1 = E00200 /* F 1 */ F2 = E00300 /* F 2 */ F3 = E00400 /* F 3 */ F4 = E00600 /* F 4 */ F5 = E00650 /* F 5 */ F6 = E00700 /* F 6 */ F7 = E00800 /* F 7 */ F8 = E00900 /* F 8 */ F9 = E01000 /* F 9 */ F10 = E01100 /* F 10 */ F11 = E01150 /* F 11 */ F12 = E01200 /* F 12 */ F13 = E01400 /* F 13 */ F14 = E01500 /* F 14 */ F15 = E01700 /* F 15 */ F16 = E02000 /* F 16 */ F17 = E02100 /* F 17 */ F18 = E02300 /* F 18 */ F19 = E02400 /* F 19 */ F20 = E02500 /* F 20 */ F21 = E03150 /* F 21 */ F22 = E03210 /* F 22 */ F23 = E03220 /* F 23 */ F24 = E03230 /* F 24 */ F25 = E03260 /* F 25 */ F26 = E03270 /* F 26 */ F27 = E03300 /* F 27 */ F28 = E03400 /* F 28 */ F29 = E03500 /* F 29 */ F30 = E00100 /* F 30 */ F31 = P04470 /* F 31 */ F32 = E04600 /* F 32 */ F33 = E04800 /* F 33 */ F34 = E05100 /* F 34 */ F35 = E05200 /* F 35 */ F36 = E05800 /* F 36 */ F37 = E06000 /* F 37 */ F38 = E06200 /* F 38 */ F39 = E06300 /* F 39 */ F40 = E09600 /* F 40 */ F41 = E07180 /* F 41 */ F42 = E07200 /* F 42 */ F43 = E07220 /* F 43 */ F44 = E07230 /* F 44 */ F45 = E07240 /* F 45 */ F46 = E07970 /* F 46 */ F47 = E07300 /* F 47 */ F48 = E07400 /* F 48 */ F49 = E07600 /* F 49 */ F50 = P08000 /* F 50 */ F51 = E07150 /* F 51 */ F52 = E06500 /* F 52 */ F53 = E08800 /* F 53 */ F54 = E09400 /* F 54 */ F55 = E09700 /* F 55 */ F56 = E09800 /* F 56 */ F57 = E09900 /* F 57 */ F58 = E10300 /* F 58 */ F59 = E10700 /* F 59 */ F60 = E10900 /* F 60 */ F61 = E59560 /* F 61 */ F62 = E59680 /* F 62 */ F63 = E59700 /* F 63 */ F64 = E59720 /* F 64 */ F65 = E11070 /* F 65 */ F66 = E11100 /* F 66 */ F67 = E11200 /* F 67 */ F68 = E11300 /* F 68 */ F69 = E11400 /* F 69 */ F70 = E10605 /* F 70 */ F71 = E11900 /* F 71 */ F72 = E12000 /* F 72 */ F73 = E12200 /* F 73 */ F74 = E17500 /* F 74 */ F75 = E18400 /* F 75 */ F76 = E18500 /* F 76 */ F77 = E19200 /* F 77 */ F78 = E19800 /* F 78 */ F79 = E20100 /* F 79 */ F80 = E19700 /* F 80 */ F81 = E20550 /* F 81 */ F82 = E20600 /* F 82 */ F83 = E20400 /* F 83 */ F84 = E20800 /* F 84 */ F85 = E20500 /* F 85 */ F86 = E21040 /* F 86 */ F87 = E90040 /* F 87 */ F88 = E90050 /* F 88 */ F89 = E90080 /* F 89 */ F90 = E90190 /* F 90 */ F91 = E90210 /* F 91 */ F92 = E90240 /* F 92 */ F93 = E90250 /* F 93 */ F94 = E90280 /* F 94 */ F95 = E90370 /* F 95 */ F96 = E90100 /* F 96 */ F97 = P22250 /* F 97 */ F98 = E22320 /* F 98 */ F99 = E22550 /* F 99 */ F100 = E22370 /* F 100 */ F101 = P23250 /* F 101 */ F102 = E24515 /* F 102 */ F103 = E24516 /* F 103 */ F104 = E24518 F105 = E24535 F106 = E24560 F107 = E24587 F108 = E24595 F109 = E24598 F110 = E24605 F111 = E24615 F112 = E24570 F113 = E25350 F114 = E25360 F115 = E25370 F116 = E25380 F117 = E25470 F118 = E25500 F119 = E25700 F120 = E25800 F121 = E25820 F122 = E25850 F123 = E25860 F124 = E25940 F125 = E25980 F126 = E25920 F127 = E25960 F128 = E26110 F129 = E26170 F130 = E26190 F131 = E26160 F132 = E26180 F133 = E26270 F134 = E26100 F135 = E26390 F136 = E26400 F137 = E27200 F138 = E30400 F139 = E30500 F140 = E32800 F141 = E33000 F142 = E53220 F143 = E53240 F144 = E53260 F145 = E53280 F146 = E53410 F147 = E58950 F148 = E58990 F149 = P60100 F150 = P61850 F151 = E60000 F152 = E62100 F153 = E62900 F154 = E62720 F155 = E62730 F156 = E62740 F157 = E62748 F158 = P65300 F159 = P65400 F160 = E68000 F161 = E82200 F162 = T27800 F163 = S27860 F164 = P27895 F165 = E87500 F166 = E87510 F167 = E87520 F168 = E87530 F169 = E87540 F170 = E87550 F171 = RECID F172 = S006 F173 = S008 F174 = S009 F175 = WSAMP F176 = 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;