/* This code is for documentation of the record layout for
the ASCII replicate weight code for the 2008 ASEC Data
*/

filename link
'CPS_ASEC_ASCII_REPWGT_2008.DAT';

filename replist
'CPS_ASEC_ASCII_REPWGT_2008.LST';

* Add SAS library;
libname sas '.';

data sas.repwgt_2008;
   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 =     299105708.0534
   pwwgt1 =     299094202.7878
   pwwgt2 =     299111315.8329
   pwwgt3 =     299090372.4915
   pwwgt4 =     299139557.3931
   pwwgt5 =     299123120.6641
   pwwgt6 =     299073482.0820
   pwwgt7 =     299134708.5513
   pwwgt8 =     299131154.2199
   pwwgt9 =     299093079.3028
   pwwgt10 =    299125549.7972
   pwwgt11 =    299097846.7485
   pwwgt12 =    299110474.8674
   pwwgt13 =    299132136.7260
   pwwgt14 =    299172740.7861
   pwwgt15 =    299093905.6088
   pwwgt16 =    299092833.7062
   pwwgt17 =    299133268.7582
   pwwgt18 =    299164245.6162
   pwwgt19 =    299043438.9397
   pwwgt20 =    299067797.5658
   pwwgt21 =    299126381.7132
   pwwgt22 =    299099536.3691
   pwwgt23 =    299087836.7878
   pwwgt24 =    299066357.7786
   pwwgt25 =    299125754.4831
   pwwgt26 =    299100100.0544
   pwwgt27 =    299118981.0127
   pwwgt28 =    299102561.8348
   pwwgt29 =    299036560.3074
   pwwgt30 =    299130677.7345
   pwwgt31 =    299123609.3868
   pwwgt32 =    299115826.6275
   pwwgt33 =    299160731.7545
   pwwgt34 =    299076133.0006
   pwwgt35 =    299112223.7358
   pwwgt36 =    299116981.6261
   pwwgt37 =    299091304.4124
   pwwgt38 =    299084413.2226
   pwwgt39 =    299074461.1833
   pwwgt40 =    299065405.6570
   pwwgt41 =    299134588.8098
   pwwgt42 =    299139413.8645
   pwwgt43 =    299124356.0473
   pwwgt44 =    299133856.4993
   pwwgt45 =    299095923.2655
   pwwgt46 =    299124800.0298
   pwwgt47 =    299063534.8931
   pwwgt48 =    299051391.4856
   pwwgt49 =    299119873.6490
   pwwgt50 =    299137353.2017
   pwwgt51 =    299098157.0895
   pwwgt52 =    299050003.4682
   pwwgt53 =    299062044.7593
   pwwgt54 =    299121623.5889
   pwwgt55 =    299088763.3150
   pwwgt56 =    299107878.6270
   pwwgt57 =    299134262.0058
   pwwgt58 =    299118287.1512
   pwwgt59 =    299097268.6141
   pwwgt60 =    299106895.5176
   pwwgt61 =    299110841.0289
   pwwgt62 =    299081529.8528
   pwwgt63 =    299088473.9247
   pwwgt64 =    299076419.3468
   pwwgt65 =    299050028.6566
   pwwgt66 =    299144057.5548
   pwwgt67 =    299077007.4780
   pwwgt68 =    299082152.4999
   pwwgt69 =    299049254.6879
   pwwgt70 =    299125397.4167
   pwwgt71 =    299086651.2667
   pwwgt72 =    299134471.3087
   pwwgt73 =    299149583.9634
   pwwgt74 =    299057707.9510
   pwwgt75 =    299128511.8849
   pwwgt76 =    299118864.8081
   pwwgt77 =    299103819.6863
   pwwgt78 =    299100792.8741
   pwwgt79 =    299162706.7482
   pwwgt80 =    299138160.3973
   pwwgt81 =    299104231.4340
   pwwgt82 =    299047903.0890
   pwwgt83 =    299060843.6875
   pwwgt84 =    299090853.3117
   pwwgt85 =    299121375.8866
   pwwgt86 =    299132571.6682
   pwwgt87 =    299087758.3008
   pwwgt88 =    299142867.2704
   pwwgt89 =    299091083.5613
   pwwgt90 =    299102995.2733
   pwwgt91 =    299141878.6110
   pwwgt92 =    299126283.1144
   pwwgt93 =    299087859.1368
   pwwgt94 =    299080781.4012
   pwwgt95 =    299015964.5466
   pwwgt96 =    299128334.9188
   pwwgt97 =    299088322.3363
   pwwgt98 =    299136715.1491
   pwwgt99 =    299070859.4147
   pwwgt100 =   299115251.1394
   pwwgt101 =   299077708.2821
   pwwgt102 =   299103216.3142
   pwwgt103 =   299112622.3704
   pwwgt104 =   299133434.7666
   pwwgt105 =   299143987.9994
   pwwgt106 =   299077522.1302
   pwwgt107 =   299164225.5535
   pwwgt108 =   299062479.9439
   pwwgt109 =   299110498.2477
   pwwgt110 =   299055415.0789
   pwwgt111 =   299106161.9225
   pwwgt112 =   299119738.3259
   pwwgt113 =   299126481.4479
   pwwgt114 =   299130181.1145
   pwwgt115 =   299176718.8055
   pwwgt116 =   299078939.6238
   pwwgt117 =   299084600.8607
   pwwgt118 =   299123319.7654
   pwwgt119 =   299110071.6233
   pwwgt120 =   299095265.6261
   pwwgt121 =   299160218.6614
   pwwgt122 =   299099973.1658
   pwwgt123 =   299075618.4786
   pwwgt124 =   299095560.1925
   pwwgt125 =   299090882.7553
   pwwgt126 =   299108623.0366
   pwwgt127 =   299045063.0143
   pwwgt128 =   299174416.6405
   pwwgt129 =   299079568.0641
   pwwgt130 =   299154656.6004
   pwwgt131 =   299100183.5509
   pwwgt132 =   299104161.8192
   pwwgt133 =   299154107.2453
   pwwgt134 =   299111963.9796
   pwwgt135 =   299129877.4766
   pwwgt136 =   299091505.2589
   pwwgt137 =   299098792.9548
   pwwgt138 =   299074337.9263
   pwwgt139 =   299112529.7006
   pwwgt140 =   299091537.4569
   pwwgt141 =   299111576.0180
   pwwgt142 =   299125973.5822
   pwwgt143 =   299164213.2750
   pwwgt144 =   299053237.4773
   pwwgt145 =   299108863.8382
   pwwgt146 =   299087707.6633
   pwwgt147 =   299102455.9825
   pwwgt148 =   299056567.1365
   pwwgt149 =   299109598.8784
   pwwgt150 =   299104297.7490
   pwwgt151 =   299083316.8636
   pwwgt152 =   299055827.8068
   pwwgt153 =   299086148.7861
   pwwgt154 =   299086703.1950
   pwwgt155 =   299119512.4036
   pwwgt156 =   299147098.8451
   pwwgt157 =   299106632.2761
   pwwgt158 =   299109223.8322
   pwwgt159 =   299115126.7382
   pwwgt160 =   299134472.2659
*/

%macro total;
data _null_;
   retain tot_pwwgt0-tot_pwwgt160 0;
   set sas.repwgt_2008 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;