/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2016 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2016.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2016.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2016; 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 = 318868476.7255 PWWGT1 = 318881100.1796 PWWGT2 = 318867453.5720 PWWGT3 = 318835512.3127 PWWGT4 = 318872646.5873 PWWGT5 = 318869966.4562 PWWGT6 = 318876886.9788 PWWGT7 = 318903851.0278 PWWGT8 = 318862163.6226 PWWGT9 = 318839889.9405 PWWGT10 = 318849220.8232 PWWGT11 = 318833459.0897 PWWGT12 = 318833672.7190 PWWGT13 = 318923254.5531 PWWGT14 = 318886298.0498 PWWGT15 = 318884908.8675 PWWGT16 = 318866042.5428 PWWGT17 = 318831387.2399 PWWGT18 = 318908300.1892 PWWGT19 = 318841165.1994 PWWGT20 = 318875527.9062 PWWGT21 = 318884740.8286 PWWGT22 = 318862011.3958 PWWGT23 = 318852674.5364 PWWGT24 = 318879886.5223 PWWGT25 = 318922699.7604 PWWGT26 = 318873778.5458 PWWGT27 = 318857682.4305 PWWGT28 = 318826977.2226 PWWGT29 = 318887160.7965 PWWGT30 = 318864670.5956 PWWGT31 = 318940694.8712 PWWGT32 = 318902319.7205 PWWGT33 = 318825659.1883 PWWGT34 = 318875023.3029 PWWGT35 = 318857088.0577 PWWGT36 = 318894919.5028 PWWGT37 = 318846005.5957 PWWGT38 = 318891384.9281 PWWGT39 = 318858443.4402 PWWGT40 = 318835037.4361 PWWGT41 = 318911218.8423 PWWGT42 = 318851640.0146 PWWGT43 = 318841724.4775 PWWGT44 = 318867301.1614 PWWGT45 = 318812721.2278 PWWGT46 = 318881081.6535 PWWGT47 = 318859016.3657 PWWGT48 = 318850446.2993 PWWGT49 = 318811500.9651 PWWGT50 = 318861668.6720 PWWGT51 = 318851317.8577 PWWGT52 = 318828953.8179 PWWGT53 = 318918568.1275 PWWGT54 = 318870129.3858 PWWGT55 = 318901930.6052 PWWGT56 = 318913721.3276 PWWGT57 = 318932917.7840 PWWGT58 = 318895638.3780 PWWGT59 = 318812707.6143 PWWGT60 = 318871067.6619 PWWGT61 = 318827743.1876 PWWGT62 = 318892536.8524 PWWGT63 = 318898244.8658 PWWGT64 = 318861056.5505 PWWGT65 = 318930354.3217 PWWGT66 = 318850444.3811 PWWGT67 = 318877823.6875 PWWGT68 = 318865748.0149 PWWGT69 = 318929726.2019 PWWGT70 = 318866393.7917 PWWGT71 = 318899967.4378 PWWGT72 = 318895974.5109 PWWGT73 = 318818242.8026 PWWGT74 = 318819042.9202 PWWGT75 = 318837392.5526 PWWGT76 = 318834932.6770 PWWGT77 = 318855480.2850 PWWGT78 = 318825696.4251 PWWGT79 = 318898853.3167 PWWGT80 = 318849881.2558 PWWGT81 = 318874278.2175 PWWGT82 = 318833442.0427 PWWGT83 = 318865793.1580 PWWGT84 = 318839359.4363 PWWGT85 = 318840742.7316 PWWGT86 = 318873658.2824 PWWGT87 = 318907902.7051 PWWGT88 = 318853024.5145 PWWGT89 = 318884746.7841 PWWGT90 = 318887831.9461 PWWGT91 = 318872175.1363 PWWGT92 = 318816893.3771 PWWGT93 = 318841024.2295 PWWGT94 = 318859137.7159 PWWGT95 = 318895504.8420 PWWGT96 = 318862423.9488 PWWGT97 = 318863307.2638 PWWGT98 = 318883977.5589 PWWGT99 = 318838431.2228 PWWGT100 = 318886985.8033 PWWGT101 = 318888670.0081 PWWGT102 = 318861227.9337 PWWGT103 = 318857389.1051 PWWGT104 = 318904896.8558 PWWGT105 = 318881431.0480 PWWGT106 = 318862694.0617 PWWGT107 = 318859533.3636 PWWGT108 = 318897381.9459 PWWGT109 = 318890745.2761 PWWGT110 = 318840666.5541 PWWGT111 = 318878770.6303 PWWGT112 = 318867810.4479 PWWGT113 = 318929886.0260 PWWGT114 = 318891219.0539 PWWGT115 = 318886966.2878 PWWGT116 = 318864357.6815 PWWGT117 = 318894526.2866 PWWGT118 = 318860427.4495 PWWGT119 = 318825910.4436 PWWGT120 = 318851182.3417 PWWGT121 = 318819325.4850 PWWGT122 = 318857683.2546 PWWGT123 = 318859816.7462 PWWGT124 = 318847694.9727 PWWGT125 = 318895484.1627 PWWGT126 = 318837016.3445 PWWGT127 = 318813769.5436 PWWGT128 = 318872660.7300 PWWGT129 = 318862546.2255 PWWGT130 = 318836888.9164 PWWGT131 = 318913948.4997 PWWGT132 = 318846836.1661 PWWGT133 = 318840139.1104 PWWGT134 = 318906810.8516 PWWGT135 = 318906300.8853 PWWGT136 = 318864174.0391 PWWGT137 = 318861159.8487 PWWGT138 = 318867443.9088 PWWGT139 = 318882330.3539 PWWGT140 = 318853596.3355 PWWGT141 = 318895551.0866 PWWGT142 = 318923396.5586 PWWGT143 = 318897622.8198 PWWGT144 = 318887594.0571 PWWGT145 = 318867541.7176 PWWGT146 = 318899016.5061 PWWGT147 = 318851875.6891 PWWGT148 = 318864698.4746 PWWGT149 = 318848818.2891 PWWGT150 = 318888185.3325 PWWGT151 = 318819045.3243 PWWGT152 = 318863889.7850 PWWGT153 = 318858522.0872 PWWGT154 = 318904326.2927 PWWGT155 = 318857996.2898 PWWGT156 = 318870137.9169 PWWGT157 = 318889930.0585 PWWGT158 = 318873632.5406 PWWGT159 = 318817179.9742 PWWGT160 = 318881098.0691 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2016 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;