根据行记录数据查询它的RFNO &block no(pl/sql程序)

declare
ridtyp number;
objnum number;
relfno number;
blno number;
rowno number;
rid rowid;
begin
select rowid
into rid
from test where id=10;
dbms_rowid.rowid_info(rid,ridtyp,objnum,relfno,blno,rowno,'SMALLFILE');
dbms_output.put_line('Row Typ-'||TO_char(ridtyp));
dbms_output.put_line('Obj No-'||to_char(objnum));
dbms_output.put_line('RFNO-'||to_char(relfno));
dbms_output.put_line('Block No-'||to_char(blno));
dbms_output.put_line('Row no-'||to_char(rowno));
end;
/