Ctx_ddl.sync_index

Question

The sql below synchronizes all the pending context:
set echo off
set heading off
set feedback off
set pagesize 50000
spool c:\sync.sql
select distinct 'exec ctx_ddl.sync_index(''' || PND_INDEX_OWNER || '.' || PND_INDEX_NAME || ''')' from ctx_pending;
spool off
@c:\sync.sql;
Would it be possible to transform the above code into a procedure?
So I could run that procedure at regular intervals using dbms_job ?
Can Anyone translate the above into a procedure ?
Thanks.

Answer 1

I've received the procedure from a college:
create or replace procedure sync_context
is
begin
for s_rec in
(select distinct pnd_index_owner, pnd_index_name
from ctx_pending) loop
execute immediate 'begin ctx_ddl.sync_index('''||s_rec.pnd_index_owner||'.'||s_rec.pnd_index_name||'''); end;';
end loop;
end;
Extra Question:
As user ctxsys it should be sufficient to execute ctx_dll.sync_index to sync all pending context
but this does not seem to work properly ??