/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2019 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2019.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2019.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2019; 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 = 324355829.6646 PWWGT1 = 324404393.9101 PWWGT2 = 324391225.6928 PWWGT3 = 324369897.3080 PWWGT4 = 324354296.7195 PWWGT5 = 324287054.0549 PWWGT6 = 324396949.8287 PWWGT7 = 324361222.7198 PWWGT8 = 324367349.0086 PWWGT9 = 324317346.4785 PWWGT10 = 324352305.0810 PWWGT11 = 324325810.4466 PWWGT12 = 324322693.1566 PWWGT13 = 324402014.4659 PWWGT14 = 324377189.9377 PWWGT15 = 324339849.0472 PWWGT16 = 324388678.3753 PWWGT17 = 324377042.6907 PWWGT18 = 324368843.2721 PWWGT19 = 324298403.3787 PWWGT20 = 324370536.4390 PWWGT21 = 324312536.2777 PWWGT22 = 324321793.0946 PWWGT23 = 324351003.7577 PWWGT24 = 324398858.4334 PWWGT25 = 324403875.1536 PWWGT26 = 324285566.9068 PWWGT27 = 324358733.4554 PWWGT28 = 324328117.2594 PWWGT29 = 324362758.8970 PWWGT30 = 324393513.1699 PWWGT31 = 324380700.7829 PWWGT32 = 324363623.3545 PWWGT33 = 324325546.6876 PWWGT34 = 324334987.0474 PWWGT35 = 324342069.8185 PWWGT36 = 324292899.0899 PWWGT37 = 324368270.7354 PWWGT38 = 324391106.4901 PWWGT39 = 324376725.4464 PWWGT40 = 324322967.1823 PWWGT41 = 324446650.3605 PWWGT42 = 324394166.0095 PWWGT43 = 324331878.8742 PWWGT44 = 324353157.6762 PWWGT45 = 324315146.3402 PWWGT46 = 324392187.3345 PWWGT47 = 324326209.1346 PWWGT48 = 324344998.7392 PWWGT49 = 324327307.4399 PWWGT50 = 324372277.0062 PWWGT51 = 324307120.0808 PWWGT52 = 324302670.0099 PWWGT53 = 324389392.7325 PWWGT54 = 324367473.1267 PWWGT55 = 324389542.3993 PWWGT56 = 324380667.6656 PWWGT57 = 324317423.7847 PWWGT58 = 324378543.1989 PWWGT59 = 324359088.1760 PWWGT60 = 324371554.5878 PWWGT61 = 324316857.3627 PWWGT62 = 324353244.5368 PWWGT63 = 324380998.8767 PWWGT64 = 324402093.9343 PWWGT65 = 324409113.9832 PWWGT66 = 324357235.6928 PWWGT67 = 324291067.5534 PWWGT68 = 324292011.7244 PWWGT69 = 324407030.9790 PWWGT70 = 324407338.9611 PWWGT71 = 324386863.2983 PWWGT72 = 324384407.0653 PWWGT73 = 324297736.0152 PWWGT74 = 324314159.7367 PWWGT75 = 324365210.2398 PWWGT76 = 324326996.0698 PWWGT77 = 324344535.5260 PWWGT78 = 324410350.3917 PWWGT79 = 324393635.6054 PWWGT80 = 324322036.9395 PWWGT81 = 324315025.4286 PWWGT82 = 324370318.2247 PWWGT83 = 324374366.0182 PWWGT84 = 324337662.2634 PWWGT85 = 324374421.6868 PWWGT86 = 324366253.2029 PWWGT87 = 324382903.3783 PWWGT88 = 324294269.6962 PWWGT89 = 324389604.5813 PWWGT90 = 324378438.8206 PWWGT91 = 324320982.6526 PWWGT92 = 324356393.3295 PWWGT93 = 324316938.2495 PWWGT94 = 324331687.5577 PWWGT95 = 324390355.6585 PWWGT96 = 324330544.0788 PWWGT97 = 324280610.7373 PWWGT98 = 324352225.1204 PWWGT99 = 324353572.8006 PWWGT100 = 324383252.9851 PWWGT101 = 324393541.9142 PWWGT102 = 324382951.7769 PWWGT103 = 324380067.9579 PWWGT104 = 324364379.6947 PWWGT105 = 324340881.8956 PWWGT106 = 324369968.2203 PWWGT107 = 324369422.1769 PWWGT108 = 324395352.2296 PWWGT109 = 324328968.2034 PWWGT110 = 324262050.3314 PWWGT111 = 324365272.7958 PWWGT112 = 324323676.7006 PWWGT113 = 324359156.7669 PWWGT114 = 324386316.9618 PWWGT115 = 324373109.2962 PWWGT116 = 324333609.8593 PWWGT117 = 324402726.8798 PWWGT118 = 324361510.7918 PWWGT119 = 324343498.6395 PWWGT120 = 324388118.5714 PWWGT121 = 324343743.7885 PWWGT122 = 324303747.0546 PWWGT123 = 324366369.6704 PWWGT124 = 324357346.3357 PWWGT125 = 324380774.9655 PWWGT126 = 324342548.5730 PWWGT127 = 324351080.1502 PWWGT128 = 324304633.1687 PWWGT129 = 324395481.1228 PWWGT130 = 324377698.2998 PWWGT131 = 324400625.8231 PWWGT132 = 324431797.8526 PWWGT133 = 324348219.1534 PWWGT134 = 324352779.5215 PWWGT135 = 324393474.6110 PWWGT136 = 324359935.1492 PWWGT137 = 324291783.5952 PWWGT138 = 324335519.3360 PWWGT139 = 324374177.0040 PWWGT140 = 324307049.8073 PWWGT141 = 324400404.1346 PWWGT142 = 324395483.0335 PWWGT143 = 324422126.8604 PWWGT144 = 324300942.6367 PWWGT145 = 324306181.0224 PWWGT146 = 324358803.6149 PWWGT147 = 324339828.9895 PWWGT148 = 324387222.6350 PWWGT149 = 324338492.6471 PWWGT150 = 324378232.2010 PWWGT151 = 324351724.0561 PWWGT152 = 324331156.1190 PWWGT153 = 324346773.1057 PWWGT154 = 324377571.6003 PWWGT155 = 324425821.4875 PWWGT156 = 324326794.6768 PWWGT157 = 324385331.6552 PWWGT158 = 324306479.4308 PWWGT159 = 324334793.7701 PWWGT160 = 324378566.1677 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2019 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;