/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2017 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2017.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2017.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2017; 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 = 320371985.2551 PWWGT1 = 320382295.6346 PWWGT2 = 320384826.5463 PWWGT3 = 320379132.8088 PWWGT4 = 320424384.8405 PWWGT5 = 320357001.8613 PWWGT6 = 320400187.9424 PWWGT7 = 320371530.3403 PWWGT8 = 320349368.7882 PWWGT9 = 320368656.9074 PWWGT10 = 320330851.9235 PWWGT11 = 320335473.7143 PWWGT12 = 320341388.5941 PWWGT13 = 320384453.2272 PWWGT14 = 320378074.0187 PWWGT15 = 320353762.4638 PWWGT16 = 320350419.7652 PWWGT17 = 320406189.5500 PWWGT18 = 320356704.8919 PWWGT19 = 320344015.6669 PWWGT20 = 320392924.6504 PWWGT21 = 320370826.2414 PWWGT22 = 320375570.2182 PWWGT23 = 320354093.6779 PWWGT24 = 320337241.7350 PWWGT25 = 320371002.9538 PWWGT26 = 320381890.6482 PWWGT27 = 320380143.4168 PWWGT28 = 320402195.4519 PWWGT29 = 320357683.7901 PWWGT30 = 320402226.9217 PWWGT31 = 320376499.4960 PWWGT32 = 320399429.6235 PWWGT33 = 320328662.6428 PWWGT34 = 320414629.4678 PWWGT35 = 320374367.4616 PWWGT36 = 320373289.5478 PWWGT37 = 320345401.2751 PWWGT38 = 320388925.4159 PWWGT39 = 320376591.8607 PWWGT40 = 320336861.9183 PWWGT41 = 320381465.1402 PWWGT42 = 320344657.4737 PWWGT43 = 320354443.4132 PWWGT44 = 320387151.0941 PWWGT45 = 320345706.0947 PWWGT46 = 320383070.9237 PWWGT47 = 320364096.2518 PWWGT48 = 320393963.2332 PWWGT49 = 320356927.4215 PWWGT50 = 320354267.3321 PWWGT51 = 320358530.4300 PWWGT52 = 320336176.8739 PWWGT53 = 320468492.4818 PWWGT54 = 320406249.5114 PWWGT55 = 320397943.0716 PWWGT56 = 320378708.2190 PWWGT57 = 320402628.5116 PWWGT58 = 320425431.0004 PWWGT59 = 320319082.9134 PWWGT60 = 320395491.3187 PWWGT61 = 320358635.4229 PWWGT62 = 320417856.0376 PWWGT63 = 320394001.9505 PWWGT64 = 320346011.6937 PWWGT65 = 320390332.9434 PWWGT66 = 320311546.2644 PWWGT67 = 320378472.6550 PWWGT68 = 320361475.4273 PWWGT69 = 320402520.0618 PWWGT70 = 320332451.0154 PWWGT71 = 320401865.5874 PWWGT72 = 320409852.4335 PWWGT73 = 320319395.4753 PWWGT74 = 320368335.2983 PWWGT75 = 320360179.0694 PWWGT76 = 320379379.2443 PWWGT77 = 320392433.4122 PWWGT78 = 320359032.4641 PWWGT79 = 320436886.9986 PWWGT80 = 320315815.5698 PWWGT81 = 320364107.6003 PWWGT82 = 320320324.5063 PWWGT83 = 320344912.0226 PWWGT84 = 320342732.5095 PWWGT85 = 320387573.7529 PWWGT86 = 320388397.7656 PWWGT87 = 320411152.5493 PWWGT88 = 320352566.6323 PWWGT89 = 320356518.8808 PWWGT90 = 320390160.3853 PWWGT91 = 320379206.8501 PWWGT92 = 320379875.0887 PWWGT93 = 320346843.2404 PWWGT94 = 320354660.9839 PWWGT95 = 320395879.6651 PWWGT96 = 320335716.3166 PWWGT97 = 320380117.7207 PWWGT98 = 320431036.9066 PWWGT99 = 320414390.4636 PWWGT100 = 320336360.2003 PWWGT101 = 320362679.5867 PWWGT102 = 320433568.9473 PWWGT103 = 320390164.3935 PWWGT104 = 320404320.0975 PWWGT105 = 320360690.9271 PWWGT106 = 320370919.0193 PWWGT107 = 320342093.7846 PWWGT108 = 320403413.6719 PWWGT109 = 320400150.8656 PWWGT110 = 320321393.5271 PWWGT111 = 320426829.8520 PWWGT112 = 320341298.2522 PWWGT113 = 320360147.1234 PWWGT114 = 320396839.5750 PWWGT115 = 320337963.5656 PWWGT116 = 320361669.9018 PWWGT117 = 320376764.7541 PWWGT118 = 320360949.8968 PWWGT119 = 320365878.7075 PWWGT120 = 320357242.4398 PWWGT121 = 320351121.1957 PWWGT122 = 320339517.5337 PWWGT123 = 320370360.2789 PWWGT124 = 320429142.4459 PWWGT125 = 320431964.8375 PWWGT126 = 320342042.1281 PWWGT127 = 320383958.8062 PWWGT128 = 320358435.1232 PWWGT129 = 320409301.2482 PWWGT130 = 320345421.0342 PWWGT131 = 320412679.8681 PWWGT132 = 320385970.5929 PWWGT133 = 320336225.8315 PWWGT134 = 320312684.8100 PWWGT135 = 320381735.5470 PWWGT136 = 320354882.8421 PWWGT137 = 320369634.2988 PWWGT138 = 320377923.9381 PWWGT139 = 320381082.7967 PWWGT140 = 320351063.2819 PWWGT141 = 320397814.3815 PWWGT142 = 320428154.1057 PWWGT143 = 320358220.1104 PWWGT144 = 320343189.1522 PWWGT145 = 320342216.0475 PWWGT146 = 320416062.0567 PWWGT147 = 320372970.1910 PWWGT148 = 320384845.1653 PWWGT149 = 320379821.2650 PWWGT150 = 320336246.3428 PWWGT151 = 320360206.3991 PWWGT152 = 320350865.8331 PWWGT153 = 320394539.9804 PWWGT154 = 320390725.4348 PWWGT155 = 320399876.0326 PWWGT156 = 320403471.0988 PWWGT157 = 320356095.3103 PWWGT158 = 320383835.5611 PWWGT159 = 320336746.9908 PWWGT160 = 320342355.0825 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2017 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;