/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2020 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2020.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2020.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2020; 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 = 325268174.6300 PWWGT1 = 325294383.5657 PWWGT2 = 325305735.3040 PWWGT3 = 325254316.9955 PWWGT4 = 325286482.1923 PWWGT5 = 325255553.1442 PWWGT6 = 325333790.4588 PWWGT7 = 325262781.3301 PWWGT8 = 325273159.7333 PWWGT9 = 325283262.1089 PWWGT10 = 325233250.6010 PWWGT11 = 325220133.6809 PWWGT12 = 325250656.6130 PWWGT13 = 325335312.6352 PWWGT14 = 325247661.4224 PWWGT15 = 325287202.7999 PWWGT16 = 325282689.8457 PWWGT17 = 325278212.0857 PWWGT18 = 325297699.0445 PWWGT19 = 325226805.9639 PWWGT20 = 325264484.5317 PWWGT21 = 325253059.6092 PWWGT22 = 325232913.5708 PWWGT23 = 325248524.8278 PWWGT24 = 325287574.6840 PWWGT25 = 325284772.9155 PWWGT26 = 325280509.5117 PWWGT27 = 325299431.3854 PWWGT28 = 325242482.0047 PWWGT29 = 325298868.3240 PWWGT30 = 325297411.5206 PWWGT31 = 325312545.4037 PWWGT32 = 325305714.5633 PWWGT33 = 325257459.2011 PWWGT34 = 325227160.7951 PWWGT35 = 325273065.1253 PWWGT36 = 325222818.9495 PWWGT37 = 325271379.1301 PWWGT38 = 325331404.1399 PWWGT39 = 325243558.3591 PWWGT40 = 325209848.0713 PWWGT41 = 325329375.5913 PWWGT42 = 325345632.2524 PWWGT43 = 325238367.3543 PWWGT44 = 325275029.5626 PWWGT45 = 325267021.6647 PWWGT46 = 325356297.9804 PWWGT47 = 325234980.8334 PWWGT48 = 325201657.3198 PWWGT49 = 325239030.5146 PWWGT50 = 325214155.8321 PWWGT51 = 325176704.6770 PWWGT52 = 325246110.8524 PWWGT53 = 325303139.8912 PWWGT54 = 325329325.6861 PWWGT55 = 325296604.8057 PWWGT56 = 325254288.2187 PWWGT57 = 325237758.6857 PWWGT58 = 325277215.6420 PWWGT59 = 325243073.3466 PWWGT60 = 325295116.3813 PWWGT61 = 325238141.4764 PWWGT62 = 325277646.6046 PWWGT63 = 325288586.7492 PWWGT64 = 325228622.3601 PWWGT65 = 325288654.9751 PWWGT66 = 325263432.8266 PWWGT67 = 325232202.0539 PWWGT68 = 325255562.0083 PWWGT69 = 325321783.5715 PWWGT70 = 325283445.9628 PWWGT71 = 325307931.4391 PWWGT72 = 325262446.6536 PWWGT73 = 325184215.0157 PWWGT74 = 325239708.9922 PWWGT75 = 325292467.4202 PWWGT76 = 325267098.0351 PWWGT77 = 325256517.4042 PWWGT78 = 325305411.0734 PWWGT79 = 325277679.6928 PWWGT80 = 325206043.3986 PWWGT81 = 325247453.8931 PWWGT82 = 325260665.7580 PWWGT83 = 325303659.2767 PWWGT84 = 325244457.5492 PWWGT85 = 325326056.8397 PWWGT86 = 325246288.9532 PWWGT87 = 325287422.9376 PWWGT88 = 325222440.5294 PWWGT89 = 325332693.4200 PWWGT90 = 325253075.7308 PWWGT91 = 325280960.2451 PWWGT92 = 325244189.6143 PWWGT93 = 325209740.3660 PWWGT94 = 325282120.0980 PWWGT95 = 325313076.6369 PWWGT96 = 325276077.4115 PWWGT97 = 325276931.9937 PWWGT98 = 325282123.4300 PWWGT99 = 325303942.4172 PWWGT100 = 325276548.7268 PWWGT101 = 325279355.5094 PWWGT102 = 325273804.6465 PWWGT103 = 325291094.6389 PWWGT104 = 325305902.0064 PWWGT105 = 325268966.9484 PWWGT106 = 325254438.5267 PWWGT107 = 325309169.7837 PWWGT108 = 325287412.6780 PWWGT109 = 325227065.5227 PWWGT110 = 325208378.7084 PWWGT111 = 325231197.2689 PWWGT112 = 325211906.6024 PWWGT113 = 325304665.6925 PWWGT114 = 325283031.9057 PWWGT115 = 325261731.3905 PWWGT116 = 325239961.7199 PWWGT117 = 325263678.6659 PWWGT118 = 325297641.7302 PWWGT119 = 325250728.6499 PWWGT120 = 325300718.0459 PWWGT121 = 325276944.8963 PWWGT122 = 325255595.4248 PWWGT123 = 325283405.4810 PWWGT124 = 325197531.1509 PWWGT125 = 325282251.3928 PWWGT126 = 325276466.8845 PWWGT127 = 325251928.2251 PWWGT128 = 325266937.8851 PWWGT129 = 325307869.7123 PWWGT130 = 325217069.7017 PWWGT131 = 325281441.2226 PWWGT132 = 325304243.8495 PWWGT133 = 325262409.4400 PWWGT134 = 325299371.9539 PWWGT135 = 325281988.9316 PWWGT136 = 325282057.6565 PWWGT137 = 325253194.3760 PWWGT138 = 325226761.8892 PWWGT139 = 325248124.6678 PWWGT140 = 325227436.7990 PWWGT141 = 325305192.6019 PWWGT142 = 325308805.6053 PWWGT143 = 325338852.1662 PWWGT144 = 325237754.3318 PWWGT145 = 325239539.4330 PWWGT146 = 325287464.1635 PWWGT147 = 325278786.9387 PWWGT148 = 325229850.7260 PWWGT149 = 325284981.9445 PWWGT150 = 325277800.9981 PWWGT151 = 325262681.2848 PWWGT152 = 325187498.1405 PWWGT153 = 325260157.4845 PWWGT154 = 325287616.7600 PWWGT155 = 325294656.8040 PWWGT156 = 325272748.1939 PWWGT157 = 325237234.1815 PWWGT158 = 325293830.8491 PWWGT159 = 325230584.0420 PWWGT160 = 325258869.3193 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2020 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;