/* cps_volunteer_ascii_nrrepwgt_sep2014.sas This code is for documentation of the record layout for the ASCII replicate weight code for the Sep 2014 volunteer Use Non-Response */ /* Enter filepath and name of ASCII replicate file */ filename ipfile "N:\CPS\Supplements\Volunteers\2014\sep14nrrep.dat"; %let replist= cps_volunteer_nrrepwgt_sep2014.lst; * Add SAS library; /* Enter file path to store ASCII file converted to SAS dataset */ libname sas "N:\CPS\Supplements\Volunteers\2014"; filename replist "&replist"; data sas.repwgt_sep2014; infile ipfile lrecl=1617 recfm = v; informat repwgt0-repwgt160 10.4; 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; run; /* SUM of Weights for Verification: All replicate weights, repwgt0 - repwgt160, should be found in cps_volunteer_nrrepwgt_sep2014.lst Sum of replicate weights repwgt0 = 252610513.6407 repwgt1 = 252610513.6207 repwgt2 = 252610513.6371 repwgt3 = 252610513.6213 repwgt4 = 252610513.6538 repwgt5 = 252610513.6467 repwgt6 = 252610513.6579 repwgt7 = 252610513.6469 repwgt8 = 252610513.6681 repwgt9 = 252610513.6677 repwgt10 = 252610513.6639 repwgt11 = 252610513.6303 repwgt12 = 252610513.6469 repwgt13 = 252610513.6663 repwgt14 = 252610513.6538 repwgt15 = 252610513.6621 repwgt16 = 252610513.6684 repwgt17 = 252610513.6526 repwgt18 = 252610513.6404 repwgt19 = 252610513.6462 repwgt20 = 252610513.6419 repwgt21 = 252610513.6577 repwgt22 = 252610513.6420 repwgt23 = 252610513.6450 repwgt24 = 252610513.6488 repwgt25 = 252610513.6312 repwgt26 = 252610513.6325 repwgt27 = 252610513.6454 repwgt28 = 252610513.6521 repwgt29 = 252610513.6529 repwgt30 = 252610513.6341 repwgt31 = 252610513.6509 repwgt32 = 252610513.6540 repwgt33 = 252610513.6348 repwgt34 = 252610513.6542 repwgt35 = 252610513.6412 repwgt36 = 252610513.6653 repwgt37 = 252610513.6359 repwgt38 = 252610513.6440 repwgt39 = 252610513.6524 repwgt40 = 252610513.6665 repwgt41 = 252610513.6362 repwgt42 = 252610513.6433 repwgt43 = 252610513.6548 repwgt44 = 252610513.6492 repwgt45 = 252610513.6534 repwgt46 = 252610513.6493 repwgt47 = 252610513.6468 repwgt48 = 252610513.6562 repwgt49 = 252610513.6532 repwgt50 = 252610513.6579 repwgt51 = 252610513.6510 repwgt52 = 252610513.6532 repwgt53 = 252610513.6416 repwgt54 = 252610513.6711 repwgt55 = 252610513.6467 repwgt56 = 252610513.6552 repwgt57 = 252610513.6428 repwgt58 = 252610513.6297 repwgt59 = 252610513.6564 repwgt60 = 252610513.6469 repwgt61 = 252610513.6443 repwgt62 = 252610513.6339 repwgt63 = 252610513.6607 repwgt64 = 252610513.6550 repwgt65 = 252610513.6372 repwgt66 = 252610513.6618 repwgt67 = 252610513.6403 repwgt68 = 252610513.6434 repwgt69 = 252610513.6268 repwgt70 = 252610513.6550 repwgt71 = 252610513.6623 repwgt72 = 252610513.6444 repwgt73 = 252610513.6689 repwgt74 = 252610513.6536 repwgt75 = 252610513.6661 repwgt76 = 252610513.6271 repwgt77 = 252610513.6446 repwgt78 = 252610513.6366 repwgt79 = 252610513.6655 repwgt80 = 252610513.6638 repwgt81 = 252610513.6525 repwgt82 = 252610513.6299 repwgt83 = 252610513.6608 repwgt84 = 252610513.6370 repwgt85 = 252610513.6473 repwgt86 = 252610513.6488 repwgt87 = 252610513.6521 repwgt88 = 252610513.6389 repwgt89 = 252610513.6684 repwgt90 = 252610513.6328 repwgt91 = 252610513.6445 repwgt92 = 252610513.6495 repwgt93 = 252610513.6439 repwgt94 = 252610513.6598 repwgt95 = 252610513.6849 repwgt96 = 252610513.6490 repwgt97 = 252610513.6612 repwgt98 = 252610513.6542 repwgt99 = 252610513.6575 repwgt100 = 252610513.6578 repwgt101 = 252610513.6433 repwgt102 = 252610513.6660 repwgt103 = 252610513.6332 repwgt104 = 252610513.6621 repwgt105 = 252610513.6426 repwgt106 = 252610513.6519 repwgt107 = 252610513.6427 repwgt108 = 252610513.6559 repwgt109 = 252610513.6588 repwgt110 = 252610513.6463 repwgt111 = 252610513.6436 repwgt112 = 252610513.6465 repwgt113 = 252610513.6358 repwgt114 = 252610513.6385 repwgt115 = 252610513.6482 repwgt116 = 252610513.6290 repwgt117 = 252610513.6352 repwgt118 = 252610513.6556 repwgt119 = 252610513.6709 repwgt120 = 252610513.6366 repwgt121 = 252610513.6420 repwgt122 = 252610513.6487 repwgt123 = 252610513.6232 repwgt124 = 252610513.6446 repwgt125 = 252610513.6358 repwgt126 = 252610513.6331 repwgt127 = 252610513.6442 repwgt128 = 252610513.6663 repwgt129 = 252610513.6540 repwgt130 = 252610513.6697 repwgt131 = 252610513.6577 repwgt132 = 252610513.6329 repwgt133 = 252610513.6445 repwgt134 = 252610513.6431 repwgt135 = 252610513.6571 repwgt136 = 252610513.6588 repwgt137 = 252610513.6408 repwgt138 = 252610513.6383 repwgt139 = 252610513.6500 repwgt140 = 252610513.6397 repwgt141 = 252610513.6525 repwgt142 = 252610513.6450 repwgt143 = 252610513.6605 repwgt144 = 252610513.6436 repwgt145 = 252610513.6635 repwgt146 = 252610513.6389 repwgt147 = 252610513.6684 repwgt148 = 252610513.6428 repwgt149 = 252610513.6348 repwgt150 = 252610513.6450 repwgt151 = 252610513.6457 repwgt152 = 252610513.6589 repwgt153 = 252610513.6449 repwgt154 = 252610513.6437 repwgt155 = 252610513.6469 repwgt156 = 252610513.6558 repwgt157 = 252610513.6442 repwgt158 = 252610513.6319 repwgt159 = 252610513.6336 repwgt160 = 252610513.6485 Use these totals to verify that your file is created correctly. */ %macro total; data _null_; retain tot_repwgt0-tot_repwgt160 0; set sas.repwgt_sep2014 end = last; %do i = 0 %to 160; tot_repwgt&i + (repwgt&i/10000); %end; if last then do; file replist; put "&replist"; put 'Sum of replicate weights'; put; %do i = 0 %to 160; put " repwgt&i = " @16 tot_repwgt&i f15.4; %end; end; run; %mend total; %total;