* DATE: JULY 9, 1999. * NAME: YIH-JIN YOUNG. * PURPOSE: THIS PROGRAM READS THE 1980 MATCHED WOMAN-CHILD DATASET. * CALLED th80.age10.data. * 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. THE PROGRAM ALSO INFLATES THE MEASURE. * OF FERTILITY TO TAKE INTO ACCOUNT THE PROVINCIAL LEVEL MORTALITY. * RATES. * DATA SOURCE: th80std.dat (SEE REFERENCE GUIDE FOR DETAILS). * OUTPUT FILE: TH80std.POR. set blanks=sysmis/undefined=nowarn /mxwarns=50000. DATA LIST FILE='y:\thailand\data\census80\th80std.dat' /REGION 8-9 PROVINCE 10-11 AMPHOE 12-13 URBAN 14-15 WT 26-32 (4) AGE 33-34 RELHH 35-36 MARSTAT 37-38 RELIGION 45-47 EDUC 51-52 HILEVEL 53-55 LITERACY 58-59 POB 64-67 PREVPROV 72-75 PREVDIST 76-79 LIVELOC 80-81 PREVMUN 82-83 AGEMAR 86-87 EVERUSE 94-95 CURRUSE 96-97 CEB 98-99 LIVEKID 104-105 DIED 110-111 USOCC 120-123 USIND 124-127 WKSTAT 128 OCC 129-131 MATCH 140 HAGE 141-142 HEDUC 143-144 HHILEVEL 145-147 HILIT 150-151 HUSOCC 154-157 HUSIND 158-161 HWKSTAT 162 HOCC 163-165 NKIDS 174 C1 TO C8 175-182 NUKIDS 183-184 UC1 TO UC8 185-192. COMPUTE WEIGHT=WT /114.090. * RECODE PROVINCIAL BOUNDARIES TO MAKE THEM CONSISTENT WITH 1970. DO IF (PROVINCE EQ 72 AND (AMPHOE EQ 2 OR AMPHOE EQ 4 OR AMPHOE EQ 5 OR AMPHOE EQ 6 OR AMPHOE EQ 7 OR AMPHOE EQ 9 OR AMPHOE EQ 16 OR AMPHOE EQ 19 OR AMPHOE EQ 22)). COMPUTE PROVINCE=17. ELSE IF (PROVINCE EQ 32). COMPUTE PROVINCE=12. ELSE IF (PROVINCE EQ 43). COMPUTE PROVINCE=71. ELSE IF (PROVINCE EQ 72). COMPUTE PROVINCE=32. ELSE IF (PROVINCE EQ 17). COMPUTE PROVINCE=18. ELSE IF (PROVINCE EQ 18). COMPUTE PROVINCE=19. ELSE IF (PROVINCE EQ 23). COMPUTE PROVINCE=24. ELSE IF (PROVINCE EQ 27). COMPUTE PROVINCE=28. ELSE IF (PROVINCE EQ 28). COMPUTE PROVINCE=29. ELSE IF (PROVINCE EQ 29). COMPUTE PROVINCE=30. ELSE IF (PROVINCE EQ 31). COMPUTE PROVINCE=33. ELSE IF (PROVINCE EQ 37). COMPUTE PROVINCE=38. ELSE IF (PROVINCE EQ 22). COMPUTE PROVINCE=23. ELSE IF (PROVINCE EQ 25). COMPUTE PROVINCE=26. ELSE IF (PROVINCE EQ 35). COMPUTE PROVINCE=36. ELSE IF (PROVINCE EQ 36). COMPUTE PROVINCE=37. ELSE IF (PROVINCE EQ 38). COMPUTE PROVINCE=39. ELSE IF (PROVINCE EQ 39). COMPUTE PROVINCE=40. ELSE IF (PROVINCE EQ 42). COMPUTE PROVINCE=43. ELSE IF (PROVINCE EQ 19). COMPUTE PROVINCE=20. ELSE IF (PROVINCE EQ 20). COMPUTE PROVINCE=21. ELSE IF (PROVINCE EQ 26). COMPUTE PROVINCE=27. ELSE IF (PROVINCE EQ 41). COMPUTE PROVINCE=42. ELSE IF (PROVINCE EQ 21). COMPUTE PROVINCE=22. ELSE IF (PROVINCE EQ 24). COMPUTE PROVINCE=25. ELSE IF (PROVINCE EQ 30). COMPUTE PROVINCE=31. ELSE IF (PROVINCE EQ 33). COMPUTE PROVINCE=34. ELSE IF (PROVINCE EQ 34). COMPUTE PROVINCE=35. ELSE IF (PROVINCE EQ 40). COMPUTE PROVINCE=41. END IF. DO IF (POB EQ 72 AND (AMPHOE EQ 2 OR AMPHOE EQ 4 OR AMPHOE EQ 5 OR AMPHOE EQ 6 OR AMPHOE EQ 7 OR AMPHOE EQ 9 OR AMPHOE EQ 16 OR AMPHOE EQ 19 OR AMPHOE EQ 22)). COMPUTE POB=17. ELSE IF (POB EQ 32). COMPUTE POB=12. ELSE IF (POB EQ 43). COMPUTE POB=71. ELSE IF (POB EQ 72). COMPUTE POB=32. ELSE IF (POB EQ 17). COMPUTE POB=18. ELSE IF (POB EQ 18). COMPUTE POB=19. ELSE IF (POB EQ 23). COMPUTE POB=24. ELSE IF (POB EQ 27). COMPUTE POB=28. ELSE IF (POB EQ 28). COMPUTE POB=29. ELSE IF (POB EQ 29). COMPUTE POB=30. ELSE IF (POB EQ 31). COMPUTE POB=33. ELSE IF (POB EQ 37). COMPUTE POB=38. ELSE IF (POB EQ 22). COMPUTE POB=23. ELSE IF (POB EQ 25). COMPUTE POB=26. ELSE IF (POB EQ 35). COMPUTE POB=36. ELSE IF (POB EQ 36). COMPUTE POB=37. ELSE IF (POB EQ 38). COMPUTE POB=39. ELSE IF (POB EQ 39). COMPUTE POB=40. ELSE IF (POB EQ 42). COMPUTE POB=43. ELSE IF (POB EQ 19). COMPUTE POB=20. ELSE IF (POB EQ 20). COMPUTE POB=21. ELSE IF (POB EQ 26). COMPUTE POB=27. ELSE IF (POB EQ 41). COMPUTE POB=42. ELSE IF (POB EQ 21). COMPUTE POB=22. ELSE IF (POB EQ 24). COMPUTE POB=25. ELSE IF (POB EQ 30). COMPUTE POB=31. ELSE IF (POB EQ 33). COMPUTE POB=34. ELSE IF (POB EQ 34). COMPUTE POB=35. ELSE IF (POB EQ 40). COMPUTE POB=41. END IF. DO IF (PREVPROV EQ 72 AND (PREVDIST EQ 2 OR PREVDIST EQ 4 OR PREVDIST EQ 5 OR PREVDIST EQ 6 OR PREVDIST EQ 7 OR PREVDIST EQ 9 OR PREVDIST EQ 16 OR PREVDIST EQ 19 OR PREVDIST EQ 22)). COMPUTE PREVPROV=17. ELSE IF (PREVPROV EQ 32). COMPUTE PREVPROV=12. ELSE IF (PREVPROV EQ 43). COMPUTE PREVPROV=71. ELSE IF (PREVPROV EQ 72). COMPUTE PREVPROV=32. ELSE IF (PREVPROV EQ 17). COMPUTE PREVPROV=18. ELSE IF (PREVPROV EQ 18). COMPUTE PREVPROV=19. ELSE IF (PREVPROV EQ 23). COMPUTE PREVPROV=24. ELSE IF (PREVPROV EQ 27). COMPUTE PREVPROV=28. ELSE IF (PREVPROV EQ 28). COMPUTE PREVPROV=29. ELSE IF (PREVPROV EQ 29). COMPUTE PREVPROV=30. ELSE IF (PREVPROV EQ 31). COMPUTE PREVPROV=33. ELSE IF (PREVPROV EQ 37). COMPUTE PREVPROV=38. ELSE IF (PREVPROV EQ 22). COMPUTE PREVPROV=23. ELSE IF (PREVPROV EQ 25). COMPUTE PREVPROV=26. ELSE IF (PREVPROV EQ 35). COMPUTE PREVPROV=36. ELSE IF (PREVPROV EQ 36). COMPUTE PREVPROV=37. ELSE IF (PREVPROV EQ 38). COMPUTE PREVPROV=39. ELSE IF (PREVPROV EQ 39). COMPUTE PREVPROV=40. ELSE IF (PREVPROV EQ 42). COMPUTE PREVPROV=43. ELSE IF (PREVPROV EQ 19). COMPUTE PREVPROV=20. ELSE IF (PREVPROV EQ 20). COMPUTE PREVPROV=21. ELSE IF (PREVPROV EQ 26). COMPUTE PREVPROV=27. ELSE IF (PREVPROV EQ 41). COMPUTE PREVPROV=42. ELSE IF (PREVPROV EQ 21). COMPUTE PREVPROV=22. ELSE IF (PREVPROV EQ 24). COMPUTE PREVPROV=25. ELSE IF (PREVPROV EQ 30). COMPUTE PREVPROV=31. ELSE IF (PREVPROV EQ 33). COMPUTE PREVPROV=34. ELSE IF (PREVPROV EQ 34). COMPUTE PREVPROV=35. ELSE IF (PREVPROV EQ 40). COMPUTE PREVPROV=41. END IF. * RECODE RELATION TO HOUSEHOLD HEAD. DO IF (RELHH EQ 4). COMPUTE RELHH=3. ELSE IF (RELHH EQ 5). COMPUTE RELHH=6. ELSE IF (RELHH EQ 6). COMPUTE RELHH=4. ELSE IF (RELHH GE 7 AND RELHH LE 10). COMPUTE RELHH=5. ELSE IF (RELHH EQ 11). COMPUTE RELHH=7. ELSE IF (RELHH EQ 12). COMPUTE RELHH=8. ELSE IF (RELHH EQ 13). COMPUTE RELHH=10. ELSE IF (RELHH EQ 14). COMPUTE RELHH=9. END IF. RECODE HILEVEL HHILEVEL (1=0) (91=99)/EDUC HEDUC (1=0). RECODE URBAN (01 THRU 29=1) (31 THRU 49=2) (51 THRU 69=3) (71 THRU 79=4) (91 THRU 99=5). DO IF (WKSTAT EQ 3 OR WKSTAT EQ 4). COMPUTE WKSTAT=3. ELSE IF (WKSTAT EQ 5). COMPUTE WKSTAT=4. ELSE IF (WKSTAT EQ 6). COMPUTE WKSTAT=5. END IF. DO IF (HWKSTAT EQ 3 OR HWKSTAT EQ 4). COMPUTE HWKSTAT=3. ELSE IF (HWKSTAT EQ 5). COMPUTE HWKSTAT=4. ELSE IF (HWKSTAT EQ 6). COMPUTE HWKSTAT=5. END IF. RECODE POB PREVPROV (81 THRU 98=81). DO IF (LIVELOC GE 5 AND LIVELOC LE 9). COMPUTE LIVELOC=5. ELSE IF (LIVELOC GE 10 AND LIVELOC LE 14). COMPUTE LIVELOC=6. ELSE IF (LIVELOC GE 15 AND LIVELOC LE 19). COMPUTE LIVELOC=7. ELSE IF (LIVELOC GE 20 AND LIVELOC LE 98). COMPUTE LIVELOC=8. ELSE IF (LIVELOC EQ 99). COMPUTE LIVELOC=9. END IF. *FERTILITY MEASURE FOR CHILDREN AGE 0-2. COMPUTE OWN=0. COUNT OWN=C1 TO C8(0,1,2). SORT CASES BY PROVINCE. COMPUTE YEAR=1980. VALUE LABELS POB PROVINCE PREVPROV 1 'KRABI' 2 'KANCHANABURI' 3 'KALASIN' 4 'KAMPHAENG PHET' 5 'KHON KAEN' 6 'CHANTHA BURI' 7 'CHCHOENGSAO' 8 'CHON BURI' 9 'CHAINAT' 10 'CHAIYAPHUM' 11 'CHUMPHON' 12 'CHAING RAI' 13 'CHIANG MAI' 14 'TRANG' 15 'TRAT' 16 'TAK' 17 'THON BURI' 18 'NAKHON NAYOK' 19 'NAKHON PATHOM' 20 'NAKHON PHANOM' 21 'NAKHON RATCHASIMA' 22 'NAKHON SI THAMMARAT' 23 'NAKHON SAWAN' 24 'NONTHABURI' 25 'NARATHIWAT' 26 'NAN' 27 'BURI RAM' 28 'PATHUM THANI' 29 'PRACHUAP KHIRI KHAN' 30 'PRACHIN BURI' 31 'PATTANI' 32 'BANGKOK' 33 'PRA NAKHON SI AYUTT' 34 'PHANGNGA' 35 'PHATTHALUNG' 36 'PHICIT' 37 'PHITSANULOK' 38 'PETCHABURI' 39 'PETCHABUN' 40 'PHRAE' 41 'PHUKET' 42 'MAHA SARAKAM' 43 'MAE HONG SON' 44 'YALA' 45 'ROI ET' 46 'RANONG' 47 'RAYONG' 48 'RATCHABURI' 49 'LOP BURI' 50 'LAMPANG' 51 'LAM PHUN' 52 'LOEI' 53 'SI SA KET' 54 'SAKON NAKHON' 55 'SONGKHALA' 56 'SATUN' 57 'SAMUT PRAKAN' 58 'SAMUT SONGKHRAM' 59 'SAMUT SAKHON' 60 'SARABURI' 61 'SING BURI' 62 'SUKHOTHAI' 63 'SUPHAN BURI' 64 'SURAT THANI' 65 'SURIN' 66 'NONG KAI' 67 'ANG THONG' 68 'UDON THANI' 69 'UTTARADIT' 70 'UTHAI THANI' 71 'UBON RATCHATHANI' 79 'OTHER PROVINCE' 81 'ABROAD' 99 'UNKNOWN' /REGION 1 'BANGKOK' 2 'CENTRAL' 3 'NORTH' 4 'NORTHEAST' 5 'SOUTH' /URBAN 1 'RURAL' 2 'BANGKOK' 3 'CITY' 4 'TOWN' 5 'TAMBON' /PREVMUN 1 'RURAL' 2 'URBAN' 9 'UNKNOWN' /LIVELOC 0 'LESS THAN 1 YEAR' 1 '1-1.9 YEARS' 2 '2-2.9 YEARS' 3 '3-3.9 YEARS' 4 '4-4.9 YEARS' 5 '5-9.9 YEARS' 6 '10-14.9 YEARS' 7 '15-19.9 YEARS' 8 '20 YEARS AND OVER' 9 'UNKNOWN' /RELHH 1 'HEAD OF HOUSEHOLD' 2 'SPOUSE' 3 'CHILD' 4 'SON OR DAU-IN-LAW' 5 'OTHER RELS' 6 'ADOPTED CHILD' 7 'NON-RELATIVES' 8 'SERVANT' 9 'NON-INMATE' 10 'INMATE' /MARSTAT 1 'NEVER MARRIED' 2 'MARRIED' 3 'WIDOWED' 4 'DIVORCED' 5 'SEPARATED' 6 'UNKNOWN, PREV MARR' 7 'MONKS' 9 'UNKNOWN' /RELIGION 1 'BUDDHIST' 2 'CONFUCIST' 3 'ISLAM' 4 'CHRISTAN' 5 'HINDU' 6 'OTHER' 7 'NONE' 9 'UNKNOWN' /WKSTAT HWKSTAT 0 'NOT IN LF-NOT STATED' 1 'EMPLOYER' 2 'SELF-EMPLOYED' 3 'GOVERNMENT EMPLOYEE' 4 'PRIVATE EMPLOYEE' 5 'FAMILY WORKER' 9 'UNKNOWN' /MATCH 0 'NO HUSBAND MATCH' 1 'HUSBAND MATCH' /AGEMAR 98 '98 AND OVER' 99 'UNKNOWN'. VARIABLE LABELS PROVINCE 'PROVINCE' /REGION '1980 REGION' /AMPHOE 'DISTRICT' /WEIGHT 'Individual deflated weighting factor' /AGE 'Age' /EDUC 'Highest Grade Level' /HILEVEL 'Grade Level Attended' /POB 'Place of Birth' /PREVPROV 'Province of previous residence' /PREVDIST 'District of previous residence' /LIVELOC 'Length of residence' /PREVMUN 'Municipality of previous residence' /AGEMAR 'Age at marriage' /MARSTAT 'Marital status' /EVERUSE 'Practice family planning' /CURRUSE 'Type of family planning' /CEB 'Number of children ever born' /LIVEKID 'Number of living children' /DIED 'Number of children died' /USOCC 'Usual occupation-last year' /USIND 'Usual industry - last year' /WKSTAT 'Work status' /OCC 'Occupation last week' /MATCH 'Matched data with husband' /URBAN 'MUNICIPAL-NONMUNICIPAL STATUS' /HAGE 'HUSBANDS AGE' /RELHH 'RELATIONSHIP TO HOUSEHOLD HEAD' /RELIGION 'RELIGION' /HHILEVEL 'HUSBANDS SCHOOL GRADE ATTENDED' /HEDUC 'HUSBANDS HIGHEST GRADE COMPLETED' /HOCC 'HUSBANDS LAST WEEK OCCUPATION' /HUSOCC 'HUSBANDS USUAL OCCUPATION' /HUSIND 'HUSBANDS USUAL INDUSTRY' /HWKSTAT 'HUSBANDS WORK STATUS' /OWN 'Number of children 0-2 years old' /NKIDS 'NUMBER OF MATCHED CHILDREN' /NUKIDS 'NUMBER OF UNMATCHED CHILDREN' /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' /YEAR 'YEAR OF CENSUS'. * TO SAVE THE DATA FILE INTO A PORTABLE FILE, KEEPING ONLY. * THE NEEDED VARIABLES. EXPORT OUTFILE='y:\thailand\data\census80\TH80STD.POR'/KEEP= REGION PROVINCE URBAN AGE HAGE RELHH MARSTAT RELIGION HILEVEL HHILEVEL POB EDUC HEDUC PREVPROV PREVMUN LIVELOC OCC HOCC USOCC HUSOCC USIND HUSIND WKSTAT HWKSTAT CEB MATCH OWN NKIDS NUKIDS C1 C2 C3 C4 C5 C6 C7 C8 UC1 UC2 UC3 UC4 UC5 UC6 UC7 UC8 WEIGHT AGEMAR YEAR. EXECUTE.