/* cps_aabs_repwgt_feb14.sas This code is for documentation of the record layout for the ASCII replicate weight code for the FEB 2014 Annual Arts Benchmark Survey. */ /* Enter filepath and name of ASCII replicate file */ filename ipfile "feb14rep.dat"; /* Name of output listing */ %let replist=CPS_AABS_FEB14REPWGT.LST; filename replist "&replist"; /* Enter SAS library [filepath] to store SAS dataset output of the converted ASCII file */ *Add SAS library; libname sas '.'; /* Read in ASCII file and convert to SAS dataset */ data sas.rep_feb14; INFILE ipfile lrecl = 1617 recfm = v ; array wt(0:160) repwgt0-repwgt160; drop i; 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 398 -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 698 -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 ; /* ASCII weights has 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_AABS_FEB14REPWGT.LST Sum of replicate weights repwgt0 = 238832296.0013 repwgt1 = 238832296.0013 repwgt2 = 238832296.0002 repwgt3 = 238832296.0024 repwgt4 = 238832295.9999 repwgt5 = 238832296.0005 repwgt6 = 238832295.9968 repwgt7 = 238832295.9999 repwgt8 = 238832296.0012 repwgt9 = 238832296.0034 repwgt10 = 238832295.9912 repwgt11 = 238832295.9960 repwgt12 = 238832295.9936 repwgt13 = 238832296.0007 repwgt14 = 238832295.9973 repwgt15 = 238832295.9902 repwgt16 = 238832296.0008 repwgt17 = 238832296.0045 repwgt18 = 238832295.9957 repwgt19 = 238832295.9960 repwgt20 = 238832295.9958 repwgt21 = 238832295.9986 repwgt22 = 238832295.9958 repwgt23 = 238832296.0010 repwgt24 = 238832296.0033 repwgt25 = 238832296.0009 repwgt26 = 238832296.0069 repwgt27 = 238832295.9989 repwgt28 = 238832295.9980 repwgt29 = 238832296.0078 repwgt30 = 238832296.0037 repwgt31 = 238832296.0069 repwgt32 = 238832295.9975 repwgt33 = 238832295.9976 repwgt34 = 238832295.9952 repwgt35 = 238832296.0025 repwgt36 = 238832296.0015 repwgt37 = 238832296.0026 repwgt38 = 238832295.9989 repwgt39 = 238832296.0002 repwgt40 = 238832295.9999 repwgt41 = 238832295.9939 repwgt42 = 238832296.0015 repwgt43 = 238832295.9964 repwgt44 = 238832296.0022 repwgt45 = 238832296.0091 repwgt46 = 238832296.0037 repwgt47 = 238832295.9989 repwgt48 = 238832296.0068 repwgt49 = 238832295.9980 repwgt50 = 238832295.9958 repwgt51 = 238832295.9954 repwgt52 = 238832295.9973 repwgt53 = 238832295.9877 repwgt54 = 238832296.0017 repwgt55 = 238832295.9975 repwgt56 = 238832295.9986 repwgt57 = 238832295.9930 repwgt58 = 238832296.0087 repwgt59 = 238832295.9969 repwgt60 = 238832295.9983 repwgt61 = 238832296.0043 repwgt62 = 238832295.9998 repwgt63 = 238832295.9972 repwgt64 = 238832295.9967 repwgt65 = 238832295.9972 repwgt66 = 238832296.0007 repwgt67 = 238832295.9959 repwgt68 = 238832295.9869 repwgt69 = 238832295.9949 repwgt70 = 238832295.9922 repwgt71 = 238832296.0034 repwgt72 = 238832295.9986 repwgt73 = 238832296.0074 repwgt74 = 238832295.9980 repwgt75 = 238832296.0034 repwgt76 = 238832296.0022 repwgt77 = 238832296.0057 repwgt78 = 238832296.0038 repwgt79 = 238832296.0016 repwgt80 = 238832295.9975 repwgt81 = 238832295.9912 repwgt82 = 238832295.9933 repwgt83 = 238832296.0052 repwgt84 = 238832296.0002 repwgt85 = 238832296.0003 repwgt86 = 238832295.9929 repwgt87 = 238832296.0009 repwgt88 = 238832296.0001 repwgt89 = 238832296.0017 repwgt90 = 238832295.9982 repwgt91 = 238832295.9978 repwgt92 = 238832296.0045 repwgt93 = 238832296.0074 repwgt94 = 238832296.0037 repwgt95 = 238832295.9999 repwgt96 = 238832296.0002 repwgt97 = 238832296.0023 repwgt98 = 238832296.0003 repwgt99 = 238832296.0040 repwgt100 = 238832296.0029 repwgt101 = 238832295.9977 repwgt102 = 238832296.0033 repwgt103 = 238832296.0080 repwgt104 = 238832295.9947 repwgt105 = 238832295.9981 repwgt106 = 238832296.0034 repwgt107 = 238832295.9994 repwgt108 = 238832295.9986 repwgt109 = 238832296.0047 repwgt110 = 238832296.0049 repwgt111 = 238832296.0048 repwgt112 = 238832296.0024 repwgt113 = 238832295.9972 repwgt114 = 238832295.9992 repwgt115 = 238832296.0030 repwgt116 = 238832296.0038 repwgt117 = 238832295.9984 repwgt118 = 238832295.9928 repwgt119 = 238832295.9942 repwgt120 = 238832295.9955 repwgt121 = 238832296.0054 repwgt122 = 238832296.0045 repwgt123 = 238832295.9900 repwgt124 = 238832296.0006 repwgt125 = 238832296.0002 repwgt126 = 238832296.0007 repwgt127 = 238832296.0031 repwgt128 = 238832296.0011 repwgt129 = 238832295.9981 repwgt130 = 238832296.0022 repwgt131 = 238832296.0009 repwgt132 = 238832295.9973 repwgt133 = 238832296.0049 repwgt134 = 238832296.0015 repwgt135 = 238832296.0082 repwgt136 = 238832296.0041 repwgt137 = 238832295.9983 repwgt138 = 238832295.9946 repwgt139 = 238832295.9957 repwgt140 = 238832295.9976 repwgt141 = 238832296.0012 repwgt142 = 238832296.0025 repwgt143 = 238832296.0030 repwgt144 = 238832296.0005 repwgt145 = 238832295.9965 repwgt146 = 238832296.0000 repwgt147 = 238832296.0027 repwgt148 = 238832296.0042 repwgt149 = 238832296.0000 repwgt150 = 238832295.9968 repwgt151 = 238832296.0000 repwgt152 = 238832295.9973 repwgt153 = 238832295.9958 repwgt154 = 238832296.0067 repwgt155 = 238832295.9974 repwgt156 = 238832295.9994 repwgt157 = 238832295.9936 repwgt158 = 238832295.9959 repwgt159 = 238832295.9982 repwgt160 = 238832295.9939 Use these totals to verify that your file is created correctly. */ %macro total; data _null_; set sas.rep_feb14 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 '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;