/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2023 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2023.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2023.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2023; 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 = 330631695.2187 PWWGT1 = 330623428.1017 PWWGT2 = 330659463.9891 PWWGT3 = 330631979.2425 PWWGT4 = 330626462.6209 PWWGT5 = 330664121.6992 PWWGT6 = 330647891.7013 PWWGT7 = 330603337.7292 PWWGT8 = 330589832.4770 PWWGT9 = 330677776.5486 PWWGT10 = 330651048.2453 PWWGT11 = 330606265.0912 PWWGT12 = 330639103.7966 PWWGT13 = 330715354.6261 PWWGT14 = 330595952.4639 PWWGT15 = 330673476.2154 PWWGT16 = 330638928.3719 PWWGT17 = 330669000.6521 PWWGT18 = 330615369.6972 PWWGT19 = 330591964.7957 PWWGT20 = 330679589.8160 PWWGT21 = 330703172.6604 PWWGT22 = 330580219.4086 PWWGT23 = 330673009.4076 PWWGT24 = 330618223.7793 PWWGT25 = 330646189.8197 PWWGT26 = 330589457.7629 PWWGT27 = 330605587.4886 PWWGT28 = 330609337.3449 PWWGT29 = 330621640.4646 PWWGT30 = 330636386.6576 PWWGT31 = 330668173.6940 PWWGT32 = 330611617.7658 PWWGT33 = 330596098.2339 PWWGT34 = 330614460.9056 PWWGT35 = 330668717.0910 PWWGT36 = 330656385.0718 PWWGT37 = 330614215.1147 PWWGT38 = 330673885.1495 PWWGT39 = 330675214.2377 PWWGT40 = 330585063.2886 PWWGT41 = 330626583.7682 PWWGT42 = 330592107.8462 PWWGT43 = 330641783.3998 PWWGT44 = 330672289.7761 PWWGT45 = 330598980.5132 PWWGT46 = 330667076.5225 PWWGT47 = 330638258.7890 PWWGT48 = 330635216.8940 PWWGT49 = 330641052.2683 PWWGT50 = 330560775.3192 PWWGT51 = 330523480.7908 PWWGT52 = 330611441.9226 PWWGT53 = 330652865.2799 PWWGT54 = 330611961.2741 PWWGT55 = 330651208.9071 PWWGT56 = 330597485.9294 PWWGT57 = 330615000.1417 PWWGT58 = 330630467.2644 PWWGT59 = 330600595.5765 PWWGT60 = 330658065.5293 PWWGT61 = 330590050.6218 PWWGT62 = 330659181.7576 PWWGT63 = 330605624.2924 PWWGT64 = 330628706.6748 PWWGT65 = 330656715.7009 PWWGT66 = 330608595.6306 PWWGT67 = 330605107.2917 PWWGT68 = 330648558.1966 PWWGT69 = 330724372.2668 PWWGT70 = 330595652.9853 PWWGT71 = 330686701.7043 PWWGT72 = 330661858.5655 PWWGT73 = 330574712.1403 PWWGT74 = 330603847.7129 PWWGT75 = 330700621.7169 PWWGT76 = 330653177.6267 PWWGT77 = 330650764.4028 PWWGT78 = 330604644.6449 PWWGT79 = 330582036.6038 PWWGT80 = 330606697.8495 PWWGT81 = 330621600.5049 PWWGT82 = 330576432.4068 PWWGT83 = 330631515.7443 PWWGT84 = 330643195.4879 PWWGT85 = 330613580.3736 PWWGT86 = 330657738.8845 PWWGT87 = 330664072.6954 PWWGT88 = 330584362.1209 PWWGT89 = 330634868.1651 PWWGT90 = 330659916.3124 PWWGT91 = 330589803.0020 PWWGT92 = 330651934.8416 PWWGT93 = 330625432.2742 PWWGT94 = 330619650.5568 PWWGT95 = 330616471.1434 PWWGT96 = 330677645.9284 PWWGT97 = 330634873.5348 PWWGT98 = 330637664.2502 PWWGT99 = 330613546.4474 PWWGT100 = 330642197.9810 PWWGT101 = 330679210.7842 PWWGT102 = 330658298.2979 PWWGT103 = 330672905.1539 PWWGT104 = 330622424.6852 PWWGT105 = 330644998.4848 PWWGT106 = 330606579.0387 PWWGT107 = 330651943.5501 PWWGT108 = 330685228.4557 PWWGT109 = 330636970.0078 PWWGT110 = 330609510.5933 PWWGT111 = 330642788.2758 PWWGT112 = 330639472.3041 PWWGT113 = 330654598.8713 PWWGT114 = 330622540.1688 PWWGT115 = 330670104.9496 PWWGT116 = 330695738.2515 PWWGT117 = 330662076.8147 PWWGT118 = 330607364.1664 PWWGT119 = 330597109.8461 PWWGT120 = 330613666.2445 PWWGT121 = 330655962.9243 PWWGT122 = 330595839.5369 PWWGT123 = 330640999.8949 PWWGT124 = 330605801.6274 PWWGT125 = 330651094.9539 PWWGT126 = 330621150.7671 PWWGT127 = 330564090.5428 PWWGT128 = 330634704.4127 PWWGT129 = 330664032.7351 PWWGT130 = 330647350.4869 PWWGT131 = 330656903.6900 PWWGT132 = 330662415.4369 PWWGT133 = 330620449.2697 PWWGT134 = 330610096.7026 PWWGT135 = 330616060.2738 PWWGT136 = 330595865.8951 PWWGT137 = 330561642.2459 PWWGT138 = 330657400.3429 PWWGT139 = 330628469.2498 PWWGT140 = 330617389.7323 PWWGT141 = 330671795.0453 PWWGT142 = 330646562.2109 PWWGT143 = 330641499.0931 PWWGT144 = 330600728.2079 PWWGT145 = 330613469.7750 PWWGT146 = 330648209.4945 PWWGT147 = 330615044.8708 PWWGT148 = 330590727.1491 PWWGT149 = 330607167.0000 PWWGT150 = 330607818.7506 PWWGT151 = 330660201.7110 PWWGT152 = 330601283.5485 PWWGT153 = 330579887.8713 PWWGT154 = 330670485.0536 PWWGT155 = 330619350.8612 PWWGT156 = 330612835.4377 PWWGT157 = 330650287.7911 PWWGT158 = 330648371.1678 PWWGT159 = 330610076.4725 PWWGT160 = 330684379.5010 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2023 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;