infix ID1 1 ID2 2-3 ID3 4-5 ID4 6-7 ID5 8 ID6 9-11 ID7 12-13 ID8 14-15 ENU 16 RCN 17-18 SRN 19-20 FG1 21-23 FI1 24-25 FS1 26 FV1 27-32 FG2 33-35 FI2 36-37 FS2 38 FV2 39-44 FG3 45-47 FI3 48-49 FS3 50 FV3 51-56 FG4 57-59 FI4 60-61 FS4 62 FV4 63-68 FG5 69-71 FI5 72-73 FS5 74 FV5 75-80 FG6 81-83 FI6 84-85 FS6 86 FV6 87-92 FG7 93-95 FI7 96-97 FS7 98 FV7 99-104 FG8 105-107 FI8 108-109 FS8 110 FV8 111-116 FG9 117-119 FI9 120-121 FS9 122 FV9 123-128 using "C:\Thailand\THA_2004_SES_v01_M\Data\Raw Data_ascii\Q1234.dat" if RCN==6, clear
compress
reshape long FG FI FS FV, i(ID1 ID2 ID3 ID4 ID5 ID6 ID7 ID8 SRN) j(DF)
drop if FV==.
generate int FC:Item Code = (FG*100)+FI
drop RCN
save "C:\Thailand\THA_2004_SES_v01_M\Data\Stata Data\Record6.dta"