# $Header: /home/cvsroot/tcldb/ucodb/Tlib/SYBgetPkeys,v 1.1 1996/12/06 07:31:27 de Exp $
# tcl procs saved on Sun Sep 03 16:18:54 PDT 1995

proc SYBgetPkeys table {

        global dbpipe1 sybmsg server 


	set temp [split $table .]
        set pref ""
        if {[llength $temp] == 3} {
                lassign $temp dbs usr tbl
                set pref "$dbs.."
        } else {
                lassign $temp usr tbl
        }

        set sqlcmd "select key1,key2,key3,key4,key5,key6,key7,key8 from  ${pref}syskeys a, ${pref}sysobjects b where a.type = 1 and  b.uid = user_id('$usr') and b.name = '$tbl' and a.id = b.id"

	set sqt "${pref}syskeys"
        set res [doSQL 1]
        if {[lindex $res 0] == "ERROR"} {
                set error "ERROR : line $sybmsg(line): $sybmsg(msgno) : $sybmsg(msgtext)"
                return $error
        } 
        set keys [sybNext 1]
	if {[lindex $keys 0] == "ERROR"} {
		set keys ""
	}

	set err [regsub -all NULL $keys "0" keys]
	return $keys

}

