/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2006 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2006.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2006.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2006; 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 = 293834355.8331 PWWGT1 = 293842021.9011 PWWGT2 = 293870271.8006 PWWGT3 = 293819023.1415 PWWGT4 = 293834580.7223 PWWGT5 = 293855494.9371 PWWGT6 = 293848882.5682 PWWGT7 = 293849767.1895 PWWGT8 = 293843317.6167 PWWGT9 = 293828450.3690 PWWGT10 = 293869163.9937 PWWGT11 = 293823181.7701 PWWGT12 = 293785402.0386 PWWGT13 = 293834461.2692 PWWGT14 = 293859275.5653 PWWGT15 = 293804341.5676 PWWGT16 = 293826855.5004 PWWGT17 = 293839799.3279 PWWGT18 = 293902043.4069 PWWGT19 = 293778040.2862 PWWGT20 = 293775235.1512 PWWGT21 = 293841509.4708 PWWGT22 = 293819531.2785 PWWGT23 = 293798115.6849 PWWGT24 = 293785278.4214 PWWGT25 = 293855416.2123 PWWGT26 = 293882346.1355 PWWGT27 = 293836883.7539 PWWGT28 = 293866685.4204 PWWGT29 = 293787233.8316 PWWGT30 = 293845312.1802 PWWGT31 = 293873641.1408 PWWGT32 = 293820292.4935 PWWGT33 = 293838006.3691 PWWGT34 = 293805763.2389 PWWGT35 = 293876794.3082 PWWGT36 = 293873922.2791 PWWGT37 = 293795158.8267 PWWGT38 = 293812160.4098 PWWGT39 = 293840373.8305 PWWGT40 = 293838349.2643 PWWGT41 = 293838164.2136 PWWGT42 = 293877589.7377 PWWGT43 = 293844906.4980 PWWGT44 = 293874200.3675 PWWGT45 = 293876697.2023 PWWGT46 = 293850918.9372 PWWGT47 = 293850943.0665 PWWGT48 = 293780510.5475 PWWGT49 = 293842041.4113 PWWGT50 = 293832117.6324 PWWGT51 = 293833324.2533 PWWGT52 = 293805644.2506 PWWGT53 = 293812571.3723 PWWGT54 = 293825054.7933 PWWGT55 = 293880425.6327 PWWGT56 = 293815955.8707 PWWGT57 = 293868963.8552 PWWGT58 = 293817369.0881 PWWGT59 = 293862922.9444 PWWGT60 = 293760634.7483 PWWGT61 = 293842208.2257 PWWGT62 = 293831342.4918 PWWGT63 = 293828416.5805 PWWGT64 = 293807562.9947 PWWGT65 = 293810333.5733 PWWGT66 = 293852681.3043 PWWGT67 = 293787220.3846 PWWGT68 = 293826952.7685 PWWGT69 = 293839427.8241 PWWGT70 = 293812626.3800 PWWGT71 = 293849539.3122 PWWGT72 = 293841922.0592 PWWGT73 = 293856213.6782 PWWGT74 = 293786894.7153 PWWGT75 = 293854491.5448 PWWGT76 = 293865935.1562 PWWGT77 = 293819646.8932 PWWGT78 = 293832065.1701 PWWGT79 = 293858369.7868 PWWGT80 = 293853564.8390 PWWGT81 = 293855270.8426 PWWGT82 = 293792335.1329 PWWGT83 = 293791077.5679 PWWGT84 = 293804912.1592 PWWGT85 = 293864654.4282 PWWGT86 = 293864381.2581 PWWGT87 = 293837771.3717 PWWGT88 = 293828209.4111 PWWGT89 = 293803075.0070 PWWGT90 = 293840695.3263 PWWGT91 = 293904330.8746 PWWGT92 = 293830627.1074 PWWGT93 = 293847256.6997 PWWGT94 = 293817789.8229 PWWGT95 = 293741967.7039 PWWGT96 = 293877397.8439 PWWGT97 = 293829752.8924 PWWGT98 = 293849171.3016 PWWGT99 = 293862326.3907 PWWGT100 = 293853337.4958 PWWGT101 = 293810972.7611 PWWGT102 = 293865123.3919 PWWGT103 = 293861076.7106 PWWGT104 = 293847268.2238 PWWGT105 = 293841180.6852 PWWGT106 = 293832451.0392 PWWGT107 = 293857159.7381 PWWGT108 = 293821671.5722 PWWGT109 = 293819145.8820 PWWGT110 = 293784799.8883 PWWGT111 = 293889005.3601 PWWGT112 = 293819100.5375 PWWGT113 = 293812542.1409 PWWGT114 = 293846360.5244 PWWGT115 = 293882889.4948 PWWGT116 = 293851694.3549 PWWGT117 = 293836049.2239 PWWGT118 = 293830994.0892 PWWGT119 = 293839304.4559 PWWGT120 = 293780728.8806 PWWGT121 = 293883840.5502 PWWGT122 = 293861361.6164 PWWGT123 = 293788811.8674 PWWGT124 = 293814889.4364 PWWGT125 = 293808631.9602 PWWGT126 = 293860560.4460 PWWGT127 = 293823728.8572 PWWGT128 = 293841065.4803 PWWGT129 = 293820243.5017 PWWGT130 = 293876142.1743 PWWGT131 = 293813476.9975 PWWGT132 = 293785855.0202 PWWGT133 = 293828734.9913 PWWGT134 = 293863583.8929 PWWGT135 = 293840998.5005 PWWGT136 = 293813097.7846 PWWGT137 = 293864973.4505 PWWGT138 = 293792193.2748 PWWGT139 = 293832313.2867 PWWGT140 = 293853729.1162 PWWGT141 = 293830026.6396 PWWGT142 = 293846177.1757 PWWGT143 = 293832453.0930 PWWGT144 = 293814170.5456 PWWGT145 = 293860678.1214 PWWGT146 = 293827880.8255 PWWGT147 = 293810944.4209 PWWGT148 = 293814422.0560 PWWGT149 = 293822751.1349 PWWGT150 = 293800484.2921 PWWGT151 = 293815291.1473 PWWGT152 = 293807437.6413 PWWGT153 = 293803407.3934 PWWGT154 = 293833884.4711 PWWGT155 = 293899040.4456 PWWGT156 = 293810654.1736 PWWGT157 = 293846309.3102 PWWGT158 = 293889903.3120 PWWGT159 = 293830380.0398 PWWGT160 = 293871201.5616 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2006 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;