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

  	1. Household size = HHSIZE
  	2. Number of household members less than 6 years old = UNDER6
  	3. Number of household members less than 18 years old = UNDER18
    
    In Investigator, they are called, CV_HH_SIZE, CV_HH_UNDER_6, CV_UNDER_18

The following variables are used:

Variable name            Question
in program   			 in survey

HAGExx					 HHI_AGE.xx
HUID					 HHI_UID.xx
*/

ARRAY HAGE 		HAGE01-HAGE18;
ARRAY HUID 		HUID01-HUID18;
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;

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

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

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;

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;