/* This code is for documentation of the record layout for
the ASCII replicate weight code for the 2011 Food Security
*/
filename ipfile "N:\CPS\Supplements\Food Security\2011\Data\dec11hhrep.dat" ;
*filename ipfile "dec11hhrep.dat" ;

%let replist= CPS_FOOD_SECURITY_REPWGT_2011.LST;
filename replist "&replist";

* Add SAS library;
libname sas '.';

data sas.repwgt_dec2011;
 infile ipfile   lrecl = 1456   recfm = v ;
 informat hhrepwgt0-hhrepwgt160 9.4;
 input 

qstnum 1-5

hhrepwgt0  8 -16
hhrepwgt1  17 -25
hhrepwgt2  26 -34
hhrepwgt3  35 -43
hhrepwgt4  44 -52
hhrepwgt5  53 -61
hhrepwgt6  62 -70
hhrepwgt7  71 -79
hhrepwgt8  80 -88
hhrepwgt9  89 -97
hhrepwgt10  98 -106
hhrepwgt11  107 -115
hhrepwgt12  116 -124
hhrepwgt13  125 -133
hhrepwgt14  134 -142
hhrepwgt15  143 -151
hhrepwgt16  152 -160
hhrepwgt17  161 -169
hhrepwgt18  170 -178
hhrepwgt19  179 -187
hhrepwgt20  188 -196
hhrepwgt21  197 -205
hhrepwgt22  206 -214
hhrepwgt23  215 -223
hhrepwgt24  224 -232
hhrepwgt25  233 -241
hhrepwgt26  242 -250
hhrepwgt27  251 -259
hhrepwgt28  260 -268
hhrepwgt29  269 -277
hhrepwgt30  278 -286
hhrepwgt31  287 -295
hhrepwgt32  296 -304
hhrepwgt33  305 -313
hhrepwgt34  314 -322
hhrepwgt35  323 -331
hhrepwgt36  332 -340
hhrepwgt37  341 -349
hhrepwgt38  350 -358
hhrepwgt39  359 -367
hhrepwgt40  368 -376
hhrepwgt41  377 -385
hhrepwgt42  386 -394
hhrepwgt43  395 -403
hhrepwgt44  404 -412
hhrepwgt45  413 -421
hhrepwgt46  422 -430
hhrepwgt47  431 -439
hhrepwgt48  440 -448
hhrepwgt49  449 -457
hhrepwgt50  458 -466
hhrepwgt51  467 -475
hhrepwgt52  476 -484
hhrepwgt53  485 -493
hhrepwgt54  494 -502
hhrepwgt55  503 -511
hhrepwgt56  512 -520
hhrepwgt57  521 -529
hhrepwgt58  530 -538
hhrepwgt59  539 -547
hhrepwgt60  548 -556
hhrepwgt61  557 -565
hhrepwgt62  566 -574
hhrepwgt63  575 -583
hhrepwgt64  584 -592
hhrepwgt65  593 -601
hhrepwgt66  602 -610
hhrepwgt67  611 -619
hhrepwgt68  620 -628
hhrepwgt69  629 -637
hhrepwgt70  638 -646
hhrepwgt71  647 -655
hhrepwgt72  656 -664
hhrepwgt73  665 -673
hhrepwgt74  674 -682
hhrepwgt75  683 -691
hhrepwgt76  692 -700
hhrepwgt77  701 -709
hhrepwgt78  710 -718
hhrepwgt79  719 -727
hhrepwgt80  728 -736
hhrepwgt81  737 -745
hhrepwgt82  746 -754
hhrepwgt83  755 -763
hhrepwgt84  764 -772
hhrepwgt85  773 -781
hhrepwgt86  782 -790
hhrepwgt87  791 -799
hhrepwgt88  800 -808
hhrepwgt89  809 -817
hhrepwgt90  818 -826
hhrepwgt91  827 -835
hhrepwgt92  836 -844
hhrepwgt93  845 -853
hhrepwgt94  854 -862
hhrepwgt95  863 -871
hhrepwgt96  872 -880
hhrepwgt97  881 -889
hhrepwgt98  890 -898
hhrepwgt99  899 -907
hhrepwgt100  908 -916
hhrepwgt101  917 -925
hhrepwgt102  926 -934
hhrepwgt103  935 -943
hhrepwgt104  944 -952
hhrepwgt105  953 -961
hhrepwgt106  962 -970
hhrepwgt107  971 -979
hhrepwgt108  980 -988
hhrepwgt109  989 -997
hhrepwgt110  998 -1006
hhrepwgt111  1007 -1015
hhrepwgt112  1016 -1024
hhrepwgt113  1025 -1033
hhrepwgt114  1034 -1042
hhrepwgt115  1043 -1051
hhrepwgt116  1052 -1060
hhrepwgt117  1061 -1069
hhrepwgt118  1070 -1078
hhrepwgt119  1079 -1087
hhrepwgt120  1088 -1096
hhrepwgt121  1097 -1105
hhrepwgt122  1106 -1114
hhrepwgt123  1115 -1123
hhrepwgt124  1124 -1132
hhrepwgt125  1133 -1141
hhrepwgt126  1142 -1150
hhrepwgt127  1151 -1159
hhrepwgt128  1160 -1168
hhrepwgt129  1169 -1177
hhrepwgt130  1178 -1186
hhrepwgt131  1187 -1195
hhrepwgt132  1196 -1204
hhrepwgt133  1205 -1213
hhrepwgt134  1214 -1222
hhrepwgt135  1223 -1231
hhrepwgt136  1232 -1240
hhrepwgt137  1241 -1249
hhrepwgt138  1250 -1258
hhrepwgt139  1259 -1267
hhrepwgt140  1268 -1276
hhrepwgt141  1277 -1285
hhrepwgt142  1286 -1294
hhrepwgt143  1295 -1303
hhrepwgt144  1304 -1312
hhrepwgt145  1313 -1321
hhrepwgt146  1322 -1330
hhrepwgt147  1331 -1339
hhrepwgt148  1340 -1348
hhrepwgt149  1349 -1357
hhrepwgt150  1358 -1366
hhrepwgt151  1367 -1375
hhrepwgt152  1376 -1384
hhrepwgt153  1385 -1393
hhrepwgt154  1394 -1402
hhrepwgt155  1403 -1411
hhrepwgt156  1412 -1420
hhrepwgt157  1421 -1429
hhrepwgt158  1430 -1438
hhrepwgt159  1439 -1447
hhrepwgt160  1448 -1456
;

/* SUM of Weights for Verification:

All replicate weights, HHREPWGT0 - HHREPWGT160, should
be 
Use these totals to verify that your file is created correctly.
*/

%macro total;
data _null_;
   retain tot_hhrepwgt0-tot_hhrepwgt160 0;
   set sas.repwgt_dec2011   end = last;
   %do i = 0 %to 160;
      tot_hhrepwgt&i + hhrepwgt&i;
   %end;
   if last then do;
      file replist;
	   put "&replist";
       put 'Sum of replicate weights';
      put;
      %do i = 0 %to 160;
          put "   HHREPWGT&i = " @16 tot_hhrepwgt&i f15.4;
      %end;
   end;
run;
%mend total;

%total;