*****************************************************************************************
* Stata program for the conversion of data from the India NSS43 survey
* from ASCII format to Stata format.
* This program converts data from Schedule 10.
*
* Author: Akiko Sagesaka, World Bank Data Group (July 2013)
*****************************************************************************************

clear
set more off

#delimit ;

global pathin  "L:\HHS\Datalib\India\IND_1987_NSS43-SCH10\IND_1987_NSS43-SCH10_v01_M\Data\Original";
global pathout "L:\HHS\Datalib\India\IND_1987_NSS43-SCH10\IND_1987_NSS43-SCH10_v01_M\Data\Stata";

tempfile tempR tempU;
 
***************************************************************;
* SCHEDULE 10  - Blocks 1 & 3                                  ;
***************************************************************;

foreach i in R U
  {;
	drop _all;
	infix 
	 str sector	1
	 str B1_v09	2-3
	 str region	4
	 str B1_v03	5-6
	 str B1_v04	7
	 str B1_v06	8
	 str fsu	9-13
	 str B1_v07	14
	 str B1_v08	15-16
	 str sample	17
	 str B1_v05	18-20
	 str B3_v05	21
	 str B1_v20	22
	 str B1_v21	23
	 str B1_v22	24
	 str B1_v23	25
	 str B3_v01	26-28
	 str B3_v02	29-34
	 str B3_v03	35
	 str B3_v04	36
	 str B3_v06	37
	 str B3_v07	38-41
	 str B3_v08	42-45
	 str B3_v09	46-49
	 str B3_v10	50-53
	 str B3_v11	54-57
	 str B3_v12	60-63
	 str B3_v13	64-67
	 str B3_v14	68-71
	 str B3_v15	72-75
	 str B3_v16	79-82
	 str B3_v17	83
	 str B3_v18	84
	 str B3_v19	85-92
	 str B1_v19	95
	 str B3_v21	96
	 str B3_v22	97-98
	 str B3_v20a	118-119
	 str B3_v20b	120-121
	 str B1_v10	123-124
	 str MLT_STRATUM	125-130
	 str MLT_SUB_SAMPLE	131-136
	 str MLT_SUB_ROUND	137-142
	 str MLT_POOLED	143-148
	using "$pathin\E3DHF`i'.DAT"; 
	
	compress;
	save `temp`i'', replace;
};

use `tempR', clear;
append using `tempU';

gen hhid= fsu+B1_v07+B1_v08;

destring *, replace;
destring B3_v07 B3_v16, replace force;
format hhid %15.0g;

loc item B3_v07 B3_v08 B3_v09 B3_v10 B3_v11 B3_v12 B3_v13 B3_v14 B3_v15 B3_v16 B3_v19;
foreach x in `item'
{;
  replace `x'=`x'/100;
};

order hhid fsu sample sector region B1_v03 B1_v04 B1_v05 B1_v06 B1_v07 B1_v08 B1_v09 B1_v10 B1_v19 B1_v20 B1_v21 B1_v22 B1_v23 
B3_v01 B3_v02 B3_v03 B3_v04 B3_v05 B3_v06 B3_v07 B3_v08 B3_v09 B3_v10 B3_v11 B3_v12 B3_v13 B3_v14 B3_v15 B3_v16 B3_v17 B3_v18 
B3_v19 B3_v20a B3_v20b B3_v21 B3_v22 MLT_STRATUM MLT_SUB_SAMPLE MLT_SUB_ROUND MLT_POOLED;

sort hhid;
save "$pathout\NSS43_Sch10_bk_1_3", replace; 

***************************************************************;
* SCHEDULE 10  - Block 4                                       ;
***************************************************************;

foreach i in R U
  {;
	drop _all;
	infix 
	 str sector	1
	 str B1_v09	2-3
	 str region	4
	 str B1_v03	5-6
	 str B1_v04	7
	 str B1_v06	8
	 str fsu	9-13
	 str B1_v07	14
	 str B1_v08	15-16
	 str B4_v01	17-19
	 str sample	20
	 str B4_v03	22
	 str B4_v04	24
	 str B4_v05	25-26
	 str B4_v06	29
	 str B4_v07	30-31
	 str B4_v08	32-33
	 str B4_v09	44-45
	 str B4_v10	46
	 str B4_v11	49-50
	 str B4_v12	51
	 str B4_v14	54-56
	 str B4_v15	57-59
	 str B4_v16	120
	 str B1_v10	121-122
	 str MLT_STRATUM	123-128
	 str MLT_SUB_SAMPLE	129-134
	 str MLT_SUB_ROUND	135-140
	 str MLT_POOLED	141-146
	using "$pathin\E3DPF`i'.DAT"; 
	
	compress;
	save `temp`i'', replace;
};

use `tempR', clear;
append using `tempU';

gen hhid= fsu+B1_v07+B1_v08;

destring *, replace;
format hhid %15.0g;

order hhid fsu sample sector region B1_v03 B1_v04 B1_v06 B1_v07 B1_v08 B1_v09 B1_v10 
B4_v01 B4_v03 B4_v04 B4_v05 B4_v06 B4_v07 B4_v08 B4_v09 B4_v10 B4_v11 B4_v12 B4_v14 B4_v15 B4_v16
 MLT_STRATUM MLT_SUB_SAMPLE MLT_SUB_ROUND MLT_POOLED;

sort hhid B4_v01;
save "$pathout\NSS43_Sch10_bk_4", replace; 

***************************************************************;
* SCHEDULE 10  - Block 5                                       ;
***************************************************************;

foreach i in R U
  {;
	drop _all;
	infix 
	 str sector	1
	 str B1_v09	2-3
	 str region	4
	 str B1_v03	5-6
	 str B1_v04	7
	 str B1_v06	8
	 str fsu	9-13
	 str B1_v07	14
	 str B1_v08	15-16
	 str B5_v01	17-19
	 str B5_v02	20
	 str sample	21
	 str B1_v05	22-24
	 str B5_v03	71-72
	 str B5_v04	75
	 str B5_v05	76-77
	 str B5_v06	78-79
	 str B5_v07	80-81
	 str B5_v08	82-83
	 str B5_v09	84-85
	 str B5_v10	86-87
	 str B5_v11	88-89
	 str B5_v12	90-91
	 str B5_v13	92-93
	 str B5_v14	94-100
	 str B5_v15	101-107
	 str B5_v16	108-114
	 str B5_v18	115
	 str d_worked 136-137
	 str d_unemployed 138-139
	 str B5_v17	142
	 str B1_v10	145-146
	 str MLT_STRATUM	147-152
	 str MLT_SUB_SAMPLE	153-158
	 str MLT_SUB_ROUND	159-164
	 str MLT_POOLED	165-170
	using "$pathin\E3DAF`i'.DAT"; 
	
	compress;
	save `temp`i'', replace;
};

use `tempR', clear;
append using `tempU';

gen hhid= fsu+B1_v07+B1_v08;

destring *, replace;
destring B5_v17, replace force;
format hhid %15.0g;

loc itemA B5_v06 B5_v07 B5_v08 B5_v09 B5_v10 B5_v11 B5_v12 B5_v13;
foreach x in `itemA'
{;
  replace `x'=`x'/10;
};

loc itemB B5_v14 B5_v15 B5_v16;
foreach x in `itemB'
{;
  replace `x'=`x'/100;
};

order hhid fsu sample sector region B1_v03 B1_v04 B1_v05 B1_v06 B1_v07 B1_v08 B1_v09 B1_v10 
B5_v01 B5_v02 B5_v03 B5_v04 B5_v05 B5_v06 B5_v07 B5_v08 B5_v09 B5_v10 B5_v11 B5_v12 B5_v13 B5_v14 B5_v15 B5_v16 B5_v17 B5_v18
d_worked d_unemployed
 MLT_STRATUM MLT_SUB_SAMPLE MLT_SUB_ROUND MLT_POOLED;

sort hhid B5_v01;
save "$pathout\NSS43_Sch10_bk_5", replace; 
***************************************************************;
* SCHEDULE 10  - Block 6                                       ;
***************************************************************;

foreach i in R U
  {;
	drop _all;
	infix 
	 str sector	1
	 str B1_v09	2-3
	 str region	4
	 str B1_v03	5-6
	 str B1_v04	7
	 str B1_v06	8
	 str fsu	9-13
	 str B1_v07	14
	 str B1_v08	15-16
	 str B6_v01	17-19
	 str sample	20
	 str B6_v02	60-61
	 str B6_v03	62
	 str B6_v05	65-67
	 str B6_v06	68-70
	 str B6_v08	71-72
	 str B6_v09	73
	 str B6_v11	74-76
	 str B6_v12	77-79
	 str B6_v13	80
	 str B6_v07	84
	 str B6_v22 81
	 str B1_v10	121-122
	 str MLT_STRATUM	123-128
	 str MLT_SUB_SAMPLE	129-134
	 str MLT_SUB_ROUND	135-140
	 str MLT_POOLED	141-146
	using "$pathin\E3DPF`i'.DAT"; 
	
	compress;
	save `temp`i'', replace;
};

use `tempR', clear;
append using `tempU';

gen hhid= fsu+B1_v07+B1_v08;

destring *, replace;
format hhid %15.0g;

order hhid fsu sample sector region B1_v03 B1_v04 B1_v06 B1_v07 B1_v08 B1_v09 B1_v10 
B6_v01 B6_v02 B6_v03 B6_v05 B6_v06 B6_v07 B6_v08 B6_v09 B6_v11 B6_v12 B6_v13 B6_v22
 MLT_STRATUM MLT_SUB_SAMPLE MLT_SUB_ROUND MLT_POOLED;

sort hhid B6_v01;
save "$pathout\NSS43_Sch10_bk_6-1", replace; 

***************************************************************;
* SCHEDULE 10  - Block 6                                       ;
***************************************************************;

foreach i in R U
  {;
	drop _all;
	infix 
	 str sector	1
	 str B1_v09	2-3
	 str region	4
	 str B1_v03	5-6
	 str B1_v04	7
	 str B1_v06	8
	 str fsu	9-13
	 str B1_v07	14
	 str B1_v08	15-16
	 str B6_v01	17-19
	 str sample	20
	 str B6_v14	43
	 str B6_v15	44-45
	 str B6_v16	46
	 str B6_v18	47-48
	 str B6_v19	49-50
	 str B6_v20	51
	 str B6_v21	54
	 str B1_v10	66-67
	 str MLT_STRATUM	68-73
	 str MLT_SUB_SAMPLE	74-79
	 str MLT_SUB_ROUND	80-85
	 str MLT_POOLED	86-91
	using "$pathin\E3DMF`i'.DAT"; 
	
	compress;
	save `temp`i'', replace;
};

use `tempR', clear;
append using `tempU';

gen hhid= fsu+B1_v07+B1_v08;

destring *, replace;
destring B6_v20, replace force;
format hhid %15.0g;

order hhid fsu sample sector region B1_v03 B1_v04 B1_v06 B1_v07 B1_v08 B1_v09 B1_v10 
B6_v01 B6_v14 B6_v15 B6_v16 B6_v18 B6_v19 B6_v20 B6_v21
 MLT_STRATUM MLT_SUB_SAMPLE MLT_SUB_ROUND MLT_POOLED;

sort hhid B6_v01;
save "$pathout\NSS43_Sch10_bk_6-2", replace; 

***************************************************************;
* SCHEDULE 10  - Block 7                                       ;
***************************************************************;

foreach i in R U
  {;
	drop _all;
	infix 
	 str sector	1
	 str B1_v09	2-3
	 str region	4
	 str B1_v03	5-6
	 str B1_v04	7
	 str B1_v06	8
	 str fsu	9-13
	 str B1_v07	14
	 str B1_v08	15-16
	 str B7_v01	17-19
	 str sample	20
	 str B7_v02	60-61
	 str B7_v02a	62
	 str B7_v03	71-72
	 str B7_v03a	73
	 str B7_v04	87
	 str B7_v07	88
	 str B7_v08	89
	 str B7_v09	90
	 str B7_v10	91
	 str B7_v05	92
	 str B7_v06	93-94
	 str B1_v10	121-122
	 str MLT_STRATUM	123-128
	 str MLT_SUB_SAMPLE	129-134
	 str MLT_SUB_ROUND	135-140
	 str MLT_POOLED	141-146
	using "$pathin\E3DPF`i'.DAT"; 
	
	compress;
	save `temp`i'', replace;
};

use `tempR', clear;
append using `tempU';

gen hhid= fsu+B1_v07+B1_v08;

destring *, replace;
format hhid %15.0g;

drop if B7_v02>94;

order hhid fsu sample sector region B1_v03 B1_v04 B1_v06 B1_v07 B1_v08 B1_v09 B1_v10 
B7_v01 B7_v02 B7_v02a B7_v03 B7_v03a B7_v04 B7_v05 B7_v06 B7_v07 B7_v08 B7_v09 B7_v10
 MLT_STRATUM MLT_SUB_SAMPLE MLT_SUB_ROUND MLT_POOLED;

sort hhid B7_v01;
save "$pathout\NSS43_Sch10_bk_7", replace; 
 
***************************************************************;
* SCHEDULE 10  - Block 8                                       ;
***************************************************************;

foreach i in R U
  {;
	drop _all;
	infix 
	 str sector	1
	 str B1_v09	2-3
	 str region	4
	 str B1_v03	5-6
	 str B1_v04	7
	 str B1_v06	8
	 str fsu	9-13
	 str B1_v07	14
	 str B1_v08	15-16
	 str B8_v01	17-19
	 str sample	20
	 str B8_v02	60-61
	 str B8_v03	71-72
	 str B8_v03b	73
	 str B8_v04	95
	 str B8_v05	96
	 str B8_v06	97
	 str B8_v07	98
	 str B8_v08	99
	 str B8_v09	100
	 str B8_v10	101
	 str B8_v11	102
	 str B8_v12	103
	 str B8_v13	104
	 str B8_v14	105
	 str B8_v15	106
	 str B8_v16	107
	 str B8_v17	108
	 str B8_v18	109
	 str B8_v19	110
	 str B8_v20	111
	 str B8_v21	112-113
	 str B8_v22	114
	 str B8_v23	115
	 str B8_v24	116
	 str B8_v25	117
	 str B8_v26	118
	 str B1_v10	121-122
	 str MLT_STRATUM	123-128
	 str MLT_SUB_SAMPLE	129-134
	 str MLT_SUB_ROUND	135-140
	 str MLT_POOLED	141-146
	using "$pathin\E3DPF`i'.DAT"; 
	
	compress;
	save `temp`i'', replace;
};

use `tempR', clear;
append using `tempU';

gen hhid= fsu+B1_v07+B1_v08;

destring *, replace;
format hhid %15.0g;

keep if inrange(B8_v02,92,93);

order hhid fsu sample sector region B1_v03 B1_v04 B1_v06 B1_v07 B1_v08 B1_v09 B1_v10 
B8_v01 B8_v02 B8_v03 B8_v03b B8_v04 B8_v05 B8_v06 B8_v07 B8_v08 B8_v09 B8_v10 B8_v11 
B8_v12 B8_v13 B8_v14 B8_v15 B8_v16 B8_v17 B8_v18 B8_v19 B8_v20 B8_v21 B8_v22 B8_v23 B8_v24 B8_v25 B8_v26
 MLT_STRATUM MLT_SUB_SAMPLE MLT_SUB_ROUND MLT_POOLED;

sort hhid B8_v01;
save "$pathout\NSS43_Sch10_bk_8", replace; 
***************************************************************;
* SCHEDULE 10  - Block 9                                       ;
***************************************************************;
 
	drop _all;
	infix 
	 str sector	1
	 str B1_v09	2-3
	 str region	4
	 str B1_v03	5-6
	 str B1_v04	7
	 str B1_v06	8
	 str fsu	9-13
	 str B1_v07	14
	 str B1_v08	15-16
	 str B9_v01	17-19
	 str sample	20
	 str B1_v05	21-23
	 str B9_v02	41
	 str B9_v04	42
	 str B9_v05	43
	 str B9_v03	44-53
	 str B1_v10	54-55
	 str MLT_STRATUM	56-61
	 str MLT_SUB_SAMPLE	62-67
	 str MLT_SUB_ROUND 68-73
	 str MLT_POOLED	74-79
	using "$pathin\E3DLFR.DAT"; 
	
	compress;

gen hhid= fsu+B1_v07+B1_v08;

destring *, replace;
destring B9_v02 B9_v04 B9_v05, replace force;
format hhid %15.0g;

order hhid fsu sample sector region B1_v03 B1_v04 B1_v05 B1_v06 B1_v07 B1_v08 B1_v09 B1_v10 
B9_v01 B9_v02 B9_v03 B9_v04 B9_v05
MLT_STRATUM MLT_SUB_SAMPLE MLT_SUB_ROUND MLT_POOLED;

sort hhid B9_v01;
save "$pathout\NSS43_Sch10_bk_9", replace;