/* cps_volunteer_ascii_srrepwgt_sep2011.sas This code is for documentation of the record layout for the ASCII replicate weight code for the Sep 2011 volunteer Use Non-Response */ filename ipfile "sep11srrep.dat"; %let replist= cps_volunteer_srrepwgt_sep2011.lst; filename replist "&replist"; * Add SAS library; libname sas '.'; data sas.repwgt_sep2011; infile ipfile lrecl=1456 recfm = v; informat repwgt0-repwgt160 10.4; 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; /* SUM of Weights for Verification: All replicate weights, repwgt0 - repwgt160, should be cps_volunteer_srrepwgt_sep2011.lst Sum of replicate weights repwgt0 = 244119734.8810 repwgt1 = 244119734.8656 repwgt2 = 244119734.8875 repwgt3 = 244119734.8765 repwgt4 = 244119734.8886 repwgt5 = 244119734.9177 repwgt6 = 244119734.8951 repwgt7 = 244119734.8885 repwgt8 = 244119734.8815 repwgt9 = 244119734.8997 repwgt10 = 244119734.9061 repwgt11 = 244119734.9044 repwgt12 = 244119734.8702 repwgt13 = 244119734.9116 repwgt14 = 244119734.8857 repwgt15 = 244119734.8802 repwgt16 = 244119734.8713 repwgt17 = 244119734.8923 repwgt18 = 244119734.8823 repwgt19 = 244119734.9006 repwgt20 = 244119734.8899 repwgt21 = 244119734.8922 repwgt22 = 244119734.8951 repwgt23 = 244119734.9034 repwgt24 = 244119734.8797 repwgt25 = 244119734.8838 repwgt26 = 244119734.9028 repwgt27 = 244119734.8650 repwgt28 = 244119734.9063 repwgt29 = 244119734.8877 repwgt30 = 244119734.8919 repwgt31 = 244119734.8872 repwgt32 = 244119734.8853 repwgt33 = 244119734.8921 repwgt34 = 244119734.8926 repwgt35 = 244119734.8748 repwgt36 = 244119734.9061 repwgt37 = 244119734.8916 repwgt38 = 244119734.8921 repwgt39 = 244119734.9004 repwgt40 = 244119734.9002 repwgt41 = 244119734.8730 repwgt42 = 244119734.8893 repwgt43 = 244119734.8848 repwgt44 = 244119734.8860 repwgt45 = 244119734.9089 repwgt46 = 244119734.8881 repwgt47 = 244119734.9078 repwgt48 = 244119734.8988 repwgt49 = 244119734.8957 repwgt50 = 244119734.8954 repwgt51 = 244119734.8888 repwgt52 = 244119734.8952 repwgt53 = 244119734.8747 repwgt54 = 244119734.8718 repwgt55 = 244119734.8891 repwgt56 = 244119734.8923 repwgt57 = 244119734.8991 repwgt58 = 244119734.8771 repwgt59 = 244119734.8890 repwgt60 = 244119734.9033 repwgt61 = 244119734.8999 repwgt62 = 244119734.8991 repwgt63 = 244119734.8860 repwgt64 = 244119734.8828 repwgt65 = 244119734.8975 repwgt66 = 244119734.8896 repwgt67 = 244119734.8785 repwgt68 = 244119734.8867 repwgt69 = 244119734.8982 repwgt70 = 244119734.9130 repwgt71 = 244119734.8976 repwgt72 = 244119734.8841 repwgt73 = 244119734.9005 repwgt74 = 244119734.8867 repwgt75 = 244119734.8803 repwgt76 = 244119734.8946 repwgt77 = 244119734.8744 repwgt78 = 244119734.8953 repwgt79 = 244119734.9028 repwgt80 = 244119734.8979 repwgt81 = 244119734.8772 repwgt82 = 244119734.8636 repwgt83 = 244119734.8842 repwgt84 = 244119734.8896 repwgt85 = 244119734.8952 repwgt86 = 244119734.8923 repwgt87 = 244119734.8862 repwgt88 = 244119734.8805 repwgt89 = 244119734.8803 repwgt90 = 244119734.8928 repwgt91 = 244119734.8865 repwgt92 = 244119734.8971 repwgt93 = 244119734.8953 repwgt94 = 244119734.8725 repwgt95 = 244119734.8909 repwgt96 = 244119734.8819 repwgt97 = 244119734.9023 repwgt98 = 244119734.8813 repwgt99 = 244119734.8915 repwgt100 = 244119734.8812 repwgt101 = 244119734.8853 repwgt102 = 244119734.8937 repwgt103 = 244119734.8777 repwgt104 = 244119734.8971 repwgt105 = 244119734.8730 repwgt106 = 244119734.8935 repwgt107 = 244119734.8952 repwgt108 = 244119734.8876 repwgt109 = 244119734.9038 repwgt110 = 244119734.8783 repwgt111 = 244119734.8847 repwgt112 = 244119734.9076 repwgt113 = 244119734.9013 repwgt114 = 244119734.9081 repwgt115 = 244119734.8960 repwgt116 = 244119734.8716 repwgt117 = 244119734.8727 repwgt118 = 244119734.8769 repwgt119 = 244119734.8934 repwgt120 = 244119734.8843 repwgt121 = 244119734.8780 repwgt122 = 244119734.9041 repwgt123 = 244119734.8783 repwgt124 = 244119734.9131 repwgt125 = 244119734.8834 repwgt126 = 244119734.8958 repwgt127 = 244119734.8931 repwgt128 = 244119734.8817 repwgt129 = 244119734.8865 repwgt130 = 244119734.8990 repwgt131 = 244119734.9124 repwgt132 = 244119734.8946 repwgt133 = 244119734.9004 repwgt134 = 244119734.8793 repwgt135 = 244119734.8921 repwgt136 = 244119734.8805 repwgt137 = 244119734.8945 repwgt138 = 244119734.8896 repwgt139 = 244119734.8895 repwgt140 = 244119734.8837 repwgt141 = 244119734.8911 repwgt142 = 244119734.9038 repwgt143 = 244119734.9036 repwgt144 = 244119734.9037 repwgt145 = 244119734.8931 repwgt146 = 244119734.8887 repwgt147 = 244119734.8952 repwgt148 = 244119734.8983 repwgt149 = 244119734.8995 repwgt150 = 244119734.9032 repwgt151 = 244119734.9093 repwgt152 = 244119734.9079 repwgt153 = 244119734.8812 repwgt154 = 244119734.8671 repwgt155 = 244119734.8987 repwgt156 = 244119734.8902 repwgt157 = 244119734.8857 repwgt158 = 244119734.8939 repwgt159 = 244119734.8920 repwgt160 = 244119734.9068 Use these totals to verify that your file is created correctly. */ %macro total; data _null_; retain tot_repwgt0-tot_repwgt160 0; set sas.repwgt_sep2011 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;