*DATE: JULY 5, 1999. *NAME: YIH-JIN YOUNG. *PURPOSE: THIS PROGRAM READS THE 1970 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: PHIL70STD.DAT (SEE REFERENCE GUIDE FOR DETAILS). *OUTPUT FILE: PHIL70STD.POR. set blanks=sysmis/undefined=nowarn /mxwarns=6000000. file handle new /name='y:\philippines\data\census70\phil70std.dat' /mode=image /lrecl=200. DATA LIST FILE=new FIXED /PROV 16-19 MUNICIP 12-15 URBAN 24 WEIGH 28-32 (2) AGE 33-34 RELHH 35-36 MARSTAT 37-38 LANG 42-44 HILEVEL 51-52 LIT 58-59 SCATT 60-61 DEGREE 56-57 HDEGREE 148-149 POB 64-67 MOB 68-71 PORESID 80-81 MORESID 82-85 AGEMARR 86-87 CEBM 100-101 CEBF 102-103 CSM 106-107 CSF 108-109 USOCC 136-139 IND 124-127 MATCH 140 HAGE 141-142 HHILEVEL 143-144 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 .67. COMPUTE WT=WEIGH/22.21. RECODE HAGE AGE (99=98) (-9=99) /HILEVEL HHILEVEL (17=16) (36=35)(-8=98)/HLIT LIT (8=0) /HSCATT SCATT (8=0)/AGEMARR (-8=0) /USOCC HUSOCC (-10=-88) /LANG (11 THRU 99=11). IF (POB LE 9 OR (POB GE 84 AND POB LE 87) OR (POB GE 90 AND POB LE 96)) POB=99. IF (PORESID LE 9 OR (PORESID GE 84 AND PORESID LE 87) OR (PORESID GE 90 AND PORESID LE 96)) PORESID=99. DO IF (RELHH EQ 7). COMPUTE RELHH=6. ELSE IF (RELHH EQ 8). COMPUTE RELHH=7. END IF. DO IF (MARSTAT EQ 5). COMPUTE MARSTAT=4. ELSE IF (MARSTAT EQ 6). COMPUTE MARSTAT=5. END IF. DO IF (POB EQ PROV AND MOB EQ MUNICIP). COMPUTE POB=88. ELSE IF (POB EQ PROV AND MOB NE MUNICIP). COMPUTE POB=89. END IF. DO IF (PORESID EQ PROV AND MORESID EQ MUNICIP). COMPUTE PORESID=88. ELSE IF (PORESID EQ PROV AND MORESID NE MUNICIP). COMPUTE PORESID=89. END IF. DO IF (CEBM EQ -8 OR CEBF EQ -8). COMPUTE CEB=98. ELSE IF (CEBM EQ -9 OR CEBF EQ -9). COMPUTE CEB=99. ELSE. COMPUTE CEB=CEBM+CEBF. END IF. DO IF (CSM EQ -8 OR CSF EQ -8). COMPUTE CS=98. ELSE IF (CSM EQ -9 OR CSF EQ -9). COMPUTE CS=99. ELSE. COMPUTE CS=CSM+CSF. END IF. RECODE CEB CS (20 THRU 97=99). RECODE DEGREE HDEGREE (-8=998) (-9=999). COMPUTE YEAR=1970. 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\census70\phil70std.por' /KEEP=PROV MUNICIP URBAN AGE HAGE RELHH MARSTAT HILEVEL HHILEVEL LIT HLIT POB PORESID SCATT HSCATT LANG USOCC HUSOCC IND HIND AGEMARR CEB CS YEAR WT MATCH DEGREE HDEGREE 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.