* This program reads the 1990 Philippines Standard file *.
* DATE: JULY 20, 1999.
* NAME: Yih-Jin Young.
* PURPOSE:  THIS PROGRAM READS THE 1990 PHILIPPINES STANDARD FILE.
* AND MATCH WITH 1990 CONTEXTUAL FILE. 
* I91.SYS THEN MATCHES WITH PHILIPPINES 70-80 FILE.
* AND ANALYZE THE FERTILITY PATTERNS FROM 80-90.
* THIS PROGRAM IS THE BASIS FOR THE 1998 TAIWAN CONFERENCE PAPER.
* DATA SOURCE: PHIL90STD.DAT (SEE SUMMARY.XL FOR DETAILS).
* OUTPUT FILE: I91.SYS, PHIL789.POR.

set blanks=-9/undefined=nowarn/mxwarns=2000000.  
SET LENGTH=999999.
SET HEADER=OFF.

IMPORT FILE='y:\philippines\data\contextuals\pcon90.por'.
SORT CASES BY PROVINCE.
RENAME VAR (PROVINCE=PROV).
compute  mprop=mar190.
compute weprop=e490.
compute cwprop2=chwk190.

VARIABLE LABELS WEPROP  'PROP OF WOMEN 15-34 WITH MORE THAN PRIM EDU'
 CWPROP2    'PROP OF CHILDREN 10-14 IN LABOR FORCE'
 MPROP     'PROP OF WOMEN AGED 15-24 NEVER-MARRIED'.
                       
SAVE OUTFILE='y:\philippines\data\contextuals\pcon90.sav'/KEEP PROV MPROP WEPROP CWPROP2.
EXECUTE.

DATA LIST FILE='y:\philippines\data\census90\phil90std.dat'/
  prov 9-10 MUNICIP 11-12 URBAN 13 
 RELHH 23-24 AGE 25-27  MARSTAT 29 
 LANG 35-36 POB 37-38
 PORESID 49-50  LIT 54 SCATT 55  HILEVEL 60-61 
 USOCC 64-67 IND 68-70 P17A 41-42
 CEB 86-87 CS 88-89  
 AGEMARR 91-92  weight 100-104 
 MATCH 106 HAGE 109-111 HHILEVEL 144-145 
 HLIT 138 HSCATT 139 husocc 148-151 HIND 152-154 NKIDS 190 NUKIDS 200
 K1 TO K8 191-198 (A) UK1 TO UK8 201-208 (A) . 

compute wt=weight*(6013913)/(60559106).

COMPUTE DEGREE=0.
COMPUTE HDEGREE=0.
COMPUTE IM=0.

MISSING VALUES DEGREE HDEGREE IM (0).

RECODE RELHH (4 THRU 6=3)(7 THRU 8=4)(9 THRU 10=5)(11 THRU 19=6)(0=7).
RECODE MARSTAT (6=5).
RECODE HILEVEL HHILEVEL (30=31)(50 THRU 78=35).

COMPUTE MIG=-9.
DO IF (prov EQ P17A).
COMPUTE MIG=0.
ELSE IF (prov NE PORESID).
COMPUTE MIG=1.
END IF.

IF (P17A=0) MIG=0.

RECODE MIG (-9=2).

compute c1=0.
compute c2=0.
compute c3=0.
compute c4=0.
compute c5=0.
compute c6=0.
compute c7=0.
compute c8=0.
 
recode k1 (convert) ('T'=10) into c1.
recode k2 (convert) ('T'=10) into c2.
recode k3 (convert) ('T'=10) into c3.
recode k4 (convert) ('T'=10) into c4.
recode k5 (convert) ('T'=10) into c5.
recode k6 (convert) ('T'=10) into c6.
recode k7 (convert) ('T'=10) into c7.
recode k8 (convert) ('T'=10) into c8.

compute uc1=0.
compute uc2=0.
compute uc3=0.
compute uc4=0.
compute uc5=0.
compute uc6=0.
compute uc7=0.
compute uc8=0.

recode uk1 (convert) ('T'=10) into uc1.
recode uk2 (convert) ('T'=10) into uc2.
recode uk3 (convert) ('T'=10) into uc3.
recode uk4 (convert) ('T'=10) into uc4.
recode uk5 (convert) ('T'=10) into uc5.
recode uk6 (convert) ('T'=10) into uc6.
recode uk7 (convert) ('T'=10) into uc7.
recode uk8 (convert) ('T'=10) into uc8.
COMPUTE UC9=0.
COMPUTE UC10=0.
COMPUTE UC11=0.
COMPUTE UC12=0.
COMPUTE UC13=0.
COMPUTE UC14=0.
COMPUTE UC15=0.
COMPUTE UC16=0. 
 
COMPUTE YEAR=1990.

RECODE HILEVEL HHILEVEL (5000 THRU 5999=5000)(6000 THRU 6999=6000).
COMPUTE REGION=prov.
RECODE REGION
	(1=1)(2=10)(3=10)(4=6)(5=5)(6=6)(7=9)(8=3)
	(9=2)(10=4)(11=1)(12=7)(13=10)(14=3)(15=2)
	(16=5)(17=5)(18=10)(19=6)(20=5)(21=4)(22=7)
	(23=11)(24=11)(25=11)(26=8)(27=2)(28=1)
	(29=1)(30=6)(31=2)(32=2)(33=1)(34=4)(35=12)
	(36=12)(37=8)(38=12)(39=15)(40=4)(41=5)(42=10)
	(43=10)(44=1)(45=6)(46=7)(47=12)(48=8)(49=3)
	(50=2)(51=4)(52=4)(53=4)(54=3)(55=1)(56=4)
	(57=2)(58=4)(59=4)(60=8)(61=7)(62=5)(63=11)
	(64=8)(65=12)(66=9)(67=10)(68=11)(69=3)(70=9)
	(71=3)(72=9)(73=9)(77=6)(74=20)(75=20)(76=20).

recode region (20=15).

VALUE LABELS REGION
  	1 'Ilocos Region'       7  'Central Visayas'  
 	2 'Cagayan Valley'	8  'Eastern Visayas'  
  	3 'Central Luzon'	9  'Western Mindanao'
  	4 'Southern Tagalog'	10 'Northern Mindanao'
  	5 'Bicol'     	        11 'Southern Mindanao'
  	6 'Western Visayas'	12 'Central Mindanao' 
 	15 'Manila'		20 'Metro Mania'.

missing values prov to weight husocc (-9).   

RECODE PROV POB  (1=11)(2=12)(3=83)(4=13)(5=14)(6=15)(7=82)(8=16)
 (9=17)(10=18)(11=19)(12=21)(13=22)(14=23)(15=24)(16=25)(17=26)
 (18=27)(19=28)(20=29)(21=31)(22=32)(23=35)(24=36)(25=37)
 (26=71)(27=38)(28=39)(29=41)(30=42)(31=43)(32=44)(33=45)
 (34=46)(35=47)(36=48)(37=49)
 (38=33)(39=10)(40=52)(41=53)(42=54)(43=55)(44=56)(45=57)(46=58)
 (47=33)(48=72)(49=59)(50=61)(51=62)(52=63)(53=64)(54=65)(55=66)
 (56=67)(57=99)(58=68)(59=69)(60=73)
 (61=99)(62=74)(63=34)(64=51)(65=33)(66=75)
 (67=76)(68=77)(69=78)(70=75)(71=79)(72=82)(73=82)(74 THRU 76=10).

select if (age ge 15 and age le 49).
                           
COMPUTE PARITY=CS.
IF (PARITY GE 20 AND PARITY LE 98) PARITY=20.
MISSING VALUES PARITY (99).

COMPUTE YEAR=1990. 
SORT CASES BY PROV.

MATCH FILES TABLE='y:\philippines\data\contextuals\pcon90.sav'
 /FILE=* /BY PROV.

VALUE LABELS URBAN 1 'URBAN' 2 'RURAL'/ RELHH 1 'HEAD' 
  2 'WIFE/HUSBAND' 3 'SON/DAUGHTER' 4 'SON/DAUGHTER-IN-LAW' 
  5 'GRANDCHILD' 6 'OTHER RELATIVE' 7 'NOT RELATED'/ 
  MARSTAT 1 'SINGLE' 2 'MARRIED' 3 'WIDOWED' 
  4 'SEP-DIV' 5 'UNKNOWN' / LANG 1 'TAGALOG' 2 'CEBUANO' 
  3 'HILIGAYNON' 4 'ILOCO' 5 'PAMPANGO' 6 'PANGASINAN' 
  7 'SAMAR-LEYTE' 
  8 'BICOL' 9 'MAGINDANAO' 10 'MARANAO' 11 'OTHER' /HILEVEL HHILEVEL 
  00 'NONE' 11 '1ST GRADE' 12 '2ND GRADE' 
  13 '3RD GRADE' 14 '4TH GRADE' 15 '5TH GRADE' 
  16 '6TH AND 7TH GRADE' 21 '1ST YEAR HIGH' 
  22 '2ND YEAR HIGH' 23 '3RD YEAR HIGH' 
  24 '4TH YEAR HIGH' 31 '1ST YEAR COLLEGE' 32 '2ND YEAR COLLEGE' 
  33 '3RD YEAR COLLEGE' 34 '4TH YEAR COLLEGE'  35 '5TH PLUS COLLEGE'/ 
  LIT  HLIT 0 'NA' 1 'LITERATE' 2 'ILLITERATE'/ 
  DEGREE HDEGREE 0 'NO DEGREE' 998 'NA' 999 'MISSING'/ 
  MATCH 1 'HUSBAND MATCH' 0 'NO MATCH'/AGEMARR 0 'NA'/ 
  SCATT HSCATT 0 'NA' 1 'YES' 2 'NO'/CEB CS 98 'NA' 99 'MISSING'/  AGE HAGE 98    '98 AND OVER' 99 'MISSING'/ 
  PROV POB PORESID 10 'MANILA' 11 'ABRA' 
  12 'AGUSAN N' 13 'AKLAN' 14 'ALBAY' 15 'ANTIQUE' 16 'BATAAN' 
  17 'BATANES' 18 'BATANGAS' 19 'BENGUET' 21 'BOHOL' 
  22 'BUKIDNON'  23 'BULACAN' 24 'CAGAYAN' 25 'CAMARINES N' 
  26 'CAMARINES S' 27 'CAMIGUIN' 28 'CAPIZ' 29 'CATANDUANES' 
  31 'CAVITE' 32 'CEBU' 33 'COTABATO' 34 'S COTABATO' 
  35 'DAVAO'  36 'DAVAO S' 37 'DAVAO O' 
  38 'IFUGAO' 39 'ILOCOS N' 41 'ILOCOS S' 42 'ILOILO' 
  43 'ISABELA' 44 'K APAYAO' 45 'LA UNION' 46 'LAGUNA' 
  47 'LANAO N' 48 'LANAO S' 49 'LEYTE' 51 'S LEYTE' 
  52  'MARINDUQUE'  53 'MASBATE' 54 'MIS OCC' 55 'MIS OR' 
  56 'MT  PROV' 57 'NEG OCC' 58 'NEG OR' 
  59 'N ECIJA' 61 'NUEVA V' 62 'OCC MINDORO' 63 'OR MINDORO' 
  64 'PALAWAN' 65 'PAMPANGA' 66 'PANGASINAN' 67 'QUEZON' 
  68 'RIZAL'  69 'ROMBLON' 71 'E SAMAR' 72 'N SAMAR' 
  73 'SAMAR' 74 'SORSOGON' 
  75 'SULU' 76 'SURIGAO N' 77 'SURIGAO S' 78 'TARLAC' 
  79 'ZAMBALES'  81 'ZAMBOANGA N' 82 'ZAMBOANGA S' 83 'AGUSAN S' 
  88 'SAME PROV AND MUNICIP' 89 'SAME PROV DIFF MUNICIP' 
  97 'UNKNOWN' 99 'MISSING'. 
VARIABLE LABELS  PROV 'PROVINCE'/MUNICIP 'MUNICIPALITY' 
  /AGE 'AGE'/ AGEMARR 'AGE OF 1ST MARRIAGE' 
  /HAGE  'HUSBANDS AGE'/MARSTAT 'MARITAL STATUS' 
  /RELHH 'RELATIONSHIP TO HOUSEHOLD HEAD' 
  /HILEVEL 'EDUCATIONAL ATTAINMENT'/HHILEVEL 'HUSBANDS EDUC ATTAINMENT' 
  /SCATT 'SCHOOL ATTENDANCE'/HSCATT 'HUSBANDS SCHOOL ATTENDANCE' 
  /LIT 'LITERACY'/HLIT 'HUSBANDS LITERACY' 
  /POB 'PLACE OF BIRTH'/ PORESID 'PLACE OF RESIDENCE 5 YRS AGO' 
  /USOCC 'USUAL OCCUPATION'/HUSOCC 'HUSBANDS USUAL OCCUPATION' 
  /IND 'INDUSTRY'/HIND 'HUSBANDS INDUSTRY' 
  /DEGREE 'TYPE OF DEGREE' 
  /HDEGREE 'HUSBANDS TYPE OF DEGREE' 
  /CEB 'CHILDREN-EVER-BORN' 
  /CS 'CHILDREN STILL LIVING' 
  /MATCH 'HUSBAND MATCH' 
  /NKIDS 'NUMBER OF MATCHED CHILDREN'
  /NUKIDS 'NUMBER KIDS UNMATCHED' 
  /C1 'AGE OF IST MATCHED CHILD'/C2 'AGE OF 2ND MATCHED CHILD' 
  /C3 'AGE OF 3RD MATCHED CHILD'/C4 'AGE OF 4TH MATCHED CHILD' 
  /C5 'AGE OF 5TH MATCHED CHILD'/C6 'AGE OF 6TH MATCHED CHILD' 
  /C7 'AGE OF 7TH MATCHED CHILD'/C8 'AGE OF 8TH MATCHED CHILD' 
  /UC1 'AGE OF IST UNMATCHED CHILD'
  /UC2 'AGE OF 2ND UNMATCHED CHILD' 
  /UC3 'AGE OF 3RD UNMATCHED CHILD'
  /UC4 'AGE OF 4TH UNMATCHED CHILD' 
  /UC5 'AGE OF 5TH UNMATCHED CHILD'
  /UC6 'AGE OF 6TH UNMATCHED CHILD' 
  /UC7 'AGE OF 7TH UNMATCHED CHILD'
  /UC8 'AGE OF 8TH UNMATCHED CHILD' 
  /UC9 'AGE OF 9TH UNMATCHED CHILD'
  /UC10 'AGE OF 10TH UNMATCHED CHILD' 
  /UC11 'AGE OF 11TH UNMATCHED CHILD'
  /UC12 'AGE OF 12TH UNMATCHED CHILD' 
  /UC13 'AGE OF 13TH UNMATCHED CHILD'
  /UC14 'AGE OF 14TH UNMATCHED CHILD' 
  /UC15 'AGE OF 15TH UNMATCHED CHILD'
  /UC16 'AGE OF 16TH UNMATCHED CHILD' 
  /WT 'INDIVIDUAL WEIGHT' 
  /YEAR 'YEAR OF CENSUS'. 

EXPORT OUTFILE='y:\philippines\data\census90\phil90std.por'
   /KEEP=PROV MUNICIP URBAN AGE HAGE RELHH 
    MARSTAT HILEVEL HHILEVEL LIT HLIT POB PORESID SCATT HSCATT
    LANG USOCC HUSOCC IND HIND DEGREE HDEGREE AGEMARR CEB CS YEAR
    WT MATCH NKIDS NUKIDS C1 C2 C3 C4 C5 C6 C7 C8 UC1 UC2 UC3 UC4
    UC5 UC6 UC7 UC8 UC9 UC10 UC11 UC12 UC13 UC14 UC15 UC16
    MPROP WEPROP CWPROP2.
EXECUTE.