* DATE: DEC 1, 1994. * NAME: YIH-JIN YOUNG. * PURPOSE: THIS PROGRAM READS THE 1985 MATCHED WOMAN-CHILD DATASET (SPC). * AND OUTPUTS AN SPSS ANALYSIS FILE. THE PROGRAM RECODES. * THE PROVINCE VARIABLE, PUTS VALUE LABELS ON VARIABLES,. * COMPUTES AN AGE AT FIRST MARRIAGE AND WEIGHT VARIABLE AND. * ADDS A VARIABLE FOR YEAR OF CENSUS. * DATA SOURCE: TH85STD.DAT (SEE REFERENCE GUIDE FOR DETAILS). * OUTPUT FILE: TH85STD.POR. * FOR MORE INFORMATION ABOUT THE STANDARD FILE, SEE REFERENCE GUIDE. * TH85STD.DAT IS STORED IN TAPE CH052C, FILE # 5. * TO READ THE DATA FROM TAPE TO DISK, FOLLOW THE FOLLOWING INSTRUCTION. * MOUNT TAPE CH052C. * UNDER MEAD prompt, type in tmr -v ch052c. * mead1% tmr -v ch052c. * AFTER THE TAPE IS MOUNTED, TYPE IN THE FOLLOWING THREE COMMAND LINES: * _mead1% mt -f $RMT rewind. * _mead1% mt -f $RMT_NR fsf 13. * _mead1% dd if=$RMT_NR of=TH85STD.DAT conv=ascii ibs=32680 obs=86. * THE SIZE OF THE FILE, TH85STD.DAT IS 8356620. *edit. set length=99999. set header=off. set blanks=sysmis/undefined=nowarn /mxwarns=6000000. file handle new /name='y:\thailand\data\census85\th85std.dat' /mode=image /lrecl=86. DATA LIST FILE=new FIXED /REGION 9 PROVINCE 10-11 AMPHOE 12-13 URBAN 14-15 AGE 22-23 RELHH 24-25 MARSTAT 26 LIVELOC 27 EDUC 28-29 CEB 32-33 USOCC 42-43 USIND 44-45 WKSTAT 46 MATCH 48 HAGE 49-50 HEDUC 51-52 HUSOCC 53-54 HUSIND 55-56 HWKSTAT 57 NKIDS 60 CC1 61 (A) CC2 62 (A) CC3 63 (A) CC4 64 (A) CC5 65 (A) CC6 66 (A) CC7 67 (A) CC8 68 (A) NUKIDS 70 KK1 71 (A) KK2 72 (A) KK3 73 (A) KK4 74 (A) KK5 75 (A) KK6 76 (A) KK7 77 (A) KK8 78 (A) KK9 79 (A) KK10 80 (A) KK11 81 (A) KK12 82 (A) KK13 83 (A) KK14 84 (A) KK15 85 (A) KK16 86 (A) LIVEKID 34-35. RECODE REGION (3=4)(4=3). RECODE PROVINCE (72=32)(18=19)(23=24)(28=29)(29=30) (19=20)(20=21)(26=27)(41=42)(31=33)(22=23)(25=26) (32=12)(35=36)(36=37)(38=39)(39=40)(21=22)(24=25) (30=31)(34=35). RECODE URBAN (01 THRU 29=1) (31 THRU 49=2) (51 THRU 69=3) (71 THRU 90=4) (91 THRU 99=5). RECODE RELHH (4=6)(5=4)(6 THRU 9=5)(10=7)(11=8)(12=9). RECODE MARSTAT (5=6)(6=7). RECODE WKSTAT HWKSTAT (1=4)(2=3)(3=1)(4=2)(6=3). IF (USOCC LT 98 AND USIND EQ 99) USIND EQ 90. IF (USOCC EQ 99) USIND EQ 99. IF (HUSOCC LT 98 AND HUSIND EQ 99) HUSIND EQ 90. IF (HUSOCC EQ 99) HUSIND EQ 99. RECODE CC1 (CONVERT) ('T' = 10) INTO C1. RECODE CC2 (CONVERT) ('T' = 10) INTO C2. RECODE CC3 (CONVERT) ('T' = 10) INTO C3. RECODE CC4 (CONVERT) ('T' = 10) INTO C4. RECODE CC5 (CONVERT) ('T' = 10) INTO C5. RECODE CC6 (CONVERT) ('T' = 10) INTO C6. RECODE CC7 (CONVERT) ('T' = 10) INTO C7. RECODE CC8 (CONVERT) ('T' = 10) INTO C8. RECODE KK1 (CONVERT) ('T' = 10) INTO UC1. RECODE KK2 (CONVERT) ('T' = 10) INTO UC2. RECODE KK3 (CONVERT) ('T' = 10) INTO UC3. RECODE KK4 (CONVERT) ('T' = 10) INTO UC4. RECODE KK5 (CONVERT) ('T' = 10) INTO UC5. RECODE KK6 (CONVERT) ('T' = 10) INTO UC6. RECODE KK7 (CONVERT) ('T' = 10) INTO UC7. RECODE KK8 (CONVERT) ('T' = 10) INTO UC8. RECODE KK9 (CONVERT) ('T' = 10) INTO UC9. RECODE KK10 (CONVERT) ('T' = 10) INTO UC10. RECODE KK11 (CONVERT) ('T' = 10) INTO UC11. RECODE KK12 (CONVERT) ('T' = 10) INTO UC12. RECODE KK13 (CONVERT) ('T' = 10) INTO UC13. RECODE KK14 (CONVERT) ('T' = 10) INTO UC14. RECODE KK15 (CONVERT) ('T' = 10) INTO UC15. RECODE KK16 (CONVERT) ('T' = 10) INTO UC16. SELECT IF (REGION GE 1) AND (REGION LE 5). * THIS 'SELECT IF' COMMAND ELIMINATES ONE CASE WITH ALL MISSING VALUES. SORT CASES BY PROVINCE. * THIS IS THE OLD FERTILITY MEASURE FOR CHILDREN AGE 0-2 *. COMPUTE OWN=0. COUNT OWN=C1 TO C8(0,1,2). COMPUTE YEAR=1985. * THE SPC DATA FILE DO NOT CONTAIN THE FOLLOWING VARIABLES:. * AGE AT FIRST MARRIAGE, RELIGION, HILEVEL PLACE OF BIRTH, PREVIOUS. * PROVINCE, PREVIOUS RURAL-URBAN RESIDENCE, HUSBAND AND WIFE'S LASK. * WEEK OCCUPATION, WEIGHT. * THE NEXT FEW COMMANDS CREATE THOSE VARIABLES AND GIVE THEM A VALUE. * OF ZERO. COMPUTE AGEMAR=0. COMPUTE RELIGION=0. COMPUTE HILEVEL=0. COMPUTE HHILEVEL=0. COMPUTE POB=0. COMPUTE PREVPROV=0. COMPUTE PREVMUN=0. COMPUTE HOCC=0. COMPUTE OCC=0. * ASSIGN APPROPRIATE WEIGHTS TO EACH CASE BASED ON P.3 OF SPC CODEBOOK*. COMPUTE WEIGHT = 0. DO IF (REGION = 1). COMPUTE WEIGHT = .72. /* BANGKOK */ ELSE IF (REGION = 2 AND URBAN GE 3). COMPUTE WEIGHT = .16. /* CENTRAL & MUNICIPAL */ ELSE IF (REGION = 2 AND URBAN = 1). COMPUTE WEIGHT = 1.6. /* CENTRAL & NON-MUNICIPAL */ ELSE IF (REGION = 3 AND URBAN GE 3). COMPUTE WEIGHT = .16. /* NORTH & MUNICIPAL */ ELSE IF (REGION = 3 AND URBAN = 1). COMPUTE WEIGHT = 1.6. /* NORTH & NON-MUNICIPAL */ ELSE IF (REGION = 4 AND URBAN GE 3). COMPUTE WEIGHT = .16. /* NORTHEAST & MUNICIPAL */ ELSE IF (REGION = 4 AND URBAN = 1). COMPUTE WEIGHT = 2.4. /* NORTHEAST & NON-MUNICIPAL */ ELSE IF (REGION = 5 AND URBAN GE 3). COMPUTE WEIGHT = .16. /* SOUTH & MUNICIPAL */ ELSE IF (REGION = 5 AND URBAN = 1). COMPUTE WEIGHT = 1.2. /* SOUTH & NON-MUNICIPAL */ END IF. VALUE LABELS PROVINCE 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' /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'. VARIABLE LABELS PROVINCE 'PROVINCE'/REGION '1980 REGION' /URBAN 'MUNICIPAL-NONMUNICIPAL STATUS'/AGE 'AGE' /HAGE 'HUSBANDS AGE'/MARSTAT 'MARITAL STATUS' /RELHH 'RELATIONSHIP TO HOUSEHOLD HEAD' /RELIGION 'RELIGION' /PREVPROV 'PREVIOUS PROVINCE' /PREVMUN 'PREVIOUS MUNICIPALITY' /HILEVEL 'SCHOOL GRADE ATTENDED' /HHILEVEL 'HUSBANDS SCHOOL GRADE ATTENDED' /EDUC 'HIGHEST GRADE COMPLETED' /HEDUC 'HUSBANDS HIGHEST GRADE COMPLETED' /POB 'PLACE OF BIRTH'/LIVELOC 'TIME LIVED IN LOCALITY' /OCC 'LAST WEEKS OCCUPATION'/HOCC 'HUSBANDS LAST WEEK OCCUPATION' /USOCC 'USUAL OCCUPATION'/HUSOCC 'HUSBANDS USUAL OCCUPATION' /USIND 'USUAL INDUSTRY'/HUSIND 'HUSBANDS USUAL INDUSTRY' /HWKSTAT 'HUSBANDS WORK STATUS'/CEB 'CHILDREN-EVER-BORN' /OWN 'OWN-CHILDREN AGED 0-2' /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' /WEIGHT 'INDIVIDUAL WEIGHT' /AGEMAR 'AGE AT FIRST MARRIAGE' . * TO SAVE THE DATA FILE INTO A PORTABLE FILE, KEEPING ONLY. * THE NEEDED VARIABLES. EXPORT OUTFILE='y:\thailand\data\census85\th85std.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.