String Code2 (a2).
String Code3 (a3).
String Code4 (a4).
compute code2= substr (coicop6,1,2).
compute code3= substr (coicop6,1,3).
compute code4= substr (coicop6,1,4).

VARIABLE LABELS Code2 'Coiciop 2 digit level codes' .
VARIABLE LABELS Code3 'Coiciop 3 digit level codes' .
VARIABLE LABELS Code4 'Coiciop 4 digit level codes' .



************************** creating EXP_TYPE of expenditure /consumption item .
*********** 1 ND (Non durable).
*********** 2 S (Service).
*********** 3 SD (Semi Durable).
*********** 4 D (Durable).

******* FOOD.
if code2="01" EXP_TYPE=1.

******* ALCOHOL.
if code2="02" EXP_TYPE=1.

******* CLOTHING.
if code2="03"      EXP_TYPE=3 .
if code4="0314"  EXP_TYPE=2 .
if code4="0322"  EXP_TYPE=2 .

******* HOUSING.

if code3="041"    EXP_TYPE=2 .
if code3="042"    EXP_TYPE=2 .

if code4="0431"  EXP_TYPE=1 .
if code4="0432"  EXP_TYPE=2 .

if code3="044"    EXP_TYPE=2 .

if code3="045"    EXP_TYPE=1 .
if code3="049"    EXP_TYPE=1 .


******* FURNISHING.

if code3="051"    EXP_TYPE=4 .
if code4="0513"    EXP_TYPE=2 .

if code3="052"    EXP_TYPE=3 .

if code4="0531"   EXP_TYPE=4 .
if code4="0532"   EXP_TYPE=3 .
if code4="0533"   EXP_TYPE=2 .

if code3="054"    EXP_TYPE=3 .

if code4="0551"   EXP_TYPE=4 .
if code4="0552"   EXP_TYPE=3 .

if code4="0561"   EXP_TYPE=1 .
if code4="0562"   EXP_TYPE=2 .


******************************** HEALTH.

if code4="0611"   EXP_TYPE=1 .
if code4="0612"   EXP_TYPE=1 .
if code4="0613"   EXP_TYPE=4 .

if code3="062"   EXP_TYPE=2 .
if code3="063"   EXP_TYPE=2 .


******************************** TRANSPORT.

if code3="071"   EXP_TYPE=4 .

if code4="0721"   EXP_TYPE=3 .
if code4="0722"   EXP_TYPE=1 .
if code4="0723"   EXP_TYPE=2 .
if code4="0724"   EXP_TYPE=2 .

if code3="073"   EXP_TYPE=2 .


******************************** communication.

if code3="081"   EXP_TYPE=2 .
if code3="082"   EXP_TYPE=4 .
if code3="083"   EXP_TYPE=2 .

******************************** RECREATION AND CULTURE .

if code3="091"    EXP_TYPE=4 .
if code4="0914"   EXP_TYPE=3 .
if code4="0915"   EXP_TYPE=2 .

if code3="092"    EXP_TYPE=4 .
if code4="0923"   EXP_TYPE=2 .

if code4="0931"   EXP_TYPE=3 .
if code4="0932"   EXP_TYPE=3 .
if code4="0933"   EXP_TYPE=1 .
if code4="0934"   EXP_TYPE=1 .
if code4="0935"   EXP_TYPE=2 .

if code3="094"    EXP_TYPE=2 .

if code3="095"    EXP_TYPE=1 .
if code4="0951"   EXP_TYPE=3 .

if code3="096"    EXP_TYPE=2 .

***************************** EDUCATION .
if code2="10"    EXP_TYPE=2 .


***************************** RESTAURANTS AND HOTELS .
if code2="11"    EXP_TYPE=2 .



***************************** MISCELLANEOUS  GOODS AND SERVICES .

if code2="12"    EXP_TYPE=2 .
if code4="1212"  EXP_TYPE=3 .
if code4="1213"  EXP_TYPE=1 .

if code4="1231"  EXP_TYPE=4 .
if code4="1232"  EXP_TYPE=3 .

VALUE LABEL EXP_TYPE
 1 "ND (Non durable)"
 2 "S (Service)"
 3 "SD (Semi Durable)"
 4 "D (Durable)".

formats exp_type (f1.0).
Execute.