* DATE: JULY 5, 1999.
* NAME: YIH-JIN YOUNG.
* PURPOSE:  THIS PROGRAM READS THE 1971 INDONESIA CENSUS FILE. 
* PERSON RECORD TYPE.
* DATA SOURCE: indo71.dat (SEE REFERENCE GUIDE FOR DETAILS).
* OUTPUT FILE: NONE. 
* NUMBER OF CASES = 634,648.

set length=99999.
set header=off.
set blanks=sysmis/undefined=nowarn /mxwarns=6000000.
file handle new /name='y:\indonesia\data\census71\indo71.dat'
 /mode=image
 /lrecl=80.
 
DATA LIST FILE=new FIXED
  /V1 1-4 V4 9 V5 10-12 V6 13-14 V7 15 .

* V1 IS RECORD TYPE, 4099 IS PERSON RECORD TYPE.
SELECT IF V1=4099.

FRE VAR V4 TO V7.