*DATE: JULY 5, 1999.
*NAME: YIH-JIN YOUNG.
*PURPOSE:  THIS PROGRAM READS THE 1980 MATCHED WOMAN-CHILD DATASET. 
*           AND OUTPUTS AN SPSS ANALYSIS FILE.  THE PROGRAM RECODES.
*           THE WEIGHT VARIABLE, PUTS VALUE LABELS ON VARIABLES,.
*           COMPUTES AN AGE AT FIRST MARRIAGE, AND ADDS A VARIABLE.
*           FOR YEAR OF CENSUS.
*DATA SOURCE: PHIL80STD.DAT (SEE REFERENCE GUIDE FOR DETAILS).
*OUTPUT FILE: PHIL80STD.POR.

set blanks=sysmis/undefined=nowarn /mxwarns=6000000.
file handle new /name='y:\philippines\data\census80\phil80std.dat'
 /mode=image
 /lrecl=200.
 
DATA LIST FILE=new FIXED
 /PROV 16-19 MUNICIP 12-15 WEIGH 29-32 
  URBAN 24 LANG 42-44 AGE 33-34 RELHH 35-36 MARSTAT 37-38 
  HILEVEL 53-55 LIT 58-59 SCATT 60-61 POB 64-67 PORESID 72-75 
  DEGREE 53-55 HDEGREE 145-147 
  CEBM 100-101 CEBF 102-103 CSM 106-107 CSF 108-109 
  USOCC 120-123 IND 124-127 MATCH 140 HAGE 141-142 HHILEVEL 
  145-147 AGEMARR 86-87 HLIT 150-151 HSCATT 152-153 
  HUSOCC 154-157 HIND 158-161 
  NKIDS 174 C1 TO C8 175-182 NUKIDS 183-184 UC1 TO UC16 185-200.
 
SAMPLE .50. 
DO IF (PROV EQ 69). 
COMPUTE WT=(WEIGH/5.283)*1.267185. 
ELSE IF (PROV EQ 53). 
COMPUTE WT=(WEIGH/5.283)*1.057893. 
ELSE. 
COMPUTE WT=WEIGH/5.283. 
END IF.
 
RECODE PROV (01=11) (02=12) (03=83) (04=13) (05=14) (06=15) 
  (07=82) (08=16) (09=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=90) (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=61) (58=68) (59=69) (60=73) (61=58) (62=74) (63=34) 
  (64=51) (65=33) (66=75) (67=76) (68=77) (69=78) (70=75) 
  (71=79) (72=81) (73=82) (77=67). 
DO IF (PROV EQ 90 AND MUNICIP EQ 1). 
COMPUTE PROV=10. 
ELSE IF (PROV EQ 90 AND MUNICIP EQ 17). 
COMPUTE PROV=23. 
ELSE IF (PROV EQ 90). 
COMPUTE PROV=68. 
END IF.
 
RECODE POB PORESID (01=11) (02=12) (03=83) (04=13) (05=14)
  (06=15) (07=82) (08=16) (09=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=61) (58=68) (59=69) (60=73) (61=58) (62=74) (63=34) 
  (64=51) (65=33) (66=75) (67=76) (68=77) (69=78) (70=75) 
  (71=79) (72=81) (73=82) (77=67) (74=68) (75=68) (76=68) 
  (88=88) (89=89) (97=97) (ELSE=99). 

RECODE LANG (88=01)(22=02)(35=03)(42=04)(74=05)(75=06)(82=07) 
    (12=08)(58=09)(66=10)(ELSE=11)/ 
    HAGE AGE (99 THRU 199= 98)/ 
    HILEVEL HHILEVEL (000=00)(110=11)(120=12)(130=13)(140=14) 
    (150=15)(160=16)(210=21)(220=22)(230=23)(240=24)
    (310=31)(320=32)(330=33)(340=34)(350 THRU 993=35) (998=98)(999=99)/ 
    USOCC HUSOCC (121, 125=129). 

DO IF (RELHH EQ 4). 
COMPUTE RELHH=3. 
ELSE IF (RELHH GE 5 AND RELHH LE 6). 
COMPUTE RELHH=4. 
ELSE IF (RELHH GE 7 AND RELHH LE 8). 
COMPUTE RELHH=5. 
ELSE IF (RELHH EQ 9). 
COMPUTE RELHH=6. 
ELSE IF (RELHH EQ 0). 
COMPUTE RELHH=7. 
END IF.
 
DO IF (CEBM EQ 98 OR CEBF EQ 98). 
COMPUTE CEB=98. 
ELSE IF (CEBM EQ 99 OR CEBF EQ 99). 
COMPUTE CEB=99. 
ELSE.
COMPUTE CEB=CEBM+CEBF. 
END IF.
 
DO IF (CSM EQ 98 OR CSF EQ 98). 
COMPUTE CS=98.
ELSE IF (CSM EQ 99 OR CSF EQ 99). 
COMPUTE CS=99. 
ELSE. 
COMPUTE CS=CSM+CSF. 
RECODE CEB CS (20 THRU 97=99). 
END IF.
 
RECODE DEGREE HDEGREE (400 THRU 452=92) (453 THRU 492=93) 
 (500,502 THRU 520, 522 THRU 536=72) (501,521,537=32) 
 (538 THRU 540, 581=35) (541 THRU 580=74) (600 THRU 604, 608 THRU  654=22)
 (605 THRU 607=28) (655,664,665=27) (656,666,676=24) (657,658,660,661=26)        
 (659,662,663,667 THRU 675,687=23) (677 THRU 686, 783=56) (700 THRU 759=52)      
 (760,761,767 THRU 776,779 THRU 782, 784 THRU 793=53)
 (762 THRU 764, 777, 778, 796 THRU 798, 945 THRU 955=58)  (957,958,960,961,963,972,977,987,990=58) 
 (765,766,794,795=57) (799,978=54)(800 THRU 861=62) (862=87)  
 (863, 867 THRU 872=88) (864 THRU 866=86) (873=82)   (874=85)  (875=83) (876=84) (877 THRU 879=86) (880 THRU 892, 895 THRU 898=64)  
 (893 THRU 894=63) (900 THRU 944=12) (956,959,976,979,984=55) (962=15)           
 (964,988=16) (965 THRU 968, 989,993=17) (969, 980 THRU 981=43) (970=58) 
 (971,985=36) (973 THRU 975=44) (982 THRU 983, 986=64) (991 THRU  992=39)
 (000 THRU 993=00). 
COMPUTE YEAR=1980. 
SORT CASES BY PROV.

MATCH FILES TABLE='y:\philippines\data\contextuals\pcon78.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\census80\phil80std.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
   MAR170 MAR370 E470 W770  SEXRAT70 FIM70 WIM70 
   CP70 LIGHT70 WATER70 RADIO70 TOILET70 URBAN70 WORK70 
   MAR180 MAR380 E480 W780  SEXRAT80 FIM80 WIM80 
   CP80 LIGHT80 WATER80 RADIO80 TOILET80 URBAN80 WORK80 
   CHSCL170 CHSCL270 CHWORK70 CHSCL180 CHSCL280 CHWORK80. 
EXECUTE.