/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2018 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2018.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2018.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2018; 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 = 323156071.4415 PWWGT1 = 323199305.4474 PWWGT2 = 323164439.6398 PWWGT3 = 323176271.9522 PWWGT4 = 323153094.5522 PWWGT5 = 323108507.8167 PWWGT6 = 323162568.6477 PWWGT7 = 323150572.4218 PWWGT8 = 323134770.8188 PWWGT9 = 323136201.4872 PWWGT10 = 323154176.6340 PWWGT11 = 323140473.2093 PWWGT12 = 323110879.0995 PWWGT13 = 323169037.0118 PWWGT14 = 323185053.8033 PWWGT15 = 323157274.9979 PWWGT16 = 323163269.3372 PWWGT17 = 323220505.2162 PWWGT18 = 323157428.9108 PWWGT19 = 323163223.4361 PWWGT20 = 323164194.3573 PWWGT21 = 323101124.5813 PWWGT22 = 323162327.3192 PWWGT23 = 323175016.9168 PWWGT24 = 323164702.7349 PWWGT25 = 323234452.7812 PWWGT26 = 323143431.0548 PWWGT27 = 323139919.5208 PWWGT28 = 323134958.0970 PWWGT29 = 323198213.8543 PWWGT30 = 323175691.0485 PWWGT31 = 323153439.3047 PWWGT32 = 323218102.7569 PWWGT33 = 323135019.6119 PWWGT34 = 323142424.8876 PWWGT35 = 323146783.1151 PWWGT36 = 323136579.5239 PWWGT37 = 323142157.1411 PWWGT38 = 323208094.7563 PWWGT39 = 323169677.0619 PWWGT40 = 323166143.0324 PWWGT41 = 323205995.8133 PWWGT42 = 323197727.1367 PWWGT43 = 323136343.6280 PWWGT44 = 323137684.0711 PWWGT45 = 323095781.6983 PWWGT46 = 323194023.1950 PWWGT47 = 323137978.9722 PWWGT48 = 323147872.0371 PWWGT49 = 323106335.7901 PWWGT50 = 323159834.5759 PWWGT51 = 323133742.2880 PWWGT52 = 323099587.5090 PWWGT53 = 323206911.1326 PWWGT54 = 323177799.0574 PWWGT55 = 323173118.2455 PWWGT56 = 323154477.5668 PWWGT57 = 323157588.1611 PWWGT58 = 323178478.3025 PWWGT59 = 323107053.9210 PWWGT60 = 323148502.1955 PWWGT61 = 323102835.0617 PWWGT62 = 323206007.8320 PWWGT63 = 323174307.9422 PWWGT64 = 323171716.8501 PWWGT65 = 323204411.0219 PWWGT66 = 323095750.4269 PWWGT67 = 323139217.5970 PWWGT68 = 323125584.3321 PWWGT69 = 323248482.1591 PWWGT70 = 323099082.4336 PWWGT71 = 323212825.3921 PWWGT72 = 323195008.3466 PWWGT73 = 323090213.8811 PWWGT74 = 323106952.1098 PWWGT75 = 323121965.9409 PWWGT76 = 323129437.3311 PWWGT77 = 323154193.6396 PWWGT78 = 323172591.4312 PWWGT79 = 323184031.0747 PWWGT80 = 323128495.3650 PWWGT81 = 323117443.6526 PWWGT82 = 323110924.5873 PWWGT83 = 323181629.9771 PWWGT84 = 323112201.5450 PWWGT85 = 323183650.0914 PWWGT86 = 323188537.2373 PWWGT87 = 323165751.1789 PWWGT88 = 323101887.2426 PWWGT89 = 323151297.2959 PWWGT90 = 323181199.9540 PWWGT91 = 323126723.5713 PWWGT92 = 323188281.6919 PWWGT93 = 323138649.9851 PWWGT94 = 323142184.9437 PWWGT95 = 323182628.8076 PWWGT96 = 323132691.5981 PWWGT97 = 323095006.5018 PWWGT98 = 323191802.2547 PWWGT99 = 323207366.4420 PWWGT100 = 323177339.9677 PWWGT101 = 323106075.6194 PWWGT102 = 323231175.2667 PWWGT103 = 323118569.8628 PWWGT104 = 323150761.1812 PWWGT105 = 323174961.3106 PWWGT106 = 323146861.5224 PWWGT107 = 323133581.7510 PWWGT108 = 323207355.5591 PWWGT109 = 323131776.2212 PWWGT110 = 323032341.6288 PWWGT111 = 323176619.9267 PWWGT112 = 323136886.2424 PWWGT113 = 323130437.1707 PWWGT114 = 323148905.8983 PWWGT115 = 323131218.7577 PWWGT116 = 323169328.7041 PWWGT117 = 323200877.5233 PWWGT118 = 323136530.4620 PWWGT119 = 323165680.6431 PWWGT120 = 323106846.0601 PWWGT121 = 323125839.3494 PWWGT122 = 323170924.8722 PWWGT123 = 323188045.5796 PWWGT124 = 323203726.2914 PWWGT125 = 323208988.5478 PWWGT126 = 323107934.2190 PWWGT127 = 323112606.5112 PWWGT128 = 323141188.7045 PWWGT129 = 323224643.5254 PWWGT130 = 323184147.9586 PWWGT131 = 323218146.8611 PWWGT132 = 323236516.3182 PWWGT133 = 323132501.3657 PWWGT134 = 323094315.1471 PWWGT135 = 323146146.6972 PWWGT136 = 323189974.1273 PWWGT137 = 323112516.2012 PWWGT138 = 323167465.5496 PWWGT139 = 323169631.8767 PWWGT140 = 323125878.9751 PWWGT141 = 323183870.0251 PWWGT142 = 323210218.4301 PWWGT143 = 323152673.6342 PWWGT144 = 323133546.0554 PWWGT145 = 323145926.7007 PWWGT146 = 323186356.1614 PWWGT147 = 323194565.6305 PWWGT148 = 323184740.2000 PWWGT149 = 323132064.4147 PWWGT150 = 323119327.1475 PWWGT151 = 323128661.4124 PWWGT152 = 323123097.1024 PWWGT153 = 323199985.9252 PWWGT154 = 323212093.8027 PWWGT155 = 323253873.5085 PWWGT156 = 323121815.1490 PWWGT157 = 323176292.3542 PWWGT158 = 323112261.6379 PWWGT159 = 323126886.9426 PWWGT160 = 323181252.1329 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2018 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;