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

set blanks=sysmis/undefined=nowarn /mxwarns=6000000.
file handle new /name='y:\indonesia\data\census80\indo80.dat'
 /mode=image
 /lrecl=129.
 
DATA LIST FILE=new FIXED
 / PROVINCE 1-2 RCDTYPE 16
   SEX 22 AGE 26-27.
 
SELECT IF RCDTYPE=3.
FRE VAR SEX PROVINCE AGE.