54: class OUT varchar2, typ OUT number) is
55: m NUMBER;
56: begin
57: SELECT typecode, externname, externtype INTO code, class, typ
58: FROM TYPE$ WHERE toid = tid;
59: exception
60: WHEN TOO_MANY_ROWS
61: THEN
62: begin
59: exception
60: WHEN TOO_MANY_ROWS
61: THEN
62: begin
63: SELECT max(version#) INTO m FROM TYPE$ WHERE toid = tid;
64: SELECT typecode, externname, externtype INTO code, class, typ
65: FROM TYPE$ WHERE toid = tid AND version# = m;
66: end;
67: end get_typecode;
61: THEN
62: begin
63: SELECT max(version#) INTO m FROM TYPE$ WHERE toid = tid;
64: SELECT typecode, externname, externtype INTO code, class, typ
65: FROM TYPE$ WHERE toid = tid AND version# = m;
66: end;
67: end get_typecode;
68:
69: function bool2int(b BOOLEAN) return INTEGER is