# $Header: /home/cvsroot/tcldb/wisql/Tlib/SYBgetObj,v 1.2 1998/02/16 04:40:46 de Exp ${DB}getObj,v 1.1.1.1 1996/10/12 02:26:26 de Exp $
# tcl procs saved on Tue Sep 05 09:32:56 PDT 1995

proc SYBgetObj objname {
  global dbpipe1 DB
  global sybmsg
  global MsgW

  set dbname [sybuse $dbpipe1]
# Object_id works on full object names (owner.object)

  set sqlcmd "select text from syscomments  where id = object_id('$objname')"
  set sqt syscomments
        set res [doSQL 1]
        if {[lindex $res 0] == "ERROR"} {
                echo "Serious problem here"
                echo "$sqlcmd"
                echo "$res"
                exit 1
        }

  set plist ""
  set row [lindex [sybNext 1] 0]
  ${DB}chkMsg
  while {[string compare $sybmsg(nextrow) REG_ROW] == 0} {
    eval lappend plist [split $row \n]
    set row [lindex [sybNext 1] 0]
  }

  if {[llength $plist] == 0} {
    setMsg $MsgW "No text for $objname in $dbname"
    return
  }

  set temp [split $objname .]
  set usr [lindex $temp 0]
  set obj [lindex $temp 1]
  set olabel [format "%s_%s" $usr $obj]
  pickList .$dbname:$olabel "Text of $objname" 600x300 $plist .m.s.sql

}

