if ftype ='A'
wttl-A-num=wttl-A-num+1
endif
if ftype ='B'
wttl-B-num=wttl-B-num+1
endif
if ftype ='C'
wttl-C-num=wttl-C-num+1
endif
if ftype ='D'
wttl-D-num=wttl-D-num+1
endif
wttl-A-num=wttl-A-num+1
endif
if ftype ='B'
wttl-B-num=wttl-B-num+1
endif
if ftype ='C'
wttl-C-num=wttl-C-num+1
endif
if ftype ='D'
wttl-D-num=wttl-D-num+1
endif
{
case 'a':
wttl-A-num=wttl-A-num+1;
break;
case 'b':
wttl-B-num=wttl-B-num+1;
break;
case 'c':
wttl-C-num=wttl-C-num+1;
break;
case 'd':
wttl-D-num=wttl-D-num+1;
break;
}
if(type=='a'){
}else if(type=='b'){
}else if(type=='c'){
}else if(type=='d'){
}