perl -ne '/^TABLE;([^;\n]+)/ && ($table = $1) or /^COLUMN;([^;\n]+)/ && print "$table.$1\n"' data.txt

##</code><code>##

awk -F ';'  '/^TABLE/ {table=$2} /^COLUMN/ {printf("%s.%s\n",table,$2) }' data.txt