* DATE: JULY 14, 1999.
* NAME: YIH-JIN YOUNG.
* PURPOSE:  THIS PROGRAM READS THE 1985 SUPAS FILE.   
* HOUSEHOLD RECORD TYPE I.
* DATA SOURCE: indo85.dat (SEE REFERENCE GUIDE FOR DETAILS).
* OUTPUT FILE: NONE. 
* NUMBER OF CASES = .
                                                           

file handle new /name='y:\indonesia\data\census85\indo85.dat'
            /mode=image
            /lrecl=214.
DATA LIST FILE= new fixed
   /RT 17-18                      
    PROVINCE 1-2 V3 5 V01 19-20 V04 25-26.

SELECT IF RT=2.
FRE VAR PROVINCE V01 V3 V01 V04.