/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2021 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2021.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2021.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2021; 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 = 326195427.1792 PWWGT1 = 326206570.1491 PWWGT2 = 326228632.3309 PWWGT3 = 326183500.7232 PWWGT4 = 326200907.6533 PWWGT5 = 326202299.5900 PWWGT6 = 326261094.7634 PWWGT7 = 326180932.0990 PWWGT8 = 326221289.5727 PWWGT9 = 326191605.8327 PWWGT10 = 326202321.1453 PWWGT11 = 326135938.3868 PWWGT12 = 326154196.0793 PWWGT13 = 326241194.1647 PWWGT14 = 326138333.3844 PWWGT15 = 326196112.1691 PWWGT16 = 326213701.2062 PWWGT17 = 326269122.8448 PWWGT18 = 326213026.1339 PWWGT19 = 326143139.3284 PWWGT20 = 326166256.3748 PWWGT21 = 326164943.5850 PWWGT22 = 326171323.9089 PWWGT23 = 326169147.4094 PWWGT24 = 326138789.9966 PWWGT25 = 326212278.9805 PWWGT26 = 326180217.3062 PWWGT27 = 326222669.5795 PWWGT28 = 326228586.2821 PWWGT29 = 326160931.2942 PWWGT30 = 326214470.2218 PWWGT31 = 326281813.5848 PWWGT32 = 326222584.0207 PWWGT33 = 326189711.9183 PWWGT34 = 326167308.6415 PWWGT35 = 326201199.7656 PWWGT36 = 326254972.3594 PWWGT37 = 326164932.7429 PWWGT38 = 326180065.0696 PWWGT39 = 326153013.0546 PWWGT40 = 326117413.2542 PWWGT41 = 326252969.4147 PWWGT42 = 326277783.6153 PWWGT43 = 326217626.7591 PWWGT44 = 326225830.4626 PWWGT45 = 326161344.4450 PWWGT46 = 326293884.4868 PWWGT47 = 326160527.2383 PWWGT48 = 326173713.7975 PWWGT49 = 326119861.2033 PWWGT50 = 326154624.7908 PWWGT51 = 326149111.7558 PWWGT52 = 326178678.0533 PWWGT53 = 326219828.3172 PWWGT54 = 326220067.4843 PWWGT55 = 326194851.5475 PWWGT56 = 326196411.4724 PWWGT57 = 326220668.4663 PWWGT58 = 326185956.6416 PWWGT59 = 326161888.0397 PWWGT60 = 326208970.8259 PWWGT61 = 326140485.9361 PWWGT62 = 326213787.6175 PWWGT63 = 326234293.9160 PWWGT64 = 326124719.9107 PWWGT65 = 326229542.4603 PWWGT66 = 326200878.3625 PWWGT67 = 326228322.2268 PWWGT68 = 326202688.0538 PWWGT69 = 326239198.1703 PWWGT70 = 326220044.0631 PWWGT71 = 326271477.7224 PWWGT72 = 326228818.5729 PWWGT73 = 326112980.8950 PWWGT74 = 326125101.3930 PWWGT75 = 326197621.9509 PWWGT76 = 326244845.2285 PWWGT77 = 326219447.8815 PWWGT78 = 326169840.0647 PWWGT79 = 326217176.0848 PWWGT80 = 326105462.1813 PWWGT81 = 326190186.6194 PWWGT82 = 326171054.4303 PWWGT83 = 326218869.1688 PWWGT84 = 326088638.7306 PWWGT85 = 326231673.2067 PWWGT86 = 326225966.4456 PWWGT87 = 326235673.7398 PWWGT88 = 326112934.8433 PWWGT89 = 326163611.8924 PWWGT90 = 326210816.9458 PWWGT91 = 326232646.9672 PWWGT92 = 326141963.1151 PWWGT93 = 326160765.2162 PWWGT94 = 326208904.3210 PWWGT95 = 326258535.4969 PWWGT96 = 326304181.0578 PWWGT97 = 326211844.6725 PWWGT98 = 326256791.4810 PWWGT99 = 326200790.3980 PWWGT100 = 326181499.3706 PWWGT101 = 326213472.9936 PWWGT102 = 326262415.7594 PWWGT103 = 326218745.5733 PWWGT104 = 326187396.6641 PWWGT105 = 326210862.7981 PWWGT106 = 326189070.6398 PWWGT107 = 326185722.5735 PWWGT108 = 326241214.1669 PWWGT109 = 326152816.7827 PWWGT110 = 326111248.0485 PWWGT111 = 326232028.9956 PWWGT112 = 326146303.4069 PWWGT113 = 326184392.2951 PWWGT114 = 326182428.0623 PWWGT115 = 326185456.7328 PWWGT116 = 326228461.8365 PWWGT117 = 326234066.2575 PWWGT118 = 326197282.2471 PWWGT119 = 326186241.1839 PWWGT120 = 326153832.4802 PWWGT121 = 326220518.7250 PWWGT122 = 326145372.6239 PWWGT123 = 326203624.0233 PWWGT124 = 326149702.8898 PWWGT125 = 326229860.6689 PWWGT126 = 326149039.1243 PWWGT127 = 326139698.7308 PWWGT128 = 326176541.8153 PWWGT129 = 326212685.1389 PWWGT130 = 326196917.5452 PWWGT131 = 326210050.6024 PWWGT132 = 326208364.5776 PWWGT133 = 326129031.5181 PWWGT134 = 326201338.4887 PWWGT135 = 326131414.2920 PWWGT136 = 326245653.7592 PWWGT137 = 326221324.4169 PWWGT138 = 326153927.4459 PWWGT139 = 326186565.7076 PWWGT140 = 326201720.3017 PWWGT141 = 326263066.6309 PWWGT142 = 326247226.0590 PWWGT143 = 326205070.9013 PWWGT144 = 326202573.8765 PWWGT145 = 326186499.0434 PWWGT146 = 326223984.1001 PWWGT147 = 326243965.7664 PWWGT148 = 326120899.4333 PWWGT149 = 326185153.6222 PWWGT150 = 326210995.6529 PWWGT151 = 326163857.0122 PWWGT152 = 326085273.6347 PWWGT153 = 326218793.7188 PWWGT154 = 326192312.5782 PWWGT155 = 326208091.0342 PWWGT156 = 326201186.9904 PWWGT157 = 326251709.8469 PWWGT158 = 326208268.8813 PWWGT159 = 326165226.6244 PWWGT160 = 326196947.7935 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2021 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;