I have 10 lines of perl script to do that. but, interested to do it in sigle line.

I haven't tried comparing the number of characters per script, but here's how I would do the perl one-liner:

perl -pe 's/TABLE;(.*)\n// and $t=$1;s/COLUMN;(\w+);.*/$t.$1/'
[download]

Given your 30 lines of sample input for one file, that produces 29 lines of output -- i.e. all the lines that start with "COLUMN" come out with the table name in place of "COLUMN", and the data-type of the field stripped off.

To do that on a directory of 450 files, I'll guess that it would be okay to make a sister directory called "fld-lists", and make a copy of each file using a shell command sequence like this:

mkdir ../fld-lists
for i in *; do
 perl -pe 's/TABLE;(.*)\n// and $t=$1;s/COLUMN;(\w+);.*/$t.$1/' $i >..
+/fld-lists/$i
done
[download]