/* cps_tobacco_nrrepwgt_jul14.sas This code is for documentation of the record layout for the ASCII replicate weight code for the JULY 2014 Tobacco Use Non-Response */ filename ipfile "jul14nrrep.dat"; %let replist= CPS_TOBACCO_NRREPWGT_JUL14.LST; filename replist "&replist"; * Add SAS library; libname sas '.'; data sas.repwgts_jul14; infile ipfile lrecl=1617 recfm=v; input qstnum 1-5 occurnum 6-7 repwgt0 8 -17 repwgt1 18 -27 repwgt2 28 -37 repwgt3 38 -47 repwgt4 48 -57 repwgt5 58 -67 repwgt6 68 -77 repwgt7 78 -87 repwgt8 88 -97 repwgt9 98 -107 repwgt10 108 -117 repwgt11 118 -127 repwgt12 128 -137 repwgt13 138 -147 repwgt14 148 -157 repwgt15 158 -167 repwgt16 168 -177 repwgt17 178 -187 repwgt18 188 -197 repwgt19 198 -207 repwgt20 208 -217 repwgt21 218 -227 repwgt22 228 -237 repwgt23 238 -247 repwgt24 248 -257 repwgt25 258 -267 repwgt26 268 -277 repwgt27 278 -287 repwgt28 288 -297 repwgt29 298 -307 repwgt30 308 -317 repwgt31 318 -327 repwgt32 328 -337 repwgt33 338 -347 repwgt34 348 -357 repwgt35 358 -367 repwgt36 368 -377 repwgt37 378 -387 repwgt38 388 -397 repwgt39 399 -407 repwgt40 408 -417 repwgt41 418 -427 repwgt42 428 -437 repwgt43 438 -447 repwgt44 448 -457 repwgt45 458 -467 repwgt46 468 -477 repwgt47 478 -487 repwgt48 488 -497 repwgt49 498 -507 repwgt50 508 -517 repwgt51 518 -527 repwgt52 528 -537 repwgt53 538 -547 repwgt54 548 -557 repwgt55 558 -567 repwgt56 568 -577 repwgt57 578 -587 repwgt58 588 -597 repwgt59 598 -607 repwgt60 608 -617 repwgt61 618 -627 repwgt62 628 -637 repwgt63 638 -647 repwgt64 648 -657 repwgt65 658 -667 repwgt66 668 -677 repwgt67 678 -687 repwgt68 688 -697 repwgt69 699 -707 repwgt70 708 -717 repwgt71 718 -727 repwgt72 728 -737 repwgt73 738 -747 repwgt74 748 -757 repwgt75 758 -767 repwgt76 768 -777 repwgt77 778 -787 repwgt78 788 -797 repwgt79 798 -807 repwgt80 808 -817 repwgt81 818 -827 repwgt82 828 -837 repwgt83 838 -847 repwgt84 848 -857 repwgt85 858 -867 repwgt86 868 -877 repwgt87 878 -887 repwgt88 888 -897 repwgt89 898 -907 repwgt90 908 -917 repwgt91 918 -927 repwgt92 928 -937 repwgt93 938 -947 repwgt94 948 -957 repwgt95 958 -967 repwgt96 968 -977 repwgt97 978 -987 repwgt98 988 -997 repwgt99 998 -1007 repwgt100 1008 -1017 repwgt101 1018 -1027 repwgt102 1028 -1037 repwgt103 1038 -1047 repwgt104 1048 -1057 repwgt105 1058 -1067 repwgt106 1068 -1077 repwgt107 1078 -1087 repwgt108 1088 -1097 repwgt109 1098 -1107 repwgt110 1108 -1117 repwgt111 1118 -1127 repwgt112 1128 -1137 repwgt113 1138 -1147 repwgt114 1148 -1157 repwgt115 1158 -1167 repwgt116 1168 -1177 repwgt117 1178 -1187 repwgt118 1188 -1197 repwgt119 1198 -1207 repwgt120 1208 -1217 repwgt121 1218 -1227 repwgt122 1228 -1237 repwgt123 1238 -1247 repwgt124 1248 -1257 repwgt125 1258 -1267 repwgt126 1268 -1277 repwgt127 1278 -1287 repwgt128 1288 -1297 repwgt129 1298 -1307 repwgt130 1308 -1317 repwgt131 1318 -1327 repwgt132 1328 -1337 repwgt133 1338 -1347 repwgt134 1348 -1357 repwgt135 1358 -1367 repwgt136 1368 -1377 repwgt137 1378 -1387 repwgt138 1388 -1397 repwgt139 1398 -1407 repwgt140 1408 -1417 repwgt141 1418 -1427 repwgt142 1428 -1437 repwgt143 1438 -1447 repwgt144 1448 -1457 repwgt145 1458 -1467 repwgt146 1468 -1477 repwgt147 1478 -1487 repwgt148 1488 -1497 repwgt149 1498 -1507 repwgt150 1508 -1517 repwgt151 1518 -1527 repwgt152 1528 -1537 repwgt153 1538 -1547 repwgt154 1548 -1557 repwgt155 1558 -1567 repwgt156 1568 -1577 repwgt157 1578 -1587 repwgt158 1588 -1597 repwgt159 1598 -1607 repwgt160 1608 -1617 ; array wt(0:160) repwgt0-repwgt160; 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, repwgt0 - repwgt160, is outputted in CPS_TOBACCO_NRREPWGT_JUL14.LST and should appear the same as the following: CPS_TOBACCO_NRREPWGT_JUL14.LST JULY 2014 Tobacco Use: Sum of replicate weights in jul14nrrep.dat repwgt0 = 239757171.0025 repwgt1 = 239757171.0005 repwgt2 = 239757170.9814 repwgt3 = 239757171.0035 repwgt4 = 239757171.0030 repwgt5 = 239757171.0007 repwgt6 = 239757171.0103 repwgt7 = 239757170.9914 repwgt8 = 239757171.0029 repwgt9 = 239757171.0133 repwgt10 = 239757171.0170 repwgt11 = 239757171.0148 repwgt12 = 239757170.9758 repwgt13 = 239757170.9949 repwgt14 = 239757171.0000 repwgt15 = 239757171.0020 repwgt16 = 239757170.9915 repwgt17 = 239757170.9944 repwgt18 = 239757170.9788 repwgt19 = 239757170.9947 repwgt20 = 239757170.9814 repwgt21 = 239757170.9844 repwgt22 = 239757171.0022 repwgt23 = 239757170.9916 repwgt24 = 239757170.9989 repwgt25 = 239757171.0027 repwgt26 = 239757170.9937 repwgt27 = 239757170.9890 repwgt28 = 239757171.0044 repwgt29 = 239757170.9928 repwgt30 = 239757171.0213 repwgt31 = 239757171.0140 repwgt32 = 239757170.9881 repwgt33 = 239757171.0061 repwgt34 = 239757171.0059 repwgt35 = 239757171.0046 repwgt36 = 239757171.0078 repwgt37 = 239757170.9914 repwgt38 = 239757170.9813 repwgt39 = 239757171.0286 repwgt40 = 239757171.0035 repwgt41 = 239757171.0096 repwgt42 = 239757171.0042 repwgt43 = 239757171.0085 repwgt44 = 239757171.0173 repwgt45 = 239757170.9931 repwgt46 = 239757170.9905 repwgt47 = 239757171.0074 repwgt48 = 239757170.9882 repwgt49 = 239757170.9996 repwgt50 = 239757171.0096 repwgt51 = 239757170.9891 repwgt52 = 239757170.9884 repwgt53 = 239757170.9993 repwgt54 = 239757171.0088 repwgt55 = 239757171.0067 repwgt56 = 239757170.9808 repwgt57 = 239757171.0200 repwgt58 = 239757170.9882 repwgt59 = 239757170.9946 repwgt60 = 239757170.9875 repwgt61 = 239757170.9969 repwgt62 = 239757171.0004 repwgt63 = 239757171.0119 repwgt64 = 239757170.9956 repwgt65 = 239757171.0203 repwgt66 = 239757171.0052 repwgt67 = 239757171.0011 repwgt68 = 239757170.9836 repwgt69 = 239757171.0339 repwgt70 = 239757170.9822 repwgt71 = 239757171.0081 repwgt72 = 239757170.9872 repwgt73 = 239757170.9956 repwgt74 = 239757171.0018 repwgt75 = 239757171.0070 repwgt76 = 239757170.9801 repwgt77 = 239757170.9908 repwgt78 = 239757170.9867 repwgt79 = 239757170.9981 repwgt80 = 239757171.0007 repwgt81 = 239757171.0090 repwgt82 = 239757170.9892 repwgt83 = 239757170.9982 repwgt84 = 239757170.9868 repwgt85 = 239757170.9890 repwgt86 = 239757170.9890 repwgt87 = 239757170.9890 repwgt88 = 239757170.9986 repwgt89 = 239757170.9942 repwgt90 = 239757171.0100 repwgt91 = 239757170.9973 repwgt92 = 239757170.9953 repwgt93 = 239757171.0046 repwgt94 = 239757170.9934 repwgt95 = 239757171.0031 repwgt96 = 239757170.9995 repwgt97 = 239757171.0054 repwgt98 = 239757170.9924 repwgt99 = 239757170.9991 repwgt100 = 239757170.9847 repwgt101 = 239757171.0104 repwgt102 = 239757170.9933 repwgt103 = 239757170.9839 repwgt104 = 239757170.9883 repwgt105 = 239757170.9838 repwgt106 = 239757171.0027 repwgt107 = 239757170.9915 repwgt108 = 239757171.0000 repwgt109 = 239757171.0112 repwgt110 = 239757170.9936 repwgt111 = 239757171.0032 repwgt112 = 239757171.0015 repwgt113 = 239757171.0119 repwgt114 = 239757170.9894 repwgt115 = 239757171.0043 repwgt116 = 239757170.9985 repwgt117 = 239757171.0077 repwgt118 = 239757171.0059 repwgt119 = 239757171.0031 repwgt120 = 239757171.0046 repwgt121 = 239757170.9753 repwgt122 = 239757170.9922 repwgt123 = 239757170.9865 repwgt124 = 239757170.9970 repwgt125 = 239757170.9944 repwgt126 = 239757170.9811 repwgt127 = 239757170.9998 repwgt128 = 239757170.9877 repwgt129 = 239757170.9805 repwgt130 = 239757171.0249 repwgt131 = 239757171.0055 repwgt132 = 239757170.9841 repwgt133 = 239757170.9812 repwgt134 = 239757170.9955 repwgt135 = 239757170.9775 repwgt136 = 239757171.0041 repwgt137 = 239757171.0012 repwgt138 = 239757170.9842 repwgt139 = 239757170.9785 repwgt140 = 239757170.9931 repwgt141 = 239757170.9901 repwgt142 = 239757171.0006 repwgt143 = 239757170.9911 repwgt144 = 239757170.9913 repwgt145 = 239757170.9950 repwgt146 = 239757170.9892 repwgt147 = 239757170.9988 repwgt148 = 239757170.9750 repwgt149 = 239757170.9830 repwgt150 = 239757171.0109 repwgt151 = 239757170.9935 repwgt152 = 239757170.9975 repwgt153 = 239757170.9917 repwgt154 = 239757171.0227 repwgt155 = 239757171.0079 repwgt156 = 239757170.9887 repwgt157 = 239757171.0003 repwgt158 = 239757171.0018 repwgt159 = 239757170.9838 repwgt160 = 239757170.9938 Use these totals to verify that your file is created correctly. */ %macro total; data _null_; set sas.repwgts_jul14 end = last; retain tot_repwgt0-tot_repwgt160 0; %do i = 0 %to 160; tot_repwgt&i + repwgt&i; %end; if last then do; file replist; put "&replist"; put; put 'JULY 2014 Tobacco Use: Sum of replicate weights in jul14nrrep.dat'; put; %do i = 0 %to 160; put " repwgt&i = " @16 tot_repwgt&i f15.4; %end; end; run; %mend total; %total;