/* cps_foodsecurity_hhrepwgt_dec18.sas This code is for documentation of the record layout for the ASCII replicate weight code for the DECEMBER 2018 FOOD SECURITY The dec18 weighting spec changed the household supplement weight name from hhwgt<> to hhsupwgt<>/ */ *ENTER LOCATION OF INPUT FILE; *filename ipfile " dec18hhrep.dat" ; filename ipfile "/cpspb/supp/data/dec18/REPWGT/dec18hhrep.dat" ; %let replist= CPS_FOODSECURITY_HHREP_dec18.LST; filename replist "&replist"; * ADD SAS LIBRARY; libname sas '.'; data sas.repwgts_dec18; infile ipfile lrecl=1617 recfm=v; input qstnum 1-5 hhsupwgt0 8 -17 hhsupwgt1 18 -27 hhsupwgt2 28 -37 hhsupwgt3 38 -47 hhsupwgt4 48 -57 hhsupwgt5 58 -67 hhsupwgt6 68 -77 hhsupwgt7 78 -87 hhsupwgt8 88 -97 hhsupwgt9 98 -107 hhsupwgt10 108 -117 hhsupwgt11 118 -127 hhsupwgt12 128 -137 hhsupwgt13 138 -147 hhsupwgt14 148 -157 hhsupwgt15 158 -167 hhsupwgt16 168 -177 hhsupwgt17 178 -187 hhsupwgt18 188 -197 hhsupwgt19 198 -207 hhsupwgt20 208 -217 hhsupwgt21 218 -227 hhsupwgt22 228 -237 hhsupwgt23 238 -247 hhsupwgt24 248 -257 hhsupwgt25 258 -267 hhsupwgt26 268 -277 hhsupwgt27 278 -287 hhsupwgt28 288 -297 hhsupwgt29 298 -307 hhsupwgt30 308 -317 hhsupwgt31 318 -327 hhsupwgt32 328 -337 hhsupwgt33 338 -347 hhsupwgt34 348 -357 hhsupwgt35 358 -367 hhsupwgt36 368 -377 hhsupwgt37 378 -387 hhsupwgt38 388 -397 hhsupwgt39 398 -407 hhsupwgt40 408 -417 hhsupwgt41 418 -427 hhsupwgt42 428 -437 hhsupwgt43 438 -447 hhsupwgt44 448 -457 hhsupwgt45 458 -467 hhsupwgt46 468 -477 hhsupwgt47 478 -487 hhsupwgt48 488 -497 hhsupwgt49 498 -507 hhsupwgt50 508 -517 hhsupwgt51 518 -527 hhsupwgt52 528 -537 hhsupwgt53 538 -547 hhsupwgt54 548 -557 hhsupwgt55 558 -567 hhsupwgt56 568 -577 hhsupwgt57 578 -587 hhsupwgt58 588 -597 hhsupwgt59 598 -607 hhsupwgt60 608 -617 hhsupwgt61 618 -627 hhsupwgt62 628 -637 hhsupwgt63 638 -647 hhsupwgt64 648 -657 hhsupwgt65 658 -667 hhsupwgt66 668 -677 hhsupwgt67 678 -687 hhsupwgt68 688 -697 hhsupwgt69 698 -707 hhsupwgt70 708 -717 hhsupwgt71 718 -727 hhsupwgt72 728 -737 hhsupwgt73 738 -747 hhsupwgt74 748 -757 hhsupwgt75 758 -767 hhsupwgt76 768 -777 hhsupwgt77 778 -787 hhsupwgt78 788 -797 hhsupwgt79 798 -807 hhsupwgt80 808 -817 hhsupwgt81 818 -827 hhsupwgt82 828 -837 hhsupwgt83 838 -847 hhsupwgt84 848 -857 hhsupwgt85 858 -867 hhsupwgt86 868 -877 hhsupwgt87 878 -887 hhsupwgt88 888 -897 hhsupwgt89 898 -907 hhsupwgt90 908 -917 hhsupwgt91 918 -927 hhsupwgt92 928 -937 hhsupwgt93 938 -947 hhsupwgt94 948 -957 hhsupwgt95 958 -967 hhsupwgt96 968 -977 hhsupwgt97 978 -987 hhsupwgt98 988 -997 hhsupwgt99 998 -1007 hhsupwgt100 1008 -1017 hhsupwgt101 1018 -1027 hhsupwgt102 1028 -1037 hhsupwgt103 1038 -1047 hhsupwgt104 1048 -1057 hhsupwgt105 1058 -1067 hhsupwgt106 1068 -1077 hhsupwgt107 1078 -1087 hhsupwgt108 1088 -1097 hhsupwgt109 1098 -1107 hhsupwgt110 1108 -1117 hhsupwgt111 1118 -1127 hhsupwgt112 1128 -1137 hhsupwgt113 1138 -1147 hhsupwgt114 1148 -1157 hhsupwgt115 1158 -1167 hhsupwgt116 1168 -1177 hhsupwgt117 1178 -1187 hhsupwgt118 1188 -1197 hhsupwgt119 1198 -1207 hhsupwgt120 1208 -1217 hhsupwgt121 1218 -1227 hhsupwgt122 1228 -1237 hhsupwgt123 1238 -1247 hhsupwgt124 1248 -1257 hhsupwgt125 1258 -1267 hhsupwgt126 1268 -1277 hhsupwgt127 1278 -1287 hhsupwgt128 1288 -1297 hhsupwgt129 1298 -1307 hhsupwgt130 1308 -1317 hhsupwgt131 1318 -1327 hhsupwgt132 1328 -1337 hhsupwgt133 1338 -1347 hhsupwgt134 1348 -1357 hhsupwgt135 1358 -1367 hhsupwgt136 1368 -1377 hhsupwgt137 1378 -1387 hhsupwgt138 1388 -1397 hhsupwgt139 1398 -1407 hhsupwgt140 1408 -1417 hhsupwgt141 1418 -1427 hhsupwgt142 1428 -1437 hhsupwgt143 1438 -1447 hhsupwgt144 1448 -1457 hhsupwgt145 1458 -1467 hhsupwgt146 1468 -1477 hhsupwgt147 1478 -1487 hhsupwgt148 1488 -1497 hhsupwgt149 1498 -1507 hhsupwgt150 1508 -1517 hhsupwgt151 1518 -1527 hhsupwgt152 1528 -1537 hhsupwgt153 1538 -1547 hhsupwgt154 1548 -1557 hhsupwgt155 1558 -1567 hhsupwgt156 1568 -1577 hhsupwgt157 1578 -1587 hhsupwgt158 1588 -1597 hhsupwgt159 1598 -1607 hhsupwgt160 1608 -1617 ; array wt(0:160) hhsupwgt0-hhsupwgt160; drop i; /* ASCII repweights have 4 implied decimal places. undo by dividing by 10000. */ do i= 0 to 160; wt(i)= wt(i)/10000; end; run; /* SUM of Weights for Verification: The sum of the replicate weights, hhsupwgt0 - hhsupwgt160, is outputted in CPS_FOODSECURITY_HHREP_dec18.LST and should appear the same as the following: CPS_FOODSECURITY_HHREP_dec18.LST DEC 2018 Food Security: Sum of Household Replicate Weights in dec18hhrep.dat hhsupwgt0 = 129623326.4902 hhsupwgt1 = 129663200.3604 hhsupwgt2 = 129906515.9339 hhsupwgt3 = 129707875.4826 hhsupwgt4 = 129631129.3196 hhsupwgt5 = 129336727.1451 hhsupwgt6 = 129800821.3708 hhsupwgt7 = 129629327.0483 hhsupwgt8 = 129710661.8032 hhsupwgt9 = 129768529.0550 hhsupwgt10 = 129444436.8383 hhsupwgt11 = 129815477.5768 hhsupwgt12 = 129755371.6493 hhsupwgt13 = 130066588.9260 hhsupwgt14 = 129778567.1389 hhsupwgt15 = 129790905.2777 hhsupwgt16 = 129701689.5322 hhsupwgt17 = 129724133.4018 hhsupwgt18 = 129552135.1170 hhsupwgt19 = 130003527.4715 hhsupwgt20 = 129472969.3890 hhsupwgt21 = 129545991.9388 hhsupwgt22 = 129708284.7310 hhsupwgt23 = 129903962.8762 hhsupwgt24 = 129449204.7681 hhsupwgt25 = 129446396.9140 hhsupwgt26 = 129804297.7905 hhsupwgt27 = 129769830.3229 hhsupwgt28 = 129714746.5988 hhsupwgt29 = 129631243.1780 hhsupwgt30 = 129687807.1686 hhsupwgt31 = 129787104.8198 hhsupwgt32 = 129837459.6343 hhsupwgt33 = 129492847.6606 hhsupwgt34 = 129817320.6323 hhsupwgt35 = 129484367.7941 hhsupwgt36 = 129240480.7737 hhsupwgt37 = 129766389.2741 hhsupwgt38 = 129893566.6791 hhsupwgt39 = 129577297.9677 hhsupwgt40 = 129969529.4917 hhsupwgt41 = 129784256.1859 hhsupwgt42 = 129710790.4733 hhsupwgt43 = 129811243.5250 hhsupwgt44 = 129736902.7321 hhsupwgt45 = 129760623.1405 hhsupwgt46 = 129166429.1531 hhsupwgt47 = 129630135.4505 hhsupwgt48 = 129664122.1343 hhsupwgt49 = 129462867.8277 hhsupwgt50 = 129485902.7418 hhsupwgt51 = 129650315.7584 hhsupwgt52 = 129343655.7559 hhsupwgt53 = 129746109.2076 hhsupwgt54 = 129675382.3173 hhsupwgt55 = 129823964.4455 hhsupwgt56 = 129716705.4972 hhsupwgt57 = 129399489.3685 hhsupwgt58 = 129842902.3203 hhsupwgt59 = 129429030.1882 hhsupwgt60 = 129552634.5829 hhsupwgt61 = 129712755.2897 hhsupwgt62 = 129780589.3252 hhsupwgt63 = 129708030.2621 hhsupwgt64 = 129516850.8322 hhsupwgt65 = 129637857.4142 hhsupwgt66 = 129572728.0238 hhsupwgt67 = 129757420.7002 hhsupwgt68 = 129662218.3870 hhsupwgt69 = 129664497.9206 hhsupwgt70 = 129615803.7930 hhsupwgt71 = 129683499.0239 hhsupwgt72 = 129571963.5622 hhsupwgt73 = 129732240.1994 hhsupwgt74 = 129565407.0591 hhsupwgt75 = 129792105.1244 hhsupwgt76 = 129554262.2078 hhsupwgt77 = 129842952.0211 hhsupwgt78 = 129727932.5030 hhsupwgt79 = 129371256.7785 hhsupwgt80 = 129860551.6139 hhsupwgt81 = 129308708.9560 hhsupwgt82 = 129369999.7398 hhsupwgt83 = 129965915.7656 hhsupwgt84 = 129355716.2719 hhsupwgt85 = 129983932.9900 hhsupwgt86 = 129439481.0398 hhsupwgt87 = 129767477.6242 hhsupwgt88 = 129385189.4232 hhsupwgt89 = 129758632.7623 hhsupwgt90 = 129924217.8052 hhsupwgt91 = 129752035.0602 hhsupwgt92 = 129777027.0914 hhsupwgt93 = 129769642.5726 hhsupwgt94 = 129862861.6657 hhsupwgt95 = 129626583.8865 hhsupwgt96 = 129284688.6213 hhsupwgt97 = 129856220.6342 hhsupwgt98 = 129557454.8156 hhsupwgt99 = 129680235.7396 hhsupwgt100 129526733.1248 hhsupwgt101 129686739.3100 hhsupwgt102 129846500.2137 hhsupwgt103 129569688.6826 hhsupwgt104 129642980.2565 hhsupwgt105 129794318.3847 hhsupwgt106 129922814.3255 hhsupwgt107 129463113.4533 hhsupwgt108 129497846.0475 hhsupwgt109 129543936.5971 hhsupwgt110 129695225.4369 hhsupwgt111 129744774.6476 hhsupwgt112 129522640.9380 hhsupwgt113 129702804.9174 hhsupwgt114 129428473.7089 hhsupwgt115 129678317.7799 hhsupwgt116 129654630.8786 hhsupwgt117 129507547.7809 hhsupwgt118 129536160.6786 hhsupwgt119 129638883.6483 hhsupwgt120 129422320.0633 hhsupwgt121 129739658.4473 hhsupwgt122 129623143.5956 hhsupwgt123 129790698.3944 hhsupwgt124 129727520.8349 hhsupwgt125 129504564.8951 hhsupwgt126 129955833.7028 hhsupwgt127 129477633.2983 hhsupwgt128 129744506.7434 hhsupwgt129 129781013.5127 hhsupwgt130 129268645.6368 hhsupwgt131 129727329.5859 hhsupwgt132 129711411.7505 hhsupwgt133 129774221.5563 hhsupwgt134 130045685.0945 hhsupwgt135 129539829.9518 hhsupwgt136 129680138.8663 hhsupwgt137 129656320.5562 hhsupwgt138 129388146.0552 hhsupwgt139 129665635.7303 hhsupwgt140 129482890.4024 hhsupwgt141 129523120.0472 hhsupwgt142 129937064.0000 hhsupwgt143 129633907.7406 hhsupwgt144 129537281.6819 hhsupwgt145 129716065.6319 hhsupwgt146 129610317.1375 hhsupwgt147 129852997.8265 hhsupwgt148 129598409.2573 hhsupwgt149 129790355.7118 hhsupwgt150 130175279.6128 hhsupwgt151 130068931.9356 hhsupwgt152 129406132.7360 hhsupwgt153 129928070.5236 hhsupwgt154 129816186.2068 hhsupwgt155 129663522.9719 hhsupwgt156 129227510.6789 hhsupwgt157 129931065.6152 hhsupwgt158 129366235.5472 hhsupwgt159 129940355.9576 hhsupwgt160 129673571.4157 Use these totals to verify that your file is created correctly. */ %macro total; data _null_; set sas.repwgts_dec18 end=last; retain tot_hhsupwgt0-tot_hhsupwgt160 0; %do i = 0 %to 160; tot_hhsupwgt&i + hhsupwgt&i; %end; if last then do; file replist; put "&replist"; put; put 'DEC 2018 Food Security: Sum of Household Replicate Weights in dec18hhrep.dat'; put; %do i = 0 %to 160; put " hhsupwgt&i = " @16 tot_hhsupwgt&i f15.4; %end; end; run; %mend total; %total;