attrib.sql
Download SQL script
attrib.sql
create or replace procedure attrib(nod sys.pidl.ptnty) is
len pidl.ub2;
i binary_integer;
begin
dbms_output.put_line('Node Type '||pidl.ptattnnm(nod));
dbms_output.put_line('Num Attributes '||pidl.ptattcnt(nod));
len := pidl.ptattcnt(nod) - 1;
for i in 0..len loop
dbms_output.put_line(i||': '||pidl.ptatttyp(nod,i)
||':'||pidl.ptattanm(pidl.ptatttyp(nod,i))
||':'||pidl.ptattbty(nod,pidl.ptatttyp(nod,i))
||': REF '||pidl.ptattrty(nod,pidl.ptatttyp(nod,i)));
end loop;
end;
/
