infile using "F:\flash\academica\drink.DCT", clear
save "F:\flash\academica\drink.CDB.dta", replace
drop if R0536700 ~= 12
drop R0321500-R0321900
mvdecode R0070500- S2989000, mv(-5 = .a\-4 = .\-3=.\-2 = .\-1 = .)
codebook, compact
save "F:\flash\academica\drink.CDB.dta", replace

tab  R0358500  , m
gen drk97 =  R0358500
replace drk97 = 0 if  R0358500 == .
tab drk97, m

tab  R2190300 ,m
gen drk98 = R2190300
replace drk98 = 0 if R2190300 == .
tab drk98, m

tab  R3509400  ,m
gen drk99 = R3509400
tab drk99, m
replace drk99 = 0 if R3509400 == .
tab drk99, m

tab  R4907500  ,m
gen drk00 = R4907500
tab drk00, m
replace drk00 = 0 if R4907500 == .
tab drk00, m

tab R6534800 , m
gen drk01 = R6534800
tab drk01, m
replace drk01 = 0 if R6534800 == .
tab drk01, m

tab S0922300 , m
gen drk02 = S0922300
tab drk02, m
replace drk02 = 0 if S0922300 == .
tab drk02, m

tab S2989000, m
gen drk03 = S2989000
tab drk03, m
replace drk03 = 0 if S2989000 == .
tab drk03, m
gen pdrk = R0070500
gen pcol = R0070800
gen pcut = R0071100
gen male = R0536300
replace male = 0 if R0536300 == 2
tab2 R0536300 male, m
gen famrtn97 = R1485600
gen mommon97 = R1485700
gen famrtn98 = R2600900
gen mommon98 = R2601000
gen famrtn99 = R3924300
gen mommon99 = R3924400
gen famrtn00 = R5510800
gen mommon00 = R5510900 
drop  R0070500 -  S2989000
save "F:\flash\academica\drink.dta", replace
stata2mplus using "F:\flash\academica\drink"