FAMTYPE.SPS

Note: User must specify the following variables on the keep line:

1) D1
2) D2
3) D3
4) D4
5) D27

ROUTINE:

/*************** ONE PERSON UNITS *********************

DO IF (D4 EQ 1)

COMPUTE FAMTYPE = 1

IF (D1 GE 65) FAMTYPE = 3

COMPUTE FAMTYPE = FAMTYPE + D3 - 1

END IF

/*************** MARRIED COUPLES WITH CHILDREN UNDER 18 **************

DO IF (D2 GT 0)

DO IF (D27 GT 0)

COMPUTE FAMTYPE = 5

IF (D1 GE 65) FAMTYPE = 7

COMPUTE PS = D27 + 2

IF (PS NE D4) FAMTYPE = FAMTYPE + 1

END IF

DO IF (D27 EQ 0)

COMPUTE FAMTYPE = 9

IF (D1 GE 65) FAMTYPE = 11

COMPUTE PS = 2

IF (PS NE D4) FAMTYPE = FAMTYPE + 1

END IF

END IF

/******************* OTHER TYPES OF UNITS **************************

DO IF (D4 GT 1 AND D2 EQ 0)

DO IF (D27 EQ 0)

COMPUTE FAMTYPE = 19

IF (D1 GE 65) FAMTYPE = 20

END IF

OMPUTE FAMTYPE = 13

IF (D3 EQ 2) FAMTYPE = FAMTYPE + 2

IF (D1 GE 65) FAMTYPE = 17

COMPUTE PS = D27 + 1

IF (PS NE D4 ) FAMTYPE = FAMTYPE + 1

END IF

END IF

VARIABLE LABELS FAMTYPE 'TYPE OF FAMILY'

C

2 'FEMALE<65 1 PERSON UNIT '

3 'MALE 65+ 1 PERSON UNIT '

4 'FEMALE 65+ 1 PERSON UNIT'

5 'CPL<65 W/CHLD<18 '

6 'CPL<65 W/CHLD/OTH '

7 'CPL 65+ W/CHLD<18 '

8 'CPL 65+ W/CHLD/OTH '

9 'CPL<65 NO CHLD<18 '

10 'CPL<65 NO CHLD/OTH '

12 'CPL 65+ NO CHLD/OTH '

13 'MALE<65 W/CHLD<18 '

14 'MALE<65 W/CHLD<18/OTH '

15 'FEMALE<65 W/CHLD<18 '

16 'FEMALE<65 W/CHLD<18/OTH '

17 'OTH 65+ W/CHLD<18 '

18 'OTH 65+ W/CHLD<18/OTH '

19 'OTH<65 NO CHLD<18 '

20 'OTH 65+ NO CHLD<18 '

/**/

COMMENT 1 MALE UNDER AGE 65 ONE PERSON UNIT

2 FEMALE UNDER AGE 65 ONE PERSON UNIT

3 MALE AGE 65 OR OLDER ONE PERSON UNIT

4 FEMALE AGE 65 OR OLDER ONE PERSON UNIT

5 HUSBAND WIFE COUPLE HEAD UNDER AGE 65 WITH ONE OR MORE

CHILDREN UNDER 18 AND NO OTHER UNIT MEMBERS OVER AGE 18

6 HUSBAND WIFE COUPLE HEAD UNDER AGE 65 WITH ONE OR MORE

CHILDREN UNDER 18 AND OTHER UNIT MEMBERS OVER AGE 18

7 HUSBAND WIFE COUPLE HEAD AGE 65 OR OLDER WITH ONE OR MORE

CHILDREN UNDER 18 AND NO OTHER UNIT MEMBERS OVER AGE 18

8 HUSBAND WIFE COUPLE HEAD AGE 65 OR OLDER WITH ONE OR MORE

CHILDREN UNDER 18 AND OTHER UNIT MEMBERS OVER AGE 18

9 HUSBAND WIFE COUPLE HEAD UNDER AGE 65 WITH NO OTHER UNIT

MEMBERS

10 HUSBAND WIFE COUPLE HEAD UNDER AGE 65 WITH OTHER UNIT

MEMBERS OVER AGE OF 18

11 HUSBAND WIFE COUPLE HEAD AGE 65 OR OLDER WITH NO OTHER UNIT

MEMBERS

12 HUSBAND WIFE COUPLE HEAD AGE 65 OR OLDER WITH OTHER UNIT

MEMBERS OVER AGE OF 18

13 UNMARRIED MALE HEAD UNDER AGE 65 WITH ONE OR MORE

CHILDREN UNDER AGE 18 AND NO OTHER MEMBERS AGE 18 OR OLDER

14 UNMARRIED MALE HEAD UNDER AGE 65 WITH ONE OR MORE

CHILDREN UNDER AGE 18 AND OTHER MEMBERS AGE 18 OR OLDER

15 UNMARRIED FEMALE HEAD UNDER AGE 65 WITH ONE OR MORE

CHILDREN UNDER AGE 18 AND NO OTHER MEMBERS AGE 18 OR OLDER

16 UNMARRIED FEMALE HEAD UNDER AGE 65 WITH ONE OR MORE

CHILDREN UNDER AGE 18 AND OTHER MEMBERS AGE 18 OR OLDER

17 OTHER NON HUSBAND WIFE UNITS HEAD AGE 65 AND OVER WITH

CHILDREN UNDER AGE 18 AND NO OTHER MEMBERS AGE 18 OR OLDER

18 OTHER NON HUSBAND WIFE UNITS HEAD AGE 65 AND OVER WITH

CHILDREN UNDER AGE 18 AND OTHER MEMBERS AGE 18 OR OLDER

19 OTHER NON HUSBAND WIFE UNITS HEAD UNDER AGE 65 WITH NO

CHILDREN UNDER AGE 18

20 OTHER NON HUSBAND WIFE UNITS HEAD AGE 65 OR OLDER WITH NO

CHILDREN UNDER AGE 18

11 'CPL 65+ NO CHLD<18 '

VALUE LABELS FAMTYPE

1 'MALE<65 1 PERSON UNIT '

DO IF (D27 GT 0)