/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2013 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2013.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2013.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2013; 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 = 311116152.1884 PWWGT1 = 311115271.9098 PWWGT2 = 311138215.2243 PWWGT3 = 311074519.4062 PWWGT4 = 311107887.3858 PWWGT5 = 311123898.1987 PWWGT6 = 311098444.6491 PWWGT7 = 311112945.9937 PWWGT8 = 311090165.0483 PWWGT9 = 311098417.4904 PWWGT10 = 311124272.0836 PWWGT11 = 311109788.3698 PWWGT12 = 311089102.3625 PWWGT13 = 311092824.2109 PWWGT14 = 311137647.4355 PWWGT15 = 311122314.3990 PWWGT16 = 311127697.8689 PWWGT17 = 311099453.5673 PWWGT18 = 311155947.6620 PWWGT19 = 311093458.5441 PWWGT20 = 311081928.9704 PWWGT21 = 311161012.9506 PWWGT22 = 311094615.3230 PWWGT23 = 311118125.7649 PWWGT24 = 311079362.4810 PWWGT25 = 311149606.0475 PWWGT26 = 311185108.2735 PWWGT27 = 311107726.2468 PWWGT28 = 311157024.8280 PWWGT29 = 311085826.1492 PWWGT30 = 311148345.3099 PWWGT31 = 311122064.3733 PWWGT32 = 311134402.1570 PWWGT33 = 311152061.2778 PWWGT34 = 311090346.4661 PWWGT35 = 311101811.9420 PWWGT36 = 311116223.9158 PWWGT37 = 311127543.3772 PWWGT38 = 311079990.8807 PWWGT39 = 311102363.6530 PWWGT40 = 311111655.5380 PWWGT41 = 311156106.1250 PWWGT42 = 311181678.7114 PWWGT43 = 311115635.4980 PWWGT44 = 311119697.5626 PWWGT45 = 311091294.8075 PWWGT46 = 311147626.3651 PWWGT47 = 311109445.8618 PWWGT48 = 311077749.9175 PWWGT49 = 311117101.6588 PWWGT50 = 311119472.1593 PWWGT51 = 311108904.3678 PWWGT52 = 311081461.4912 PWWGT53 = 311109882.5806 PWWGT54 = 311124154.0275 PWWGT55 = 311171164.3060 PWWGT56 = 311112386.9477 PWWGT57 = 311153501.8057 PWWGT58 = 311105489.3430 PWWGT59 = 311100858.6021 PWWGT60 = 311069869.2549 PWWGT61 = 311149704.1829 PWWGT62 = 311139967.4999 PWWGT63 = 311127193.2857 PWWGT64 = 311082226.6923 PWWGT65 = 311138740.2324 PWWGT66 = 311143406.2663 PWWGT67 = 311075091.7087 PWWGT68 = 311083453.3103 PWWGT69 = 311106239.6626 PWWGT70 = 311113271.9072 PWWGT71 = 311123181.7189 PWWGT72 = 311083257.6730 PWWGT73 = 311167768.6402 PWWGT74 = 311102995.3537 PWWGT75 = 311122440.5045 PWWGT76 = 311092377.5460 PWWGT77 = 311111713.2547 PWWGT78 = 311085081.2817 PWWGT79 = 311120940.7783 PWWGT80 = 311121411.8445 PWWGT81 = 311131074.8766 PWWGT82 = 311124724.9908 PWWGT83 = 311034125.6785 PWWGT84 = 311108760.8068 PWWGT85 = 311150175.4671 PWWGT86 = 311191912.0012 PWWGT87 = 311122642.6661 PWWGT88 = 311086407.3021 PWWGT89 = 311086602.3664 PWWGT90 = 311142330.3943 PWWGT91 = 311142070.8795 PWWGT92 = 311132132.8693 PWWGT93 = 311061652.2442 PWWGT94 = 311074720.8617 PWWGT95 = 311085737.5930 PWWGT96 = 311150862.8525 PWWGT97 = 311110038.7454 PWWGT98 = 311126152.2488 PWWGT99 = 311085177.5509 PWWGT100 = 311158180.6855 PWWGT101 = 311128307.0970 PWWGT102 = 311143301.8235 PWWGT103 = 311091727.0525 PWWGT104 = 311079536.4964 PWWGT105 = 311169711.4184 PWWGT106 = 311128483.9976 PWWGT107 = 311098727.7386 PWWGT108 = 311113925.7632 PWWGT109 = 311111325.2072 PWWGT110 = 311061925.8706 PWWGT111 = 311102320.9545 PWWGT112 = 311084807.9224 PWWGT113 = 311106162.4963 PWWGT114 = 311147883.1313 PWWGT115 = 311133804.4068 PWWGT116 = 311122329.3607 PWWGT117 = 311155770.5302 PWWGT118 = 311129238.8548 PWWGT119 = 311105931.5360 PWWGT120 = 311095569.0456 PWWGT121 = 311161438.0610 PWWGT122 = 311174574.8258 PWWGT123 = 311056448.2793 PWWGT124 = 311082622.8444 PWWGT125 = 311113003.1872 PWWGT126 = 311169185.8002 PWWGT127 = 311110467.3868 PWWGT128 = 311124639.4502 PWWGT129 = 311118135.7528 PWWGT130 = 311142293.4893 PWWGT131 = 311119980.2290 PWWGT132 = 311087711.3713 PWWGT133 = 311123357.8768 PWWGT134 = 311101628.2242 PWWGT135 = 311123818.1446 PWWGT136 = 311129146.5525 PWWGT137 = 311139720.5010 PWWGT138 = 311130147.3904 PWWGT139 = 311113676.5327 PWWGT140 = 311086309.3739 PWWGT141 = 311121727.4285 PWWGT142 = 311149175.9529 PWWGT143 = 311128700.7382 PWWGT144 = 311137893.8999 PWWGT145 = 311155355.6618 PWWGT146 = 311086547.4583 PWWGT147 = 311100170.7436 PWWGT148 = 311084397.8151 PWWGT149 = 311111671.8734 PWWGT150 = 311053646.9848 PWWGT151 = 311158349.0873 PWWGT152 = 311055473.2092 PWWGT153 = 311103326.9376 PWWGT154 = 311146109.9358 PWWGT155 = 311121382.5104 PWWGT156 = 311116512.1845 PWWGT157 = 311179696.2308 PWWGT158 = 311129912.3692 PWWGT159 = 311068207.4330 PWWGT160 = 311065982.5827 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2013 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;