/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2014 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2014.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2014.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2014; 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 = 313395415.4305 PWWGT1 = 313402657.3640 PWWGT2 = 313427398.7712 PWWGT3 = 313374640.3484 PWWGT4 = 313353718.4050 PWWGT5 = 313415253.0777 PWWGT6 = 313442113.9090 PWWGT7 = 313418143.2771 PWWGT8 = 313372135.7722 PWWGT9 = 313373849.9997 PWWGT10 = 313371366.7804 PWWGT11 = 313381153.9762 PWWGT12 = 313367270.4872 PWWGT13 = 313409381.7710 PWWGT14 = 313383461.0221 PWWGT15 = 313371979.3169 PWWGT16 = 313420367.1787 PWWGT17 = 313403924.9740 PWWGT18 = 313428477.0331 PWWGT19 = 313384228.9615 PWWGT20 = 313358160.9606 PWWGT21 = 313384313.5762 PWWGT22 = 313382826.6164 PWWGT23 = 313371435.3942 PWWGT24 = 313343401.3827 PWWGT25 = 313417320.5684 PWWGT26 = 313429911.3495 PWWGT27 = 313391436.3197 PWWGT28 = 313448606.6518 PWWGT29 = 313353341.7801 PWWGT30 = 313382861.8658 PWWGT31 = 313452546.4093 PWWGT32 = 313422240.9287 PWWGT33 = 313411289.2753 PWWGT34 = 313316670.6034 PWWGT35 = 313386638.0044 PWWGT36 = 313488939.8139 PWWGT37 = 313439845.6373 PWWGT38 = 313375605.5962 PWWGT39 = 313338632.0456 PWWGT40 = 313374846.7488 PWWGT41 = 313419158.0265 PWWGT42 = 313404971.0240 PWWGT43 = 313447016.8999 PWWGT44 = 313408988.9784 PWWGT45 = 313452121.2819 PWWGT46 = 313443901.3510 PWWGT47 = 313389513.1354 PWWGT48 = 313373382.8001 PWWGT49 = 313366808.1195 PWWGT50 = 313383596.6149 PWWGT51 = 313373045.0624 PWWGT52 = 313339006.2657 PWWGT53 = 313394489.6510 PWWGT54 = 313437661.6269 PWWGT55 = 313421898.6312 PWWGT56 = 313406649.7568 PWWGT57 = 313420908.5898 PWWGT58 = 313374207.5770 PWWGT59 = 313400694.5651 PWWGT60 = 313392741.5347 PWWGT61 = 313413953.9822 PWWGT62 = 313407572.6674 PWWGT63 = 313400860.2127 PWWGT64 = 313392711.3945 PWWGT65 = 313377441.9516 PWWGT66 = 313473003.6131 PWWGT67 = 313305501.2881 PWWGT68 = 313421089.1770 PWWGT69 = 313407145.6998 PWWGT70 = 313371979.9955 PWWGT71 = 313438731.9292 PWWGT72 = 313376683.1823 PWWGT73 = 313408427.0212 PWWGT74 = 313351227.0664 PWWGT75 = 313382640.2445 PWWGT76 = 313435490.7487 PWWGT77 = 313422405.5732 PWWGT78 = 313360758.9822 PWWGT79 = 313413635.1299 PWWGT80 = 313378531.1369 PWWGT81 = 313362250.6563 PWWGT82 = 313397499.7080 PWWGT83 = 313358115.4818 PWWGT84 = 313407858.8085 PWWGT85 = 313390945.7806 PWWGT86 = 313490235.7290 PWWGT87 = 313372897.5573 PWWGT88 = 313373184.5954 PWWGT89 = 313347532.1244 PWWGT90 = 313370974.3269 PWWGT91 = 313398925.1301 PWWGT92 = 313444407.9248 PWWGT93 = 313462710.1530 PWWGT94 = 313348036.6271 PWWGT95 = 313380512.5782 PWWGT96 = 313464512.6168 PWWGT97 = 313389609.5201 PWWGT98 = 313427124.6162 PWWGT99 = 313398856.7955 PWWGT100 = 313402776.8312 PWWGT101 = 313380023.1520 PWWGT102 = 313393567.6621 PWWGT103 = 313335861.0165 PWWGT104 = 313389281.9273 PWWGT105 = 313417773.3069 PWWGT106 = 313410393.9160 PWWGT107 = 313384936.7918 PWWGT108 = 313381875.9471 PWWGT109 = 313399219.6612 PWWGT110 = 313368212.8142 PWWGT111 = 313389426.5131 PWWGT112 = 313396523.5222 PWWGT113 = 313413781.4032 PWWGT114 = 313351845.7318 PWWGT115 = 313381809.4924 PWWGT116 = 313353272.4228 PWWGT117 = 313415145.5969 PWWGT118 = 313442686.1378 PWWGT119 = 313380210.7355 PWWGT120 = 313400763.6094 PWWGT121 = 313463671.3500 PWWGT122 = 313394311.7961 PWWGT123 = 313417187.6910 PWWGT124 = 313395051.4626 PWWGT125 = 313438680.6364 PWWGT126 = 313398460.4938 PWWGT127 = 313329018.9930 PWWGT128 = 313434721.6721 PWWGT129 = 313390879.4585 PWWGT130 = 313438240.0124 PWWGT131 = 313396034.2867 PWWGT132 = 313328508.2904 PWWGT133 = 313449327.7404 PWWGT134 = 313363768.6841 PWWGT135 = 313433382.2045 PWWGT136 = 313392393.1263 PWWGT137 = 313361345.4996 PWWGT138 = 313352825.0081 PWWGT139 = 313374914.8593 PWWGT140 = 313397388.0525 PWWGT141 = 313436183.1443 PWWGT142 = 313398347.2519 PWWGT143 = 313479212.9445 PWWGT144 = 313397762.2414 PWWGT145 = 313357882.6874 PWWGT146 = 313369357.7821 PWWGT147 = 313346050.5580 PWWGT148 = 313373903.5908 PWWGT149 = 313397689.9600 PWWGT150 = 313354518.2983 PWWGT151 = 313399146.9373 PWWGT152 = 313417789.0149 PWWGT153 = 313415367.3035 PWWGT154 = 313405698.5790 PWWGT155 = 313449080.9027 PWWGT156 = 313395006.2873 PWWGT157 = 313387641.8387 PWWGT158 = 313417594.6205 PWWGT159 = 313410863.7021 PWWGT160 = 313399904.0210 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2014 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;