/* oct12_repwgt.sas This code is for documentation of the record layout for the ASCII replicate weight code for the 2012 School Enrollment. */ filename ipfile "oct12repwgt.dat"; %let replist=OCT12_REPWGT.LST; filename replist "&replist"; *Add SAS library; libname sas '.'; data repwgt_oct2012; infile ipfile lrecl = 1456 recfm = v ; input qstnum 1-5 occurnum 6-7 repwgt0 8 -16 repwgt1 17 -25 repwgt2 26 -34 repwgt3 35 -43 repwgt4 44 -52 repwgt5 53 -61 repwgt6 62 -70 repwgt7 71 -79 repwgt8 80 -88 repwgt9 89 -97 repwgt10 98 -106 repwgt11 107 -115 repwgt12 116 -124 repwgt13 125 -133 repwgt14 134 -142 repwgt15 143 -151 repwgt16 152 -160 repwgt17 161 -169 repwgt18 170 -178 repwgt19 179 -187 repwgt20 188 -196 repwgt21 197 -205 repwgt22 206 -214 repwgt23 215 -223 repwgt24 224 -232 repwgt25 233 -241 repwgt26 242 -250 repwgt27 251 -259 repwgt28 260 -268 repwgt29 269 -277 repwgt30 278 -286 repwgt31 287 -295 repwgt32 296 -304 repwgt33 305 -313 repwgt34 314 -322 repwgt35 323 -331 repwgt36 332 -340 repwgt37 341 -349 repwgt38 350 -358 repwgt39 359 -367 repwgt40 368 -376 repwgt41 377 -385 repwgt42 386 -394 repwgt43 395 -403 repwgt44 404 -412 repwgt45 413 -421 repwgt46 422 -430 repwgt47 431 -439 repwgt48 440 -448 repwgt49 449 -457 repwgt50 458 -466 repwgt51 467 -475 repwgt52 476 -484 repwgt53 485 -493 repwgt54 494 -502 repwgt55 503 -511 repwgt56 512 -520 repwgt57 521 -529 repwgt58 530 -538 repwgt59 539 -547 repwgt60 548 -556 repwgt61 557 -565 repwgt62 566 -574 repwgt63 575 -583 repwgt64 584 -592 repwgt65 593 -601 repwgt66 602 -610 repwgt67 611 -619 repwgt68 620 -628 repwgt69 629 -637 repwgt70 638 -646 repwgt71 647 -655 repwgt72 656 -664 repwgt73 665 -673 repwgt74 674 -682 repwgt75 683 -691 repwgt76 692 -700 repwgt77 701 -709 repwgt78 710 -718 repwgt79 719 -727 repwgt80 728 -736 repwgt81 737 -745 repwgt82 746 -754 repwgt83 755 -763 repwgt84 764 -772 repwgt85 773 -781 repwgt86 782 -790 repwgt87 791 -799 repwgt88 800 -808 repwgt89 809 -817 repwgt90 818 -826 repwgt91 827 -835 repwgt92 836 -844 repwgt93 845 -853 repwgt94 854 -862 repwgt95 863 -871 repwgt96 872 -880 repwgt97 881 -889 repwgt98 890 -898 repwgt99 899 -907 repwgt100 908 -916 repwgt101 917 -925 repwgt102 926 -934 repwgt103 935 -943 repwgt104 944 -952 repwgt105 953 -961 repwgt106 962 -970 repwgt107 971 -979 repwgt108 980 -988 repwgt109 989 -997 repwgt110 998 -1006 repwgt111 1007 -1015 repwgt112 1016 -1024 repwgt113 1025 -1033 repwgt114 1034 -1042 repwgt115 1043 -1051 repwgt116 1052 -1060 repwgt117 1061 -1069 repwgt118 1070 -1078 repwgt119 1079 -1087 repwgt120 1088 -1096 repwgt121 1097 -1105 repwgt122 1106 -1114 repwgt123 1115 -1123 repwgt124 1124 -1132 repwgt125 1133 -1141 repwgt126 1142 -1150 repwgt127 1151 -1159 repwgt128 1160 -1168 repwgt129 1169 -1177 repwgt130 1178 -1186 repwgt131 1187 -1195 repwgt132 1196 -1204 repwgt133 1205 -1213 repwgt134 1214 -1222 repwgt135 1223 -1231 repwgt136 1232 -1240 repwgt137 1241 -1249 repwgt138 1250 -1258 repwgt139 1259 -1267 repwgt140 1268 -1276 repwgt141 1277 -1285 repwgt142 1286 -1294 repwgt143 1295 -1303 repwgt144 1304 -1312 repwgt145 1313 -1321 repwgt146 1322 -1330 repwgt147 1331 -1339 repwgt148 1340 -1348 repwgt149 1349 -1357 repwgt150 1358 -1366 repwgt151 1367 -1375 repwgt152 1376 -1384 repwgt153 1385 -1393 repwgt154 1394 -1402 repwgt155 1403 -1411 repwgt156 1412 -1420 repwgt157 1421 -1429 repwgt158 1430 -1438 repwgt159 1439 -1447 repwgt160 1448 -1456 ; run; data sas.repwgt_oct2012; array wt(0:160) repwgt0-repwgt160; set repwgt_oct2012; drop i; /* 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_SCHOOLENROLLMENT_REPWGT_OCT2012.LST and should appear the same as the following: Use these totals to verify that your file is created correctly. Sum of replicate weights repwgt0 = 309278382.0128 repwgt1 = 309263248.9410 repwgt2 = 309300889.3438 repwgt3 = 309304536.0585 repwgt4 = 309233582.4621 repwgt5 = 309255630.5399 repwgt6 = 309247195.3455 repwgt7 = 309236209.1899 repwgt8 = 309293324.5298 repwgt9 = 309222565.1568 repwgt10 = 309266773.9005 repwgt11 = 309231337.3524 repwgt12 = 309276278.3761 repwgt13 = 309220380.6678 repwgt14 = 309345039.8325 repwgt15 = 309234644.4621 repwgt16 = 309270965.8780 repwgt17 = 309283965.0745 repwgt18 = 309280938.8429 repwgt19 = 309265429.7402 repwgt20 = 309238503.0696 repwgt21 = 309261183.7668 repwgt22 = 309222204.0455 repwgt23 = 309302893.9063 repwgt24 = 309259332.0724 repwgt25 = 309233559.8160 repwgt26 = 309224823.4889 repwgt27 = 309298843.4636 repwgt28 = 309215021.5609 repwgt29 = 309270155.0770 repwgt30 = 309244173.3996 repwgt31 = 309245428.8678 repwgt32 = 309266039.9329 repwgt33 = 309300460.9094 repwgt34 = 309273934.2894 repwgt35 = 309260504.3151 repwgt36 = 309309010.4910 repwgt37 = 309263940.4364 repwgt38 = 309238774.7595 repwgt39 = 309303712.3309 repwgt40 = 309282342.6246 repwgt41 = 309254935.2623 repwgt42 = 309256652.8649 repwgt43 = 309276256.6634 repwgt44 = 309259344.9399 repwgt45 = 309275987.5484 repwgt46 = 309237107.4865 repwgt47 = 309277627.4354 repwgt48 = 309308426.2719 repwgt49 = 309236387.9924 repwgt50 = 309294833.7620 repwgt51 = 309276234.3628 repwgt52 = 309293262.7345 repwgt53 = 309263384.0184 repwgt54 = 309243282.2780 repwgt55 = 309280307.3696 repwgt56 = 309277646.3016 repwgt57 = 309227573.9328 repwgt58 = 309246893.9394 repwgt59 = 309288160.7765 repwgt60 = 309265415.9273 repwgt61 = 309267448.1046 repwgt62 = 309275955.8684 repwgt63 = 309251884.1732 repwgt64 = 309256967.7592 repwgt65 = 309255281.2094 repwgt66 = 309227541.9787 repwgt67 = 309239019.8355 repwgt68 = 309243052.5662 repwgt69 = 309306489.4036 repwgt70 = 309276747.1077 repwgt71 = 309284666.4775 repwgt72 = 309290097.7170 repwgt73 = 309247291.9430 repwgt74 = 309265428.3100 repwgt75 = 309279726.7583 repwgt76 = 309223419.0170 repwgt77 = 309253776.3486 repwgt78 = 309257426.6345 repwgt79 = 309243099.1080 repwgt80 = 309310363.9039 repwgt81 = 309271773.7884 repwgt82 = 309254725.0867 repwgt83 = 309293192.2430 repwgt84 = 309300554.2842 repwgt85 = 309302337.1504 repwgt86 = 309221337.2642 repwgt87 = 309250124.6593 repwgt88 = 309231511.4720 repwgt89 = 309272908.4854 repwgt90 = 309232289.4535 repwgt91 = 309279348.1301 repwgt92 = 309248348.2629 repwgt93 = 309178845.5018 repwgt94 = 309267558.5405 repwgt95 = 309277013.1840 repwgt96 = 309297264.7806 repwgt97 = 309296736.7277 repwgt98 = 309292323.3243 repwgt99 = 309284780.0270 repwgt100 = 309298769.0348 repwgt101 = 309260962.1150 repwgt102 = 309238153.1602 repwgt103 = 309261724.5766 repwgt104 = 309244608.5755 repwgt105 = 309231706.5033 repwgt106 = 309253736.7341 repwgt107 = 309291470.4776 repwgt108 = 309261110.3205 repwgt109 = 309259065.0058 repwgt110 = 309244867.2934 repwgt111 = 309238312.3056 repwgt112 = 309258840.9847 repwgt113 = 309269840.2019 repwgt114 = 309255812.7651 repwgt115 = 309230249.5101 repwgt116 = 309268343.3958 repwgt117 = 309278105.0212 repwgt118 = 309274570.0702 repwgt119 = 309248393.1204 repwgt120 = 309290270.4728 repwgt121 = 309251836.5057 repwgt122 = 309254741.5144 repwgt123 = 309236290.6138 repwgt124 = 309309541.1751 repwgt125 = 309293868.6141 repwgt126 = 309261024.0922 repwgt127 = 309247997.1865 repwgt128 = 309249661.4463 repwgt129 = 309281802.1012 repwgt130 = 309287266.6492 repwgt131 = 309285364.9846 repwgt132 = 309243859.7531 repwgt133 = 309237262.8291 repwgt134 = 309235502.3959 repwgt135 = 309252680.2642 repwgt136 = 309269319.8281 repwgt137 = 309270083.6952 repwgt138 = 309242152.4270 repwgt139 = 309235180.0704 repwgt140 = 309216645.5743 repwgt141 = 309270652.6842 repwgt142 = 309279578.9575 repwgt143 = 309309464.4533 repwgt144 = 309270814.3319 repwgt145 = 309252435.4856 repwgt146 = 309257757.4014 repwgt147 = 309263823.7239 repwgt148 = 309287490.4242 repwgt149 = 309242302.5917 repwgt150 = 309302370.1179 repwgt151 = 309282243.2677 repwgt152 = 309276716.6133 repwgt153 = 309276543.5055 repwgt154 = 309279351.3998 repwgt155 = 309250927.9005 repwgt156 = 309250909.7925 repwgt157 = 309259708.2876 repwgt158 = 309291832.9054 repwgt159 = 309261072.2732 repwgt160 = 309279537.3862 */ %macro total; data _null_; retain tot_repwgt0-tot_repwgt160 0; set sas.repwgt_oct2012 end = last; %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;