echo off

echo **********************************************************
echo * call tcl script from within windows DB2 shell.
echo ********************************************************** 

set tclshell=c:\tcl\bin\tclsh84

echo db2cmd /w /i /c %tclshell% c:\scripts\tcl\dclgendb.tcl
db2cmd /w /i /c %tclshell% c:\scripts\tcl\dclgendb.tcl

-------------------------------------------------------------------

tcl script:

#!d:\\Tcl\\bin\\tclsh84

######################################
# generate describe reports.
######################################

proc dclgen {schema userid password database outputdir} {

    exec db2 connect to $database user $userid using $password

    set tables [split [exec db2 list tables for schema $schema] \n]

    set schema [string toupper $schema] 
    set spaces_     {\s+} 
    set characters_ {\S+} 
    set regexp_string ($characters_)($spaces_)($schema)

    foreach line $tables {

        if {[regexp $regexp_string $line match tablename spaces schema_name] == 1} {
	    puts "outputfile = $outputdir\\$tablename\.java"
	    exec db2dclgn -d $database -u $userid -p $password -t $schema.$tablename -l java -a replace -o $outputdir\\$tablename\.java
	    puts "outputfile = $outputdir\\$tablename\.txt"
            exec db2 describe "select * from $schema\.$tablename" >& $outputdir\\$tablename\.txt
	} else {
	    set continue true
	}
    }

    exec db2 terminate
}

######################################
# generate describe reports for db_one.
######################################

set userid     user1
set password   pass1

set database   db_one 
set schema     schema1
set outputdir  c:\\db2_reports\\db_one\\describe

dclgen $schema $userid $password $database $outputdir

######################################
# generate describe reports for db_two.
######################################

set database   db_two 
set schema     schema2
set outputdir  d:\\db2_reports\\db_two\\describe

dclgen $schema $userid $password $database $outputdir