ata one;

/*  This program creates the following household variables for Round 20:

    1. Household size = HHSIZE [CV_HH_SIZE]
    2. Number of household members less than 6 years old = UNDER6 [CV_HH_UNDER_6]
    3. Number of household members less than 18 years old = UNDER18 [CV_HH_UNDER_18]

The following variables are used:
QNAME = variable 
  HHI_AGE.01 = HAGE01
  HHI_AGE.02 = HAGE02
  HHI_AGE.03 = HAGE03
  HHI_AGE.04 = HAGE04
  HHI_AGE.05 = HAGE05
  HHI_AGE.06 = HAGE06
  HHI_AGE.07 = HAGE07
  HHI_AGE.08 = HAGE08
  HHI_AGE.09 = HAGE09
  HHI_AGE.10 = HAGE10
  HHI_AGE.11 = HAGE11
  HHI_AGE.12 = HAGE12
  HHI_AGE.13 = HAGE13
  HHI_AGE.14 = HAGE14
  HHI_AGE.15 = HAGE15
  HHI_AGE.16 = HAGE16
  HHI_AGE.17 = HAGE17
  HHI_AGE.18 = HAGE18
  HHI_UID.01 = HUID01
  HHI_UID.02 = HUID02
  HHI_UID.03 = HUID03
  HHI_UID.04 = HUID04
  HHI_UID.05 = HUID05
  HHI_UID.06 = HUID06
  HHI_UID.07 = HUID07
  HHI_UID.08 = HUID08
  HHI_UID.09 = HUID09
  HHI_UID.10 = HUID10
  HHI_UID.11 = HUID11
  HHI_UID.12 = HUID12
  HHI_UID.13 = HUID13
  HHI_UID.14 = HUID14
  HHI_UID.15 = HUID15
  HHI_UID.16 = HUID16
  HHI_UID.17 = HUID17
  HHI_UID.18 = HUID18
  */

ARRAY HAGE    HAGE01-HAGE18;
ARRAY HUID    HUID01-HUID18;

/* Create dummy variables HHDUM[I] (I=1 TO 18)  that equal one if the ith member has a member ID, and zero
if the ith member does not have a member ID (i.e.HHID0i=-4). Also create dummies for the age:DUM6[I] (I=1 TO 18)
that equal 1 if the ith household member is under age 6 and DUM18[I] (I=1 TO 18) that equal 1 if the ith
household member is under age 18.*/

ARRAY HHDUM   HHDUM01-HHDUM18;
ARRAY DUM6    DUM601-DUM618;
ARRAY DUM18   DUM1801-DUM1818;

DO I=1 TO 18;
   HHDUM[I]=0;
   DUM6[I]=0;
   DUM18[I]=0;
END;

DO I=1 TO 18;
   IF HUID[I]>-1 THEN HHDUM[I]=1;
   IF -1<HAGE[I]<6 THEN DUM6[I]=1;
   IF -1<HAGE[I]<18 THEN DUM18[I]=1;
   IF -4<HAGE[I]<0 THEN DO;
    DUM18[I]=-3;
    UND6=-3;
   END;
END;

/* Create household size HHSIZE by adding up the dummies HHDUM[I] and also add one due to the respondent himself.
Similarly, create variabes UNDER6 AND UNDER18 by adding up the other two dummies.*/

HHSIZE=1;
UNDER6=0;
UNDER18=0;

DO I=1 TO 18;
   HHSIZE=HHSIZE+HHDUM[I];
   UNDER6=UNDER6+DUM6[I];
   UNDER18=UNDER18+DUM18[I];
END;

/* these set various variables to -3 or -5, for example if the hh dummy6 is -3 then under 6 = -3
   and dummy uner18 = -3 then under18 is -3  */

DO I=1 to 18;
   IF DUM6[I]=-3 then UNDER6=-3;
   IF DUM18[I]=-3 then UNDER18=-3;
END;

IF HUID01=-5 THEN HHSIZE=-5;

DO I=1 TO 18;
  IF -4<HUID[I]<0 THEN HHSIZE=-3;
END;

IF HUID01=-5 THEN UNDER6=-5;
IF HUID01=-5 THEN UNDER18=-5;

DO I=1 TO 18;
  IF -4<HAGE[I]<0 THEN PRT1=-3;
 END;

IF HHSIZE=-3 THEN DO;
   UNDER6=-3;
   UNDER18=-3;
END;

IF UND6=-3 THEN DO;
   UNDER6=-3;
END;

/* once the above are assigned, then do some checking to see if the results are valid */
/* check to see if lookat has a value, meaning something is amiss */

ARRAY LOOK    LOOK01-LOOK18;

DO I=1 to 18;
  IF HAGE[I] ne -4 AND HUID[I]=-4 THEN DO;
    LOOK[I]=1;
    LOOKAT=1;
  END;
  IF HAGE[I]=-4 AND HUID[I] NE -4 THEN DO;
    LOOK[I]=2;
    LOOKAT=2;
  END;
END;
run;

data r20.r20_cv_hhsize;set two (keep = pubid hhsize under6 under18);
rename
  hhsize=CV_HH_SIZE
  under6=CV_HH_UNDER_6
  under18=CV_HH_UNDER_18;
run;