Switch to side-by-side view
--- a/ixtcsq.tcl +++ b/ixtcsq.tcl @@ -153,8 +153,12 @@ set typ [expr $typ & 0xf] # not used set nonulls [expr $typ & 0x100] - set len [lindex $typlen 1] - set typind "sqlsc_${col}_type" + set len [lindex $typlen 1] + # In all cases, remember type and length as from db + set ar(sqlsc_${col}_dbtype) $typ + set ar(sqlsc_${col}_dblen) $len + + set typind "sqlsc_${col}_type" set lenind "sqlsc_${col}_len" # type 6 is serial but we don't set a special case because