/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2007 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2007.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2007.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2007; 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 = 296823990.1391 PWWGT1 = 296850252.9503 PWWGT2 = 296842087.1916 PWWGT3 = 296795420.5031 PWWGT4 = 296808791.7983 PWWGT5 = 296844733.8582 PWWGT6 = 296803537.1739 PWWGT7 = 296792024.5335 PWWGT8 = 296849931.3656 PWWGT9 = 296832488.5283 PWWGT10 = 296832477.6191 PWWGT11 = 296823704.3742 PWWGT12 = 296831732.9283 PWWGT13 = 296845812.5215 PWWGT14 = 296873349.1519 PWWGT15 = 296788116.4403 PWWGT16 = 296833976.0054 PWWGT17 = 296862579.0110 PWWGT18 = 296897552.2749 PWWGT19 = 296741753.7893 PWWGT20 = 296771901.8828 PWWGT21 = 296850598.5039 PWWGT22 = 296797247.7733 PWWGT23 = 296786218.8473 PWWGT24 = 296787598.0528 PWWGT25 = 296854459.6288 PWWGT26 = 296824931.5138 PWWGT27 = 296849967.9347 PWWGT28 = 296830998.3814 PWWGT29 = 296743449.4085 PWWGT30 = 296824090.2606 PWWGT31 = 296860034.2085 PWWGT32 = 296794890.9525 PWWGT33 = 296876427.6252 PWWGT34 = 296815026.8274 PWWGT35 = 296850732.8489 PWWGT36 = 296861349.0328 PWWGT37 = 296817529.7199 PWWGT38 = 296818698.0280 PWWGT39 = 296823252.2629 PWWGT40 = 296804009.4478 PWWGT41 = 296837779.2232 PWWGT42 = 296837256.6723 PWWGT43 = 296805125.5379 PWWGT44 = 296845109.8925 PWWGT45 = 296827807.7288 PWWGT46 = 296837549.5037 PWWGT47 = 296759617.4985 PWWGT48 = 296785080.2498 PWWGT49 = 296829142.7073 PWWGT50 = 296810394.4455 PWWGT51 = 296833048.5506 PWWGT52 = 296771662.5358 PWWGT53 = 296766435.2968 PWWGT54 = 296812492.7049 PWWGT55 = 296828995.7990 PWWGT56 = 296816920.7055 PWWGT57 = 296850823.6002 PWWGT58 = 296844734.0365 PWWGT59 = 296840557.7411 PWWGT60 = 296798957.1996 PWWGT61 = 296823631.2508 PWWGT62 = 296820091.9941 PWWGT63 = 296821965.5097 PWWGT64 = 296789616.9929 PWWGT65 = 296812586.9104 PWWGT66 = 296844774.4762 PWWGT67 = 296796069.1553 PWWGT68 = 296788027.0760 PWWGT69 = 296794530.3316 PWWGT70 = 296841201.6962 PWWGT71 = 296847950.3436 PWWGT72 = 296847053.6113 PWWGT73 = 296836698.9265 PWWGT74 = 296816409.4802 PWWGT75 = 296879219.4790 PWWGT76 = 296848892.7517 PWWGT77 = 296840241.4614 PWWGT78 = 296833283.7490 PWWGT79 = 296832918.1244 PWWGT80 = 296853952.6073 PWWGT81 = 296837942.4968 PWWGT82 = 296810843.1904 PWWGT83 = 296741464.6196 PWWGT84 = 296788891.7087 PWWGT85 = 296848666.4271 PWWGT86 = 296853074.7967 PWWGT87 = 296791192.7129 PWWGT88 = 296819503.3920 PWWGT89 = 296801644.3981 PWWGT90 = 296807417.5830 PWWGT91 = 296903297.3785 PWWGT92 = 296815766.4492 PWWGT93 = 296826433.9203 PWWGT94 = 296818676.6818 PWWGT95 = 296780634.5390 PWWGT96 = 296850602.2724 PWWGT97 = 296849066.4502 PWWGT98 = 296881631.3941 PWWGT99 = 296826725.4759 PWWGT100 = 296811056.7981 PWWGT101 = 296812106.4206 PWWGT102 = 296865705.3468 PWWGT103 = 296806194.5636 PWWGT104 = 296852950.5798 PWWGT105 = 296875978.1722 PWWGT106 = 296865891.0894 PWWGT107 = 296830937.4497 PWWGT108 = 296783969.2804 PWWGT109 = 296798991.6381 PWWGT110 = 296793125.4478 PWWGT111 = 296851042.9044 PWWGT112 = 296794472.6916 PWWGT113 = 296864203.4905 PWWGT114 = 296840100.1646 PWWGT115 = 296856144.5392 PWWGT116 = 296806878.9932 PWWGT117 = 296815288.3224 PWWGT118 = 296820815.1211 PWWGT119 = 296845049.9048 PWWGT120 = 296798512.9042 PWWGT121 = 296871576.7003 PWWGT122 = 296864879.9410 PWWGT123 = 296790482.5488 PWWGT124 = 296780942.0110 PWWGT125 = 296842828.8873 PWWGT126 = 296859570.2668 PWWGT127 = 296758594.2045 PWWGT128 = 296849592.1228 PWWGT129 = 296825266.8197 PWWGT130 = 296816282.3207 PWWGT131 = 296804913.4085 PWWGT132 = 296809344.7095 PWWGT133 = 296812841.5875 PWWGT134 = 296834283.6191 PWWGT135 = 296839918.1285 PWWGT136 = 296802479.1802 PWWGT137 = 296815343.8820 PWWGT138 = 296831345.0134 PWWGT139 = 296821386.7113 PWWGT140 = 296797050.4130 PWWGT141 = 296844979.7194 PWWGT142 = 296840588.5594 PWWGT143 = 296875350.0065 PWWGT144 = 296778445.9506 PWWGT145 = 296863601.5409 PWWGT146 = 296847684.4514 PWWGT147 = 296817279.6140 PWWGT148 = 296795456.0652 PWWGT149 = 296798697.7600 PWWGT150 = 296837783.7489 PWWGT151 = 296814139.2084 PWWGT152 = 296768696.1879 PWWGT153 = 296811503.2891 PWWGT154 = 296779171.4105 PWWGT155 = 296850909.1442 PWWGT156 = 296828656.0629 PWWGT157 = 296821523.8975 PWWGT158 = 296843295.8036 PWWGT159 = 296789888.2049 PWWGT160 = 296827987.9476 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2007 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;