AGEDFTYP.SPS

Creates variable 'AGEDFTYP' with the following value labels:

1 'MALE 55 TO 59 1 PERSON UNIT'
2 'MALE 60 TO 64 1 PERSON UNIT'
3 'MALE 65 TO 69 1 PERSON UNIT'
4 'MALE 70 TO 74 1 PERSON UNIT'
5 'MALE 75 PLUS 1 PERSON UNIT'
6 'FEMALE 55 TO 59 1 PERSON UNIT'
7 'FEMALE 60 TO 64 1 PERSON UNIT'
8 'FEMALE 65 TO 69 1 PERSON UNIT'
9 'FEMALE 70 TO 74 1 PERSON UNIT'
10 'FEMALE 75 PLUS 1 PERSON UNIT'
11 'MARRIED COUPLE 55 TO 59'
12 'MARRIED COUPLE 60 TO 64'
13 'MARRIED COUPLE 65 TO 69'
14 'MARRIED COUPLE 70 TO 74'
15 'MARRIED COUPLE 75 PLUS '
16 'OTHER UNITS 55 TO 59'
17 'OTHER UNITS 60 TO 64'
18 'OTHER UNITS 65 TO 69'
19 'OTHER UNITS 70 TO 74'
20 'OTHER UNITS 75 PLUS '
21 'UNITS BELOW AGE 55'

Note: USER MUST SPECIFIY THE FOLLOWING VARIABLES ON THE KEEP LINE:

    1) D1
    2) D3
    3) D4

ROUTINE:

COMPUTE AGEDFTYP = 21

DO IF D1 GE 55

COMPUTE AGEDFTYP = 16

DO REPEAT XCNT = 1 2 3 4 5

   / XAGE = 55 60 65 70 75

DO IF D1 GE XAGE

COMPUTE AGEGRP = XCNT

END IF

END REPEAT

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

DO IF (D4 EQ 1)

COMPUTE AGEDFTYP = (D3-1)*5 + AGEGRP

END IF

/*************** MARRIED COUPLES WITH NO OTHER HH MEMBERS ************

DO IF (D2 GT 0 AND D4 EQ 2)

COMPUTE AGEDFTYP = AGEGRP + 10

END IF

IF AGEDFTYP EQ 16 AGEDFTYP = AGEGRP + 15

END IF

VARIABLE LABELS AGEDFTYP 'TYPE OF FAMILY'

VALUE LABELS AGEDFTYP

1 'MALE 55 TO 59 1 PERSON UNIT'

2 'MALE 60 TO 64 1 PERSON UNIT'

3 'MALE 65 TO 69 1 PERSON UNIT'

4 'MALE 70 TO 74 1 PERSON UNIT'

5 'MALE 75 PLUS 1 PERSON UNIT'

6 'FEMALE 55 TO 59 1 PERSON UNIT'

7 'FEMALE 60 TO 64 1 PERSON UNIT'

8 'FEMALE 65 TO 69 1 PERSON UNIT'

9 'FEMALE 70 TO 74 1 PERSON UNIT'

10 'FEMALE 75 PLUS 1 PERSON UNIT'

11 'MARRIED COUPLE 55 TO 59'

12 'MARRIED COUPLE 60 TO 64'

13 'MARRIED COUPLE 65 TO 69'

14 'MARRIED COUPLE 70 TO 74'

15 'MARRIED COUPLE 75 PLUS '

16 'OTHER UNITS 55 TO 59'

17 'OTHER UNITS 60 TO 64'

18 'OTHER UNITS 65 TO 69'

19 'OTHER UNITS 70 TO 74'

20 'OTHER UNITS 75 PLUS '

21 'UNITS BELOW AGE 55'