/* This code is for documentation of the record layout for the ASCII replicate weight code for the 2009 ASEC Data */ filename link 'CPS_ASEC_ASCII_REPWGT_2009.DAT'; filename replist 'CPS_ASEC_ASCII_REPWGT_2009.LST'; * Add SAS library; libname sas '.'; data sas.repwgt_2009; 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 = 301482818.6221 PWWGT1 = 301475379.9198 PWWGT2 = 301465131.6410 PWWGT3 = 301453254.7807 PWWGT4 = 301505649.6077 PWWGT5 = 301528654.0763 PWWGT6 = 301445151.6869 PWWGT7 = 301469298.0182 PWWGT8 = 301473918.4324 PWWGT9 = 301500009.8908 PWWGT10 = 301445492.1128 PWWGT11 = 301502592.5371 PWWGT12 = 301487848.1845 PWWGT13 = 301517895.1013 PWWGT14 = 301496038.2647 PWWGT15 = 301478718.3576 PWWGT16 = 301469967.9814 PWWGT17 = 301496364.7559 PWWGT18 = 301522468.9196 PWWGT19 = 301425832.1147 PWWGT20 = 301426626.4248 PWWGT21 = 301531730.1041 PWWGT22 = 301483140.2754 PWWGT23 = 301437306.2867 PWWGT24 = 301405953.5752 PWWGT25 = 301454114.7802 PWWGT26 = 301506026.4586 PWWGT27 = 301435035.2208 PWWGT28 = 301494149.1170 PWWGT29 = 301404689.7115 PWWGT30 = 301493281.4257 PWWGT31 = 301549374.9796 PWWGT32 = 301498420.2053 PWWGT33 = 301554146.5008 PWWGT34 = 301393392.5981 PWWGT35 = 301519875.6532 PWWGT36 = 301550669.8994 PWWGT37 = 301492064.1236 PWWGT38 = 301458617.6449 PWWGT39 = 301519283.8335 PWWGT40 = 301511114.0589 PWWGT41 = 301482132.7858 PWWGT42 = 301531824.6387 PWWGT43 = 301492825.8377 PWWGT44 = 301531352.0286 PWWGT45 = 301521627.9280 PWWGT46 = 301498612.2498 PWWGT47 = 301510149.0592 PWWGT48 = 301453358.6521 PWWGT49 = 301521569.0562 PWWGT50 = 301453364.3047 PWWGT51 = 301480023.6582 PWWGT52 = 301436951.0005 PWWGT53 = 301476981.1012 PWWGT54 = 301486076.6576 PWWGT55 = 301497733.2783 PWWGT56 = 301437158.7242 PWWGT57 = 301506215.2414 PWWGT58 = 301535779.4093 PWWGT59 = 301440078.4998 PWWGT60 = 301432485.2875 PWWGT61 = 301509153.7661 PWWGT62 = 301466029.4007 PWWGT63 = 301489745.1460 PWWGT64 = 301440018.5511 PWWGT65 = 301454367.9986 PWWGT66 = 301490571.4366 PWWGT67 = 301455701.5369 PWWGT68 = 301478927.7829 PWWGT69 = 301448969.2270 PWWGT70 = 301480772.7466 PWWGT71 = 301512817.2145 PWWGT72 = 301457030.7636 PWWGT73 = 301505923.9995 PWWGT74 = 301452482.4036 PWWGT75 = 301523906.2010 PWWGT76 = 301520444.0206 PWWGT77 = 301462446.8218 PWWGT78 = 301444490.7041 PWWGT79 = 301509679.7499 PWWGT80 = 301494969.4580 PWWGT81 = 301505987.4666 PWWGT82 = 301428550.5240 PWWGT83 = 301374834.9584 PWWGT84 = 301485566.3877 PWWGT85 = 301487692.3965 PWWGT86 = 301501562.2426 PWWGT87 = 301471840.5675 PWWGT88 = 301518633.9427 PWWGT89 = 301431109.1222 PWWGT90 = 301492120.6641 PWWGT91 = 301543263.3795 PWWGT92 = 301499326.3249 PWWGT93 = 301542298.7424 PWWGT94 = 301455871.0264 PWWGT95 = 301397941.9534 PWWGT96 = 301543753.5788 PWWGT97 = 301489004.0143 PWWGT98 = 301484934.3690 PWWGT99 = 301455317.8187 PWWGT100 = 301504646.0121 PWWGT101 = 301471069.1511 PWWGT102 = 301506995.3441 PWWGT103 = 301497588.5418 PWWGT104 = 301466724.7912 PWWGT105 = 301535098.7889 PWWGT106 = 301468156.2470 PWWGT107 = 301549108.2016 PWWGT108 = 301436254.2227 PWWGT109 = 301460779.2424 PWWGT110 = 301448346.3206 PWWGT111 = 301457166.9925 PWWGT112 = 301443188.6458 PWWGT113 = 301492791.0442 PWWGT114 = 301504475.4258 PWWGT115 = 301545911.2939 PWWGT116 = 301497703.5548 PWWGT117 = 301512622.1283 PWWGT118 = 301518016.4711 PWWGT119 = 301463735.0074 PWWGT120 = 301457390.8003 PWWGT121 = 301548070.3007 PWWGT122 = 301488245.1362 PWWGT123 = 301427196.9353 PWWGT124 = 301432365.1632 PWWGT125 = 301442643.3094 PWWGT126 = 301492834.7005 PWWGT127 = 301436209.5004 PWWGT128 = 301508400.0514 PWWGT129 = 301443684.7127 PWWGT130 = 301494904.7310 PWWGT131 = 301502503.4572 PWWGT132 = 301458034.8275 PWWGT133 = 301524355.5054 PWWGT134 = 301491446.4008 PWWGT135 = 301486980.2576 PWWGT136 = 301497042.9548 PWWGT137 = 301470178.3989 PWWGT138 = 301501467.6615 PWWGT139 = 301466295.3337 PWWGT140 = 301488430.1120 PWWGT141 = 301467114.3814 PWWGT142 = 301551025.6966 PWWGT143 = 301556586.2270 PWWGT144 = 301462810.2593 PWWGT145 = 301520728.2606 PWWGT146 = 301481760.6488 PWWGT147 = 301485813.1875 PWWGT148 = 301393387.9829 PWWGT149 = 301500117.6819 PWWGT150 = 301408537.6436 PWWGT151 = 301461051.8123 PWWGT152 = 301422584.0071 PWWGT153 = 301450365.8717 PWWGT154 = 301448660.9139 PWWGT155 = 301575155.4518 PWWGT156 = 301506097.8564 PWWGT157 = 301518420.5297 PWWGT158 = 301499111.4789 PWWGT159 = 301462228.8978 PWWGT160 = 301464975.6625 */ %macro total; data _null_; retain tot_pwwgt0-tot_pwwgt160 0; set sas.repwgt_2009 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;