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;
/