#!/bin/sh

while read a
do
 set `echo $a | awk 'BEGIN{FS="VARCHAR\\(|\\)"}{print $2}' | sed s/[,\(\)]//g`
 var=`echo $ 1  \*  2  | bc`
 echo $a | sed -e "s/VARCHAR(.*)/VARCHAR($var)/"
done < file.txt

#!/bin/sh


fff(){
read b

set `echo $@ | awk '{for(i=1;i<=NF;i++)s=s " " $i*2}END{print s}'`

i= 1 
 while [ "$1" != "" ]
 do
 b=`echo $b | sed -e "s/VARCHAR([.0-9]*)/VAR_zxzx_CHAR($1)/"`
  shift
 i=`expr $i +  1 `
 done
 b=`echo $b | sed -e "s/VAR_zxzx_CHAR/VARCHAR/"`
 echo $b
}

while read a
do

 set `echo $a | awk 'BEGIN{FS="VARCHAR\\\("}{for(i=2;i<=NF;i++){print substr($i,0,index($i,")")-1)}}'`

echo $a | fff $@
done < file.txt