PROCEDURE REPL_TABLE(idtab in number default -1)
as
begin
for cc in ( select id_repl_table, xxx
from repl_table_list
order by srt, id_repl_table
)
loop
if (cc.id_repl_table = idtab) then
REPL_TABLE_BSM1(cc.id_repl_table, cc.xxx);
end if;
end loop;
end;