/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2015 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2015.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2015.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2015; infile link lrecl=1456; input @1 pwwgt0 f9.4 @10 pwwgt1 f9.4 @19 pwwgt2 f9.4 @28 pwwgt3 f9.4 @37 pwwgt4 f9.4 @46 pwwgt5 f9.4 @55 pwwgt6 f9.4 @64 pwwgt7 f9.4 @73 pwwgt8 f9.4 @82 pwwgt9 f9.4 @91 pwwgt10 f9.4 @100 pwwgt11 f9.4 @109 pwwgt12 f9.4 @118 pwwgt13 f9.4 @127 pwwgt14 f9.4 @136 pwwgt15 f9.4 @145 pwwgt16 f9.4 @154 pwwgt17 f9.4 @163 pwwgt18 f9.4 @172 pwwgt19 f9.4 @181 pwwgt20 f9.4 @190 pwwgt21 f9.4 @199 pwwgt22 f9.4 @208 pwwgt23 f9.4 @217 pwwgt24 f9.4 @226 pwwgt25 f9.4 @235 pwwgt26 f9.4 @244 pwwgt27 f9.4 @253 pwwgt28 f9.4 @262 pwwgt29 f9.4 @271 pwwgt30 f9.4 @280 pwwgt31 f9.4 @289 pwwgt32 f9.4 @298 pwwgt33 f9.4 @307 pwwgt34 f9.4 @316 pwwgt35 f9.4 @325 pwwgt36 f9.4 @334 pwwgt37 f9.4 @343 pwwgt38 f9.4 @352 pwwgt39 f9.4 @361 pwwgt40 f9.4 @370 pwwgt41 f9.4 @379 pwwgt42 f9.4 @388 pwwgt43 f9.4 @397 pwwgt44 f9.4 @406 pwwgt45 f9.4 @415 pwwgt46 f9.4 @424 pwwgt47 f9.4 @433 pwwgt48 f9.4 @442 pwwgt49 f9.4 @451 pwwgt50 f9.4 @460 pwwgt51 f9.4 @469 pwwgt52 f9.4 @478 pwwgt53 f9.4 @487 pwwgt54 f9.4 @496 pwwgt55 f9.4 @505 pwwgt56 f9.4 @514 pwwgt57 f9.4 @523 pwwgt58 f9.4 @532 pwwgt59 f9.4 @541 pwwgt60 f9.4 @550 pwwgt61 f9.4 @559 pwwgt62 f9.4 @568 pwwgt63 f9.4 @577 pwwgt64 f9.4 @586 pwwgt65 f9.4 @595 pwwgt66 f9.4 @604 pwwgt67 f9.4 @613 pwwgt68 f9.4 @622 pwwgt69 f9.4 @631 pwwgt70 f9.4 @640 pwwgt71 f9.4 @649 pwwgt72 f9.4 @658 pwwgt73 f9.4 @667 pwwgt74 f9.4 @676 pwwgt75 f9.4 @685 pwwgt76 f9.4 @694 pwwgt77 f9.4 @703 pwwgt78 f9.4 @712 pwwgt79 f9.4 @721 pwwgt80 f9.4 @730 pwwgt81 f9.4 @739 pwwgt82 f9.4 @748 pwwgt83 f9.4 @757 pwwgt84 f9.4 @766 pwwgt85 f9.4 @775 pwwgt86 f9.4 @784 pwwgt87 f9.4 @793 pwwgt88 f9.4 @802 pwwgt89 f9.4 @811 pwwgt90 f9.4 @820 pwwgt91 f9.4 @829 pwwgt92 f9.4 @838 pwwgt93 f9.4 @847 pwwgt94 f9.4 @856 pwwgt95 f9.4 @865 pwwgt96 f9.4 @874 pwwgt97 f9.4 @883 pwwgt98 f9.4 @892 pwwgt99 f9.4 @901 pwwgt100 f9.4 @910 pwwgt101 f9.4 @919 pwwgt102 f9.4 @928 pwwgt103 f9.4 @937 pwwgt104 f9.4 @946 pwwgt105 f9.4 @955 pwwgt106 f9.4 @964 pwwgt107 f9.4 @973 pwwgt108 f9.4 @982 pwwgt109 f9.4 @991 pwwgt110 f9.4 @1000 pwwgt111 f9.4 @1009 pwwgt112 f9.4 @1018 pwwgt113 f9.4 @1027 pwwgt114 f9.4 @1036 pwwgt115 f9.4 @1045 pwwgt116 f9.4 @1054 pwwgt117 f9.4 @1063 pwwgt118 f9.4 @1072 pwwgt119 f9.4 @1081 pwwgt120 f9.4 @1090 pwwgt121 f9.4 @1099 pwwgt122 f9.4 @1108 pwwgt123 f9.4 @1117 pwwgt124 f9.4 @1126 pwwgt125 f9.4 @1135 pwwgt126 f9.4 @1144 pwwgt127 f9.4 @1153 pwwgt128 f9.4 @1162 pwwgt129 f9.4 @1171 pwwgt130 f9.4 @1180 pwwgt131 f9.4 @1189 pwwgt132 f9.4 @1198 pwwgt133 f9.4 @1207 pwwgt134 f9.4 @1216 pwwgt135 f9.4 @1225 pwwgt136 f9.4 @1234 pwwgt137 f9.4 @1243 pwwgt138 f9.4 @1252 pwwgt139 f9.4 @1261 pwwgt140 f9.4 @1270 pwwgt141 f9.4 @1279 pwwgt142 f9.4 @1288 pwwgt143 f9.4 @1297 pwwgt144 f9.4 @1306 pwwgt145 f9.4 @1315 pwwgt146 f9.4 @1324 pwwgt147 f9.4 @1333 pwwgt148 f9.4 @1342 pwwgt149 f9.4 @1351 pwwgt150 f9.4 @1360 pwwgt151 f9.4 @1369 pwwgt152 f9.4 @1378 pwwgt153 f9.4 @1387 pwwgt154 f9.4 @1396 pwwgt155 f9.4 @1405 pwwgt156 f9.4 @1414 pwwgt157 f9.4 @1423 pwwgt158 f9.4 @1432 pwwgt159 f9.4 @1441 pwwgt160 f9.4 @1450 h_seq f5.0 @1455 pppos $char2.; run; /* SUM of Weights for Verification: All replicate weights, PWWGT0 - PWWGT160, should be slightly different due to the inclusion of Armed Forces members in the ASEC estimates. Use these totals to verify that your file is created correctly. PWWGT0 = 316167937.4448 PWWGT1 = 316179385.1547 PWWGT2 = 316169262.5801 PWWGT3 = 316156581.4344 PWWGT4 = 316185771.2888 PWWGT5 = 316229942.5526 PWWGT6 = 316146002.8132 PWWGT7 = 316207492.9468 PWWGT8 = 316187258.2185 PWWGT9 = 316158659.5809 PWWGT10 = 316172960.2987 PWWGT11 = 316125022.5722 PWWGT12 = 316162507.9648 PWWGT13 = 316207615.8853 PWWGT14 = 316207365.8209 PWWGT15 = 316152669.5412 PWWGT16 = 316173583.9046 PWWGT17 = 316145721.9150 PWWGT18 = 316173162.3974 PWWGT19 = 316140718.9707 PWWGT20 = 316166144.5453 PWWGT21 = 316186500.2736 PWWGT22 = 316176455.9307 PWWGT23 = 316084655.7647 PWWGT24 = 316196298.2377 PWWGT25 = 316159100.2496 PWWGT26 = 316153651.3763 PWWGT27 = 316186491.0584 PWWGT28 = 316178653.5360 PWWGT29 = 316175029.4665 PWWGT30 = 316196916.6098 PWWGT31 = 316213999.9093 PWWGT32 = 316150232.6282 PWWGT33 = 316206569.7003 PWWGT34 = 316150757.3235 PWWGT35 = 316179703.8183 PWWGT36 = 316198612.8342 PWWGT37 = 316120691.5104 PWWGT38 = 316191439.4224 PWWGT39 = 316143017.1058 PWWGT40 = 316170136.3000 PWWGT41 = 316179970.8240 PWWGT42 = 316189149.7384 PWWGT43 = 316199572.4061 PWWGT44 = 316182889.2657 PWWGT45 = 316161383.6692 PWWGT46 = 316153855.0268 PWWGT47 = 316116598.5001 PWWGT48 = 316115081.1808 PWWGT49 = 316170900.3436 PWWGT50 = 316164760.9077 PWWGT51 = 316166168.0147 PWWGT52 = 316167270.0888 PWWGT53 = 316164137.0896 PWWGT54 = 316137866.5051 PWWGT55 = 316185259.2842 PWWGT56 = 316196139.4164 PWWGT57 = 316194778.1943 PWWGT58 = 316181985.4647 PWWGT59 = 316138212.0965 PWWGT60 = 316161028.9247 PWWGT61 = 316189586.8380 PWWGT62 = 316160803.3284 PWWGT63 = 316137067.1095 PWWGT64 = 316138210.3021 PWWGT65 = 316154256.9470 PWWGT66 = 316253012.9308 PWWGT67 = 316161679.5466 PWWGT68 = 316137702.9140 PWWGT69 = 316198475.7414 PWWGT70 = 316158970.8280 PWWGT71 = 316143030.4466 PWWGT72 = 316182049.8465 PWWGT73 = 316224880.9501 PWWGT74 = 316124096.3923 PWWGT75 = 316152893.1468 PWWGT76 = 316180004.8651 PWWGT77 = 316186211.0849 PWWGT78 = 316137434.7659 PWWGT79 = 316205360.5415 PWWGT80 = 316105753.2934 PWWGT81 = 316188897.3134 PWWGT82 = 316138439.1307 PWWGT83 = 316172528.2545 PWWGT84 = 316173943.8518 PWWGT85 = 316148085.4985 PWWGT86 = 316226443.6877 PWWGT87 = 316156524.8352 PWWGT88 = 316140687.4518 PWWGT89 = 316158108.9234 PWWGT90 = 316151380.3641 PWWGT91 = 316183666.7507 PWWGT92 = 316175012.0725 PWWGT93 = 316154059.8175 PWWGT94 = 316150643.0414 PWWGT95 = 316165882.8933 PWWGT96 = 316179986.6586 PWWGT97 = 316176403.7508 PWWGT98 = 316187247.5986 PWWGT99 = 316142588.7436 PWWGT100 = 316178579.7474 PWWGT101 = 316219418.9399 PWWGT102 = 316181819.0435 PWWGT103 = 316166846.6667 PWWGT104 = 316203263.7719 PWWGT105 = 316204307.1550 PWWGT106 = 316145838.8628 PWWGT107 = 316191104.8905 PWWGT108 = 316140161.7595 PWWGT109 = 316157502.9814 PWWGT110 = 316106437.0062 PWWGT111 = 316163951.8730 PWWGT112 = 316140076.8482 PWWGT113 = 316194563.9765 PWWGT114 = 316145134.9840 PWWGT115 = 316207261.3001 PWWGT116 = 316186565.4813 PWWGT117 = 316224246.4238 PWWGT118 = 316178203.7633 PWWGT119 = 316157441.7041 PWWGT120 = 316152983.2021 PWWGT121 = 316155105.6980 PWWGT122 = 316153013.9948 PWWGT123 = 316156005.8540 PWWGT124 = 316152571.4328 PWWGT125 = 316191112.4381 PWWGT126 = 316180867.3762 PWWGT127 = 316139209.9502 PWWGT128 = 316196930.6722 PWWGT129 = 316174323.4300 PWWGT130 = 316180928.0314 PWWGT131 = 316188958.3613 PWWGT132 = 316166732.2822 PWWGT133 = 316230374.0850 PWWGT134 = 316139798.0463 PWWGT135 = 316197352.0340 PWWGT136 = 316140800.5196 PWWGT137 = 316123428.0469 PWWGT138 = 316127257.7460 PWWGT139 = 316150570.3704 PWWGT140 = 316175805.3851 PWWGT141 = 316172354.6472 PWWGT142 = 316238309.9542 PWWGT143 = 316175047.5544 PWWGT144 = 316198695.0470 PWWGT145 = 316157381.8618 PWWGT146 = 316191041.2220 PWWGT147 = 316162153.0496 PWWGT148 = 316097302.8704 PWWGT149 = 316157766.1924 PWWGT150 = 316159427.2278 PWWGT151 = 316151289.2368 PWWGT152 = 316159286.6245 PWWGT153 = 316157776.3608 PWWGT154 = 316174097.5687 PWWGT155 = 316200848.3979 PWWGT156 = 316184991.6620 PWWGT157 = 316138170.3269 PWWGT158 = 316184130.7774 PWWGT159 = 316148353.1565 PWWGT160 = 316153474.6737 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2015 end = last; %do i = 0 %to 160; tot_pwwgt&i + pwwgt&i; %end; if last then do; file replist; put 'Sum of replicate weights'; put; %do i = 0 %to 160; put " PWWGT&i = " @16 tot_pwwgt&i f15.4; %end; end; run; %mend total; %total;