Switch to side-by-side view
--- a/msqltcsq.tcl +++ b/msqltcsq.tcl @@ -164,8 +164,13 @@ set typ [lindex $typs $pos] set length [lindex $lens $pos] # puts "$col: Dbtyp: $typ, Dblen: $length" + # In all cases, remember type and length as from db + set ar(sqlsc_${col}_dbtype) $typ + set ar(sqlsc_${col}_dblen) $length + set typind "sqlsc_${col}_type" set lenind "sqlsc_${col}_len" + if {![info exists ar($lenind)]} { set ar($lenind) $length # puts "$col: length not preset, set to $ar($lenind)"