/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2010 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2010.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2010.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2010; 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 = 304279917.9020 PWWGT1 = 304287058.3950 PWWGT2 = 304318820.2598 PWWGT3 = 304278169.6626 PWWGT4 = 304296681.2823 PWWGT5 = 304318252.3163 PWWGT6 = 304278926.1727 PWWGT7 = 304251152.6650 PWWGT8 = 304241207.6535 PWWGT9 = 304272104.3504 PWWGT10 = 304279379.1332 PWWGT11 = 304293078.7634 PWWGT12 = 304234332.8802 PWWGT13 = 304331638.3276 PWWGT14 = 304297107.9012 PWWGT15 = 304310137.5097 PWWGT16 = 304250641.7439 PWWGT17 = 304333441.8872 PWWGT18 = 304335422.1627 PWWGT19 = 304195718.9476 PWWGT20 = 304233173.4236 PWWGT21 = 304338676.9210 PWWGT22 = 304278226.5530 PWWGT23 = 304251881.2008 PWWGT24 = 304235230.2483 PWWGT25 = 304261945.5742 PWWGT26 = 304297500.1509 PWWGT27 = 304250292.9194 PWWGT28 = 304267498.8673 PWWGT29 = 304211583.3497 PWWGT30 = 304264951.6853 PWWGT31 = 304290891.5974 PWWGT32 = 304273871.4381 PWWGT33 = 304348546.1757 PWWGT34 = 304228984.5716 PWWGT35 = 304305612.6317 PWWGT36 = 304304770.3346 PWWGT37 = 304274723.7709 PWWGT38 = 304254610.8460 PWWGT39 = 304306950.4499 PWWGT40 = 304285346.7486 PWWGT41 = 304280070.2017 PWWGT42 = 304299729.0020 PWWGT43 = 304299584.0788 PWWGT44 = 304346984.2870 PWWGT45 = 304301778.6988 PWWGT46 = 304320534.1541 PWWGT47 = 304272045.6518 PWWGT48 = 304242469.9479 PWWGT49 = 304314038.4901 PWWGT50 = 304234613.7046 PWWGT51 = 304283363.8992 PWWGT52 = 304239564.2021 PWWGT53 = 304286027.3548 PWWGT54 = 304314034.7479 PWWGT55 = 304285020.2571 PWWGT56 = 304263349.0283 PWWGT57 = 304314944.8591 PWWGT58 = 304309958.8159 PWWGT59 = 304243278.5915 PWWGT60 = 304200894.7790 PWWGT61 = 304319845.2334 PWWGT62 = 304270435.4819 PWWGT63 = 304281590.5070 PWWGT64 = 304208081.4754 PWWGT65 = 304280887.0463 PWWGT66 = 304311306.7378 PWWGT67 = 304277633.9207 PWWGT68 = 304276768.0916 PWWGT69 = 304218985.2399 PWWGT70 = 304276544.3547 PWWGT71 = 304295082.9780 PWWGT72 = 304270404.3379 PWWGT73 = 304346776.5131 PWWGT74 = 304215478.0653 PWWGT75 = 304317084.8522 PWWGT76 = 304284581.3541 PWWGT77 = 304260779.4348 PWWGT78 = 304231407.2015 PWWGT79 = 304301713.3336 PWWGT80 = 304272996.5603 PWWGT81 = 304326838.1889 PWWGT82 = 304240294.0352 PWWGT83 = 304186724.6925 PWWGT84 = 304271469.6339 PWWGT85 = 304274723.4828 PWWGT86 = 304311839.0598 PWWGT87 = 304283294.6413 PWWGT88 = 304287162.8904 PWWGT89 = 304256488.0972 PWWGT90 = 304287967.6965 PWWGT91 = 304322653.4276 PWWGT92 = 304284179.6984 PWWGT93 = 304339593.9357 PWWGT94 = 304259380.2940 PWWGT95 = 304220498.5546 PWWGT96 = 304328265.8887 PWWGT97 = 304302746.4189 PWWGT98 = 304271903.0551 PWWGT99 = 304248366.2820 PWWGT100 = 304312813.0719 PWWGT101 = 304260868.6078 PWWGT102 = 304324833.0596 PWWGT103 = 304269584.0144 PWWGT104 = 304276116.8294 PWWGT105 = 304319264.0351 PWWGT106 = 304252598.4927 PWWGT107 = 304293898.7630 PWWGT108 = 304238637.1956 PWWGT109 = 304244508.5998 PWWGT110 = 304213631.5038 PWWGT111 = 304279771.5128 PWWGT112 = 304225739.3770 PWWGT113 = 304305054.1407 PWWGT114 = 304295382.8176 PWWGT115 = 304320873.5503 PWWGT116 = 304277597.0242 PWWGT117 = 304305579.8569 PWWGT118 = 304310542.1142 PWWGT119 = 304276211.9299 PWWGT120 = 304246196.7485 PWWGT121 = 304355331.1600 PWWGT122 = 304320639.7465 PWWGT123 = 304168709.9143 PWWGT124 = 304243011.4552 PWWGT125 = 304239285.5527 PWWGT126 = 304306341.5097 PWWGT127 = 304244042.6730 PWWGT128 = 304309890.5299 PWWGT129 = 304240539.9393 PWWGT130 = 304290671.6454 PWWGT131 = 304324699.4649 PWWGT132 = 304276767.2383 PWWGT133 = 304333361.6102 PWWGT134 = 304284314.3241 PWWGT135 = 304267657.0304 PWWGT136 = 304305714.5358 PWWGT137 = 304281077.6676 PWWGT138 = 304288946.7144 PWWGT139 = 304272583.0025 PWWGT140 = 304250998.6379 PWWGT141 = 304289470.4145 PWWGT142 = 304326563.6948 PWWGT143 = 304314648.1920 PWWGT144 = 304245243.5855 PWWGT145 = 304340489.6761 PWWGT146 = 304289860.5422 PWWGT147 = 304278509.2509 PWWGT148 = 304216124.2265 PWWGT149 = 304302704.8992 PWWGT150 = 304172115.9100 PWWGT151 = 304268552.7639 PWWGT152 = 304227541.2111 PWWGT153 = 304270749.8460 PWWGT154 = 304244466.6856 PWWGT155 = 304351664.8183 PWWGT156 = 304296881.6562 PWWGT157 = 304332605.6546 PWWGT158 = 304281136.9565 PWWGT159 = 304235940.6515 PWWGT160 = 304279851.4882 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2010 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;