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

filename link
'CPS_ASEC_ASCII_REPWGT_2020_2020BASE.DAT';

filename replist
'CPS_ASEC_ASCII_REPWGT_2020_2020BASE.LST';

* Add SAS library;
libname sas '.';

data sas.repwgt_2020;
   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 =     327601104.5711
   PWWGT1 =     327627640.7893
   PWWGT2 =     327638633.3232
   PWWGT3 =     327591408.4921
   PWWGT4 =     327620209.4856
   PWWGT5 =     327590893.1836
   PWWGT6 =     327658270.1989
   PWWGT7 =     327594675.4562
   PWWGT8 =     327600339.9688
   PWWGT9 =     327622627.1789
   PWWGT10 =    327562606.7623
   PWWGT11 =    327550473.9708
   PWWGT12 =    327579140.3330
   PWWGT13 =    327666722.5000
   PWWGT14 =    327587689.8303
   PWWGT15 =    327626916.9751
   PWWGT16 =    327619040.8200
   PWWGT17 =    327602232.7171
   PWWGT18 =    327633754.8598
   PWWGT19 =    327557398.4721
   PWWGT20 =    327595860.4658
   PWWGT21 =    327581642.3219
   PWWGT22 =    327563462.2868
   PWWGT23 =    327583527.1981
   PWWGT24 =    327620560.0226
   PWWGT25 =    327611393.1497
   PWWGT26 =    327614353.6040
   PWWGT27 =    327628157.3764
   PWWGT28 =    327578507.7483
   PWWGT29 =    327631035.4204
   PWWGT30 =    327630569.0220
   PWWGT31 =    327649802.6519
   PWWGT32 =    327637063.0290
   PWWGT33 =    327595234.9895
   PWWGT34 =    327561902.8510
   PWWGT35 =    327605805.8855
   PWWGT36 =    327558276.7460
   PWWGT37 =    327602686.1563
   PWWGT38 =    327664290.2939
   PWWGT39 =    327580667.2543
   PWWGT40 =    327548032.6035
   PWWGT41 =    327662773.5310
   PWWGT42 =    327677302.5422
   PWWGT43 =    327569857.1665
   PWWGT44 =    327605139.0849
   PWWGT45 =    327599385.0981
   PWWGT46 =    327692400.0396
   PWWGT47 =    327567336.3904
   PWWGT48 =    327537107.0602
   PWWGT49 =    327568165.9800
   PWWGT50 =    327551888.7447
   PWWGT51 =    327510948.1039
   PWWGT52 =    327583271.0745
   PWWGT53 =    327635304.1715
   PWWGT54 =    327657484.1144
   PWWGT55 =    327629345.1752
   PWWGT56 =    327587347.5898
   PWWGT57 =    327576791.3646
   PWWGT58 =    327612323.7799
   PWWGT59 =    327575673.9527
   PWWGT60 =    327625918.1302
   PWWGT61 =    327574358.2454
   PWWGT62 =    327616717.1948
   PWWGT63 =    327621323.3286
   PWWGT64 =    327561236.2298
   PWWGT65 =    327626868.5922
   PWWGT66 =    327594423.6218
   PWWGT67 =    327570366.2079
   PWWGT68 =    327587913.9993
   PWWGT69 =    327656099.4693
   PWWGT70 =    327613412.5868
   PWWGT71 =    327635455.9094
   PWWGT72 =    327598317.4675
   PWWGT73 =    327513436.8977
   PWWGT74 =    327569950.8975
   PWWGT75 =    327625880.4651
   PWWGT76 =    327596046.9485
   PWWGT77 =    327587332.1330
   PWWGT78 =    327640716.8090
   PWWGT79 =    327608475.7062
   PWWGT80 =    327538488.8091
   PWWGT81 =    327581588.7295
   PWWGT82 =    327592709.7773
   PWWGT83 =    327639111.3862
   PWWGT84 =    327582314.5673
   PWWGT85 =    327657716.6014
   PWWGT86 =    327578632.0375
   PWWGT87 =    327617970.0311
   PWWGT88 =    327555930.8220
   PWWGT89 =    327668235.0799
   PWWGT90 =    327583164.4758
   PWWGT91 =    327613203.0831
   PWWGT92 =    327577710.8351
   PWWGT93 =    327543555.6635
   PWWGT94 =    327619728.6097
   PWWGT95 =    327647204.2748
   PWWGT96 =    327612263.4461
   PWWGT97 =    327606293.5762
   PWWGT98 =    327612560.1427
   PWWGT99 =    327637472.5450
   PWWGT100 =   327611665.6507
   PWWGT101 =   327607988.4367
   PWWGT102 =   327596960.9789
   PWWGT103 =   327622835.4874
   PWWGT104 =   327635865.1977
   PWWGT105 =   327597630.7216
   PWWGT106 =   327587784.9579
   PWWGT107 =   327640713.1051
   PWWGT108 =   327617965.1631
   PWWGT109 =   327554873.8460
   PWWGT110 =   327540689.0577
   PWWGT111 =   327569347.6682
   PWWGT112 =   327545413.4427
   PWWGT113 =   327639182.8993
   PWWGT114 =   327615573.9886
   PWWGT115 =   327594818.9728
   PWWGT116 =   327577739.7187
   PWWGT117 =   327597269.7137
   PWWGT118 =   327627691.3815
   PWWGT119 =   327588154.6074
   PWWGT120 =   327638851.1546
   PWWGT121 =   327607058.6190
   PWWGT122 =   327588272.2916
   PWWGT123 =   327612725.5305
   PWWGT124 =   327526318.6377
   PWWGT125 =   327611457.4786
   PWWGT126 =   327614373.5635
   PWWGT127 =   327585661.8205
   PWWGT128 =   327607337.0119
   PWWGT129 =   327638511.8329
   PWWGT130 =   327556758.0434
   PWWGT131 =   327616820.4432
   PWWGT132 =   327643042.1734
   PWWGT133 =   327598307.2980
   PWWGT134 =   327623095.3354
   PWWGT135 =   327613439.6854
   PWWGT136 =   327615626.5889
   PWWGT137 =   327593057.8338
   PWWGT138 =   327557555.2951
   PWWGT139 =   327580556.8270
   PWWGT140 =   327560795.2923
   PWWGT141 =   327644704.3780
   PWWGT142 =   327645978.5867
   PWWGT143 =   327672460.9061
   PWWGT144 =   327565627.3801
   PWWGT145 =   327578662.5410
   PWWGT146 =   327622408.7673
   PWWGT147 =   327616953.4515
   PWWGT148 =   327562032.2031
   PWWGT149 =   327619238.7747
   PWWGT150 =   327609671.6721
   PWWGT151 =   327589228.0162
   PWWGT152 =   327520407.2966
   PWWGT153 =   327593398.8202
   PWWGT154 =   327620518.6902
   PWWGT155 =   327625973.6492
   PWWGT156 =   327597718.5815
   PWWGT157 =   327570312.0155
   PWWGT158 =   327630557.3984
   PWWGT159 =   327557548.6714
   PWWGT160 =   327591442.5323
*/

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