PROC HOUSEHOLD
preproc
if AHRESULT <> 1 then
  skip case;
endif;

hhmembers = totocc(AHSEC01_EDT);
hhusual = count(AHSEC01_EDT where AH05 = 1);
hhslept = count(AHSEC01_EDT where AH06 = 1);

domestic = 0;
land = 0;
if AH119 = 1 then land = 1; endif;
house = 0;
{ if ownership of house asked in household questionnaire !!!}
{ if AHXXX = 1 then house = 1; endif; }

postproc
{ Code for exporting the asset variables - used from postproc of household as some variables are created from the individual questionnaires }
export to wealth_assets case_id (AHCLUST, AHNUMBER)
          AHWEIGHT, AHREGION, AHTYPE, hhmembers, hhusual, hhslept, 
          AHSEC02 exclude(AH108,AH126), 
          AHSEC04 exclude(AH141), 
          domestic, house, land;  { Drop alpha variables !!!}

frequency include(AHREGION, AHTYPE, hhmembers, hhusual, hhslept, 
                  AHSEC02 numeric alpha, 
                  AHSEC04 numeric alpha, domestic, house, land) 
          exclude(AH108,AH126,AH141); { Drop alpha variables !!!}

proc INDIVIDUAL
preproc

{ Woman is a domestic worker and is not related to head of household }
if A913 = maid_code and AH03(ALINE) = not_related then domestic = 1; endif;
{ Woman's partner is a domestic worker, listed in the household and is not related to head of household }
if A908 = maid_code and A705 in 1:AHMEMBER and AH03(A705) = not_related then domestic = 1; endif;

{ Man is a domestic worker and is not related to head of household }
if AM604 = maid_code and AH03(ALINE) = not_related then domestic = 1; endif;

{ Add code for ownership of land or house if asked in individual women or men's questionnaires - !!! }
{ Only used to set land or house = 1.  Already initialized to 0 in the preproc for the household }
if AH05(ALINE) = 1 & A925 in 1,2,3 then house = 1; endif;
if AH05(ALINE) = 1 & A928 in 1,2,3 then land  = 1; endif;

if AH05(ALINE) = 1 & AM612 in 1,2,3 then house = 1; endif;
if AH05(ALINE) = 1 & AM615 in 1,2,3 then land  = 1; endif;