# $Header: /home/cvsroot/tcldb/wisql/Tlib/SYBchkMsg,v 1.2 1997/05/27 06:09:39 de Exp ${DB}chkMsg,v 1.1.1.1 1996/10/12 02:26:25 de Exp $
# tcl procs saved on Tue Sep 05 09:32:22 PDT 1995

proc SYBchkMsg {} {


  global sybmsg DB


  if {[string length $sybmsg(msgtext)] > 0} {
    set msgs [split $sybmsg(msgtext) \n]
    set msgn [split $sybmsg(msgno)   \n]
    set i 0
    foreach f $msgs {
      set msgno ""
      catch {set msgno [lindex $msgn $i]}
      catch {.dbM.f1.t insert end "[clock format [clock seconds]] : $msgno: $f\n"}
      incr i
    }
  }

}

