options nocenter ls=132 ps=84 nonumber;
libname disk './';

/* This program tests the Sabelhaus extract member files
*/

%macro one(q);
  filename memb "~/nta/cex/CBO_1980_2000/rawdata/mfile&q";
  data disk.memb&q;
  infile memb lrecl=272;
  input
  newid          1-7
  age            8-10
  relation $     11
  educatio $     12-13
  race     $     14
  sex      $     15
  weeksin        16-17
  emplcont $     18
  incoll   $     19
  nonwork  $     20
  marital  $     21
  empstat  $     22
  emptype  $     23
  hrswkd         24-26
  wkswkd         27-28
  occup    $     29-30
  indust   $     31-32
  fedtax         33-42
  gvpremia       43-52
  pripemia       53-62
  rrpremia       63-72
  statax         73-82
  farminc        83-92
  irakeogh       93-102
  fica          103-112
  businc        113-122
  wage          123-132
  socbens       133-142
  ssi           143-152
;
members = 1;

/*  tables  */

   title "member file unweighted for period&q";
   proc means n sum mean;
   run;

%mend;

%include '~/nta/savastata.mac';

%macro convert(aa);
    data memb&aa;
        set disk.memb&aa;
        %savastata(~/nta/cex/&aa,replace);
    run;
%mend;
/*
%one(801);%convert(801);
%one(802);%convert(802);
%one(803);%convert(803);
%one(804);%convert(804);
%one(811);%convert(811);
%one(812);%convert(812);
%one(813);%convert(813);
%one(814);%convert(814);
%one(821);%convert(821);
%one(822);%convert(822);
%one(823);%convert(823);
%one(824);%convert(824);
%one(831);%convert(831);
%one(832);%convert(832);
%one(833);%convert(833);
%one(834);%convert(834);
%one(841);%convert(841);
%one(842);%convert(842);
%one(843);%convert(843);
%one(844);%convert(844);
%one(851);%convert(851);
%one(852);%convert(852);
%one(853);%convert(853);
%one(854);%convert(854);
%one(861);%convert(861);
%one(862);%convert(862);
%one(863);%convert(863);
%one(864);%convert(864);
%one(871);%convert(871);
%one(872);%convert(872);
%one(873);%convert(873);
%one(874);%convert(874);
%one(881);%convert(881);
%one(882);%convert(882);
%one(883);%convert(883);
%one(884);%convert(884);
%one(891);%convert(891);
%one(892);%convert(892);
%one(893);%convert(893);
%one(894);%convert(894);
%one(901);%convert(901);
%one(902);%convert(902);
%one(903);%convert(903);
%one(904);%convert(904);
%one(911);%convert(911);
%one(912);%convert(912);
%one(913);%convert(913);
%one(914);%convert(914);
%one(921);%convert(921);
%one(922);%convert(922);
%one(923);%convert(923);
%one(924);%convert(924);
%one(931);%convert(931);
%one(932);%convert(932);
%one(933);%convert(933);
%one(934);%convert(934);
%one(941);%convert(941);
%one(942);%convert(942);
%one(943);%convert(943);
%one(944);%convert(944);
%one(951);%convert(951);
%one(952);%convert(952);
%one(953);%convert(953);
%one(954);%convert(954);
%one(961);%convert(961);
%one(962);%convert(962);
%one(963);%convert(963);
%one(964);%convert(964);
%one(971);%convert(971);
%one(972);%convert(972);
%one(973);%convert(973);
%one(974);%convert(974);
%one(981);%convert(981);
%one(982);%convert(982);
%one(983);%convert(983);
%one(984);%convert(984);
%one(991);%convert(991);
%one(992);%convert(992);
%one(993);%convert(993);
%one(994);%convert(994);
*/
%one(001);%convert(001);
%one(002);%convert(002);
%one(003);%convert(003);
%one(004);%convert(004);
%one(011);%convert(011);
%one(012);%convert(012);
%one(013);%convert(013);
%one(014);%convert(014);
%one(021);%convert(021);
%one(022);%convert(022);
%one(023);%convert(023);
%one(024);%convert(024);
%one(031);%convert(031);
%one(032);%convert(032);