/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2012 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2012.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2012.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2012; infile link lrecl=1456; input @1 pwwgt0 f9.4 @10 pwwgt1 f9.4 @19 pwwgt2 f9.4 @28 pwwgt3 f9.4 @37 pwwgt4 f9.4 @46 pwwgt5 f9.4 @55 pwwgt6 f9.4 @64 pwwgt7 f9.4 @73 pwwgt8 f9.4 @82 pwwgt9 f9.4 @91 pwwgt10 f9.4 @100 pwwgt11 f9.4 @109 pwwgt12 f9.4 @118 pwwgt13 f9.4 @127 pwwgt14 f9.4 @136 pwwgt15 f9.4 @145 pwwgt16 f9.4 @154 pwwgt17 f9.4 @163 pwwgt18 f9.4 @172 pwwgt19 f9.4 @181 pwwgt20 f9.4 @190 pwwgt21 f9.4 @199 pwwgt22 f9.4 @208 pwwgt23 f9.4 @217 pwwgt24 f9.4 @226 pwwgt25 f9.4 @235 pwwgt26 f9.4 @244 pwwgt27 f9.4 @253 pwwgt28 f9.4 @262 pwwgt29 f9.4 @271 pwwgt30 f9.4 @280 pwwgt31 f9.4 @289 pwwgt32 f9.4 @298 pwwgt33 f9.4 @307 pwwgt34 f9.4 @316 pwwgt35 f9.4 @325 pwwgt36 f9.4 @334 pwwgt37 f9.4 @343 pwwgt38 f9.4 @352 pwwgt39 f9.4 @361 pwwgt40 f9.4 @370 pwwgt41 f9.4 @379 pwwgt42 f9.4 @388 pwwgt43 f9.4 @397 pwwgt44 f9.4 @406 pwwgt45 f9.4 @415 pwwgt46 f9.4 @424 pwwgt47 f9.4 @433 pwwgt48 f9.4 @442 pwwgt49 f9.4 @451 pwwgt50 f9.4 @460 pwwgt51 f9.4 @469 pwwgt52 f9.4 @478 pwwgt53 f9.4 @487 pwwgt54 f9.4 @496 pwwgt55 f9.4 @505 pwwgt56 f9.4 @514 pwwgt57 f9.4 @523 pwwgt58 f9.4 @532 pwwgt59 f9.4 @541 pwwgt60 f9.4 @550 pwwgt61 f9.4 @559 pwwgt62 f9.4 @568 pwwgt63 f9.4 @577 pwwgt64 f9.4 @586 pwwgt65 f9.4 @595 pwwgt66 f9.4 @604 pwwgt67 f9.4 @613 pwwgt68 f9.4 @622 pwwgt69 f9.4 @631 pwwgt70 f9.4 @640 pwwgt71 f9.4 @649 pwwgt72 f9.4 @658 pwwgt73 f9.4 @667 pwwgt74 f9.4 @676 pwwgt75 f9.4 @685 pwwgt76 f9.4 @694 pwwgt77 f9.4 @703 pwwgt78 f9.4 @712 pwwgt79 f9.4 @721 pwwgt80 f9.4 @730 pwwgt81 f9.4 @739 pwwgt82 f9.4 @748 pwwgt83 f9.4 @757 pwwgt84 f9.4 @766 pwwgt85 f9.4 @775 pwwgt86 f9.4 @784 pwwgt87 f9.4 @793 pwwgt88 f9.4 @802 pwwgt89 f9.4 @811 pwwgt90 f9.4 @820 pwwgt91 f9.4 @829 pwwgt92 f9.4 @838 pwwgt93 f9.4 @847 pwwgt94 f9.4 @856 pwwgt95 f9.4 @865 pwwgt96 f9.4 @874 pwwgt97 f9.4 @883 pwwgt98 f9.4 @892 pwwgt99 f9.4 @901 pwwgt100 f9.4 @910 pwwgt101 f9.4 @919 pwwgt102 f9.4 @928 pwwgt103 f9.4 @937 pwwgt104 f9.4 @946 pwwgt105 f9.4 @955 pwwgt106 f9.4 @964 pwwgt107 f9.4 @973 pwwgt108 f9.4 @982 pwwgt109 f9.4 @991 pwwgt110 f9.4 @1000 pwwgt111 f9.4 @1009 pwwgt112 f9.4 @1018 pwwgt113 f9.4 @1027 pwwgt114 f9.4 @1036 pwwgt115 f9.4 @1045 pwwgt116 f9.4 @1054 pwwgt117 f9.4 @1063 pwwgt118 f9.4 @1072 pwwgt119 f9.4 @1081 pwwgt120 f9.4 @1090 pwwgt121 f9.4 @1099 pwwgt122 f9.4 @1108 pwwgt123 f9.4 @1117 pwwgt124 f9.4 @1126 pwwgt125 f9.4 @1135 pwwgt126 f9.4 @1144 pwwgt127 f9.4 @1153 pwwgt128 f9.4 @1162 pwwgt129 f9.4 @1171 pwwgt130 f9.4 @1180 pwwgt131 f9.4 @1189 pwwgt132 f9.4 @1198 pwwgt133 f9.4 @1207 pwwgt134 f9.4 @1216 pwwgt135 f9.4 @1225 pwwgt136 f9.4 @1234 pwwgt137 f9.4 @1243 pwwgt138 f9.4 @1252 pwwgt139 f9.4 @1261 pwwgt140 f9.4 @1270 pwwgt141 f9.4 @1279 pwwgt142 f9.4 @1288 pwwgt143 f9.4 @1297 pwwgt144 f9.4 @1306 pwwgt145 f9.4 @1315 pwwgt146 f9.4 @1324 pwwgt147 f9.4 @1333 pwwgt148 f9.4 @1342 pwwgt149 f9.4 @1351 pwwgt150 f9.4 @1360 pwwgt151 f9.4 @1369 pwwgt152 f9.4 @1378 pwwgt153 f9.4 @1387 pwwgt154 f9.4 @1396 pwwgt155 f9.4 @1405 pwwgt156 f9.4 @1414 pwwgt157 f9.4 @1423 pwwgt158 f9.4 @1432 pwwgt159 f9.4 @1441 pwwgt160 f9.4 @1450 h_seq f5.0 @1455 pppos $char2.; run; /* SUM of Weights for Verification: All replicate weights, PWWGT0 - PWWGT160, should be slightly different due to the inclusion of Armed Forces members in the ASEC estimates. Use these totals to verify that your file is created correctly. PWWGT0 = 308827249.0062 PWWGT1 = 308822629.5408 PWWGT2 = 308891210.6767 PWWGT3 = 308812832.9730 PWWGT4 = 308813848.2597 PWWGT5 = 308877392.8004 PWWGT6 = 308853560.0343 PWWGT7 = 308837528.7721 PWWGT8 = 308805367.7290 PWWGT9 = 308787570.2889 PWWGT10 = 308887669.8614 PWWGT11 = 308804530.5495 PWWGT12 = 308802775.3600 PWWGT13 = 308822444.8769 PWWGT14 = 308832347.7250 PWWGT15 = 308826502.7593 PWWGT16 = 308812372.4023 PWWGT17 = 308833145.6833 PWWGT18 = 308878632.4790 PWWGT19 = 308752889.9112 PWWGT20 = 308800251.4579 PWWGT21 = 308862695.7306 PWWGT22 = 308842611.5271 PWWGT23 = 308798435.9014 PWWGT24 = 308773800.6055 PWWGT25 = 308864869.2479 PWWGT26 = 308888970.2455 PWWGT27 = 308809630.7316 PWWGT28 = 308875827.3439 PWWGT29 = 308755859.6904 PWWGT30 = 308815376.5427 PWWGT31 = 308824229.8367 PWWGT32 = 308865678.5784 PWWGT33 = 308896003.1143 PWWGT34 = 308767456.0504 PWWGT35 = 308864386.1654 PWWGT36 = 308850681.3773 PWWGT37 = 308806143.2584 PWWGT38 = 308786460.7283 PWWGT39 = 308848184.9588 PWWGT40 = 308853795.8035 PWWGT41 = 308845639.4784 PWWGT42 = 308865367.2466 PWWGT43 = 308813745.5854 PWWGT44 = 308866606.7963 PWWGT45 = 308816032.6354 PWWGT46 = 308866129.0676 PWWGT47 = 308809307.2980 PWWGT48 = 308776820.1018 PWWGT49 = 308818719.1857 PWWGT50 = 308836895.1711 PWWGT51 = 308803743.6471 PWWGT52 = 308777863.8251 PWWGT53 = 308811784.0298 PWWGT54 = 308829377.7483 PWWGT55 = 308873535.0386 PWWGT56 = 308820509.1004 PWWGT57 = 308876694.2976 PWWGT58 = 308829408.5338 PWWGT59 = 308803752.6184 PWWGT60 = 308751885.8283 PWWGT61 = 308847449.1723 PWWGT62 = 308828081.3345 PWWGT63 = 308820189.6765 PWWGT64 = 308773555.4067 PWWGT65 = 308891613.4243 PWWGT66 = 308821692.7746 PWWGT67 = 308763428.5335 PWWGT68 = 308820477.2040 PWWGT69 = 308823991.1741 PWWGT70 = 308793386.6063 PWWGT71 = 308858354.1066 PWWGT72 = 308822592.7464 PWWGT73 = 308881704.1258 PWWGT74 = 308771198.8361 PWWGT75 = 308829392.6336 PWWGT76 = 308824005.1298 PWWGT77 = 308804258.6684 PWWGT78 = 308760783.0464 PWWGT79 = 308887485.5005 PWWGT80 = 308816721.9204 PWWGT81 = 308851716.9875 PWWGT82 = 308826703.7457 PWWGT83 = 308724312.0966 PWWGT84 = 308813203.9227 PWWGT85 = 308828863.6749 PWWGT86 = 308874527.2289 PWWGT87 = 308824076.4005 PWWGT88 = 308844481.6919 PWWGT89 = 308794194.3414 PWWGT90 = 308874099.3534 PWWGT91 = 308880874.8376 PWWGT92 = 308798480.1684 PWWGT93 = 308838970.4472 PWWGT94 = 308759610.0709 PWWGT95 = 308781723.6360 PWWGT96 = 308831531.7172 PWWGT97 = 308859551.5962 PWWGT98 = 308795120.7519 PWWGT99 = 308798227.9951 PWWGT100 = 308836620.3076 PWWGT101 = 308812776.1808 PWWGT102 = 308878152.3161 PWWGT103 = 308808797.4073 PWWGT104 = 308781256.9489 PWWGT105 = 308870108.6937 PWWGT106 = 308820507.8514 PWWGT107 = 308882664.7038 PWWGT108 = 308773497.1524 PWWGT109 = 308790211.0215 PWWGT110 = 308777123.0482 PWWGT111 = 308823416.1694 PWWGT112 = 308836443.7007 PWWGT113 = 308789039.5216 PWWGT114 = 308820433.5789 PWWGT115 = 308865845.2749 PWWGT116 = 308879952.3029 PWWGT117 = 308849330.7515 PWWGT118 = 308843148.8397 PWWGT119 = 308783122.7259 PWWGT120 = 308810175.0484 PWWGT121 = 308892823.6212 PWWGT122 = 308861443.5109 PWWGT123 = 308814276.8285 PWWGT124 = 308830998.9478 PWWGT125 = 308807306.7756 PWWGT126 = 308891370.4725 PWWGT127 = 308767936.6628 PWWGT128 = 308799160.3580 PWWGT129 = 308828558.3389 PWWGT130 = 308824060.2058 PWWGT131 = 308846514.3199 PWWGT132 = 308811487.6320 PWWGT133 = 308859113.0826 PWWGT134 = 308810859.4093 PWWGT135 = 308857996.2989 PWWGT136 = 308836768.7311 PWWGT137 = 308852486.7936 PWWGT138 = 308806990.1695 PWWGT139 = 308832903.3485 PWWGT140 = 308805899.0181 PWWGT141 = 308835320.3207 PWWGT142 = 308874349.5529 PWWGT143 = 308877781.6156 PWWGT144 = 308808052.1361 PWWGT145 = 308880932.2929 PWWGT146 = 308799806.5266 PWWGT147 = 308799163.6883 PWWGT148 = 308772284.5892 PWWGT149 = 308844014.7374 PWWGT150 = 308754068.7018 PWWGT151 = 308848688.4682 PWWGT152 = 308778042.8604 PWWGT153 = 308829878.8069 PWWGT154 = 308836530.2120 PWWGT155 = 308868845.4018 PWWGT156 = 308837319.8844 PWWGT157 = 308862122.9998 PWWGT158 = 308847679.9969 PWWGT159 = 308798926.0816 PWWGT160 = 308809490.4416 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2012 end = last; %do i = 0 %to 160; tot_pwwgt&i + pwwgt&i; %end; if last then do; file replist; put 'Sum of replicate weights'; put; %do i = 0 %to 160; put " PWWGT&i = " @16 tot_pwwgt&i f15.4; %end; end; run; %mend total; %total;