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

filename link
'CPS_ASEC_ASCII_REPWGT_2021_2020BASE.DAT';

filename replist
'CPS_ASEC_ASCII_REPWGT_2021_2020BASE.LST';

* Add SAS library;
libname sas '.';

data sas.repwgt_2021;
   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 =     328059480.0567
   PWWGT1 =     328071189.6448
   PWWGT2 =     328091786.4239
   PWWGT3 =     328046916.0122
   PWWGT4 =     328066212.8235
   PWWGT5 =     328064869.6294
   PWWGT6 =     328123962.1906
   PWWGT7 =     328045033.0753
   PWWGT8 =     328084997.2153
   PWWGT9 =     328054879.2308
   PWWGT10 =    328068130.4145
   PWWGT11 =    328000633.3143
   PWWGT12 =    328019103.6745
   PWWGT13 =    328105688.0259
   PWWGT14 =    328003841.1584
   PWWGT15 =    328061708.5883
   PWWGT16 =    328076023.6698
   PWWGT17 =    328131635.9793
   PWWGT18 =    328077307.1718
   PWWGT19 =    328008985.8843
   PWWGT20 =    328030806.2752
   PWWGT21 =    328028656.4418
   PWWGT22 =    328037021.3946
   PWWGT23 =    328034627.2870
   PWWGT24 =    328001158.2715
   PWWGT25 =    328075640.9964
   PWWGT26 =    328044358.2059
   PWWGT27 =    328084976.5648
   PWWGT28 =    328093756.6516
   PWWGT29 =    328023554.0325
   PWWGT30 =    328079767.1471
   PWWGT31 =    328143305.3295
   PWWGT32 =    328087082.5189
   PWWGT33 =    328056380.7188
   PWWGT34 =    328032797.8301
   PWWGT35 =    328065930.6839
   PWWGT36 =    328120463.0548
   PWWGT37 =    328029086.4383
   PWWGT38 =    328045686.0612
   PWWGT39 =    328017283.7145
   PWWGT40 =    327982910.8698
   PWWGT41 =    328115650.8094
   PWWGT42 =    328141675.8401
   PWWGT43 =    328082075.4914
   PWWGT44 =    328089026.9493
   PWWGT45 =    328026674.7164
   PWWGT46 =    328157552.7917
   PWWGT47 =    328025963.6462
   PWWGT48 =    328037131.2943
   PWWGT49 =    327985571.4490
   PWWGT50 =    328018670.5752
   PWWGT51 =    328011978.6146
   PWWGT52 =    328043710.8034
   PWWGT53 =    328079860.5494
   PWWGT54 =    328084784.8160
   PWWGT55 =    328057653.0073
   PWWGT56 =    328061094.5385
   PWWGT57 =    328084855.6743
   PWWGT58 =    328049867.2758
   PWWGT59 =    328025871.4463
   PWWGT60 =    328073726.1598
   PWWGT61 =    328003432.0826
   PWWGT62 =    328079871.8134
   PWWGT63 =    328100158.5414
   PWWGT64 =    327987987.7889
   PWWGT65 =    328094525.4114
   PWWGT66 =    328065535.7962
   PWWGT67 =    328089638.0629
   PWWGT68 =    328066197.2715
   PWWGT69 =    328102281.9035
   PWWGT70 =    328083021.2741
   PWWGT71 =    328132124.9304
   PWWGT72 =    328092347.7081
   PWWGT73 =    327978963.2460
   PWWGT74 =    327988131.9599
   PWWGT75 =    328061862.9377
   PWWGT76 =    328107395.2046
   PWWGT77 =    328082590.5129
   PWWGT78 =    328034496.8596
   PWWGT79 =    328080924.6406
   PWWGT80 =    327968712.3904
   PWWGT81 =    328054962.2824
   PWWGT82 =    328033930.4441
   PWWGT83 =    328082425.1706
   PWWGT84 =    327953274.5358
   PWWGT85 =    328097457.8286
   PWWGT86 =    328089553.8438
   PWWGT87 =    328099173.6855
   PWWGT88 =    327978172.7882
   PWWGT89 =    328028899.4943
   PWWGT90 =    328075413.9715
   PWWGT91 =    328096430.6102
   PWWGT92 =    328005720.5869
   PWWGT93 =    328025400.1903
   PWWGT94 =    328072078.5187
   PWWGT95 =    328122054.7651
   PWWGT96 =    328168155.9162
   PWWGT97 =    328076112.4905
   PWWGT98 =    328118694.1476
   PWWGT99 =    328064736.3848
   PWWGT100 =   328047059.1841
   PWWGT101 =   328076667.7067
   PWWGT102 =   328127890.6577
   PWWGT103 =   328081306.3386
   PWWGT104 =   328052497.7920
   PWWGT105 =   328076244.5539
   PWWGT106 =   328055337.2753
   PWWGT107 =   328051348.5836
   PWWGT108 =   328104054.8126
   PWWGT109 =   328017426.5923
   PWWGT110 =   327975159.8970
   PWWGT111 =   328096934.5347
   PWWGT112 =   328009282.7359
   PWWGT113 =   328047392.1287
   PWWGT114 =   328044989.1479
   PWWGT115 =   328048877.4862
   PWWGT116 =   328092421.0609
   PWWGT117 =   328098573.8822
   PWWGT118 =   328063547.7370
   PWWGT119 =   328049532.6442
   PWWGT120 =   328017691.2347
   PWWGT121 =   328084301.9994
   PWWGT122 =   328009654.5458
   PWWGT123 =   328067863.3647
   PWWGT124 =   328015204.8357
   PWWGT125 =   328093167.4155
   PWWGT126 =   328013318.9723
   PWWGT127 =   328003129.5247
   PWWGT128 =   328040156.1027
   PWWGT129 =   328075911.3500
   PWWGT130 =   328062936.2171
   PWWGT131 =   328073104.4163
   PWWGT132 =   328072867.2575
   PWWGT133 =   327993310.2389
   PWWGT134 =   328063472.7653
   PWWGT135 =   327995072.3057
   PWWGT136 =   328108890.9930
   PWWGT137 =   328085464.7621
   PWWGT138 =   328017108.2132
   PWWGT139 =   328050444.4737
   PWWGT140 =   328068189.0425
   PWWGT141 =   328125823.2983
   PWWGT142 =   328111590.8468
   PWWGT143 =   328070920.7164
   PWWGT144 =   328066459.5184
   PWWGT145 =   328050600.1993
   PWWGT146 =   328088006.7789
   PWWGT147 =   328106428.8400
   PWWGT148 =   327984766.4838
   PWWGT149 =   328049575.0085
   PWWGT150 =   328074182.1887
   PWWGT151 =   328026032.9990
   PWWGT152 =   327946868.0429
   PWWGT153 =   328084367.6220
   PWWGT154 =   328056492.9777
   PWWGT155 =   328074247.9765
   PWWGT156 =   328065662.6134
   PWWGT157 =   328116843.3785
   PWWGT158 =   328074028.9912
   PWWGT159 =   328027304.6355
   PWWGT160 =   328058887.1319
*/

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