Tune workflow

Question

Dear all,
Workflow 2.6.4
The below procedure consumes lot of time and oracle advises the below :
Recommendation 1: SQL Tuning
Estimated benefit is .58 active sessions, 29.74% of total activity.
Action
Tune the PL/SQL block with SQL_ID "6bd4fvsx8n42v". Refer to the "Tuning
PL/SQL Applications" chapter of Oracle's "PL/SQL User's Guide and
Reference".
Related Object
SQL statement with SQL_ID 6bd4fvsx8n42v.
DECLARE job BINARY_INTEGER := :job; next_date DATE := :mydate;
broken BOOLEAN := FALSE; BEGIN OWF_MGR.START_ODS_REFRESH(SYSDATE );
:mydate := next_date; IF broken THEN :b := 1; ELSE :b := 0; END IF;
END;
Rationale
SQL statement with SQL_ID "6bd4fvsx8n42v" was executed 1 times and had
an average elapsed time of 31934 seconds.
Rationale
Average time spent in Java execution was 24904 seconds.
CREATE OR REPLACE PROCEDURE OWF_MGR.START_ODS_REFRESH ( pSysdate in date ) is
    ItemType constant varchar2(30) := 'TABSRPT';
    WorkflowProcess constant varchar2(30) := 'ODS_REFRESH';
    ItemKey varchar2(30);
    ItemUserKey varchar2(80);
    l_Sysdate Date;
    begin
        if ( pSysdate is null ) then
            l_Sysdate:= sysdate;
        else
            l_Sysdate:= pSysdate;
        end if;
        --select ODS_REFRESH_SEQ.nextval into ItemKey from dual ;
    --    ItemKey:= to_char(l_Sysdate,'yyyy') || '-' || to_char(l_Sysdate,'mm') || '-' || to_char(l_Sysdate,'dd');
    ItemKey:= 'NEW_REF' || to_char(l_Sysdate,'yyyy') || '-' || to_char(l_Sysdate,'mm') || '-' || to_char(l_Sysdate,'dd');
        ItemUserKey:= to_char(l_Sysdate,'yyyy') || '-' || to_char(l_Sysdate,'mm') || '-' || to_char(l_Sysdate,'dd');
        wf_engine.CreateProcess (itemtype => ItemType,
                                 itemkey  => ItemKey,
                                 process  => WorkflowProcess );
        wf_engine.SetItemUserKey (itemtype => itemtype,
                                  itemkey  => itemkey,
                                  userkey => ItemUserKey);
        wf_engine.SetItemAttrDate (itemtype => itemtype,
                                   itemkey => itemkey,
                                   aname => 'PSYSDATE',
                                   avalue => l_Sysdate);
        wf_engine.StartProcess (itemtype => itemtype,
                                itemkey  => itemkey );
    exception
        when others then
            wf_core.context(null,'ODS_REFRESH',ItemKey,null,'owf_mgr',null,Workflowprocess);
            raise;
end START_ODS_REFRESH;
/How can I tune this process ?
Please advise?
Kai

Answer 1

Does this code not solve the issue?
DECLARE
job BINARY_INTEGER := :job;
next_date DATE := :mydate;
broken BOOLEAN := FALSE;
BEGIN
OWF_MGR.START_ODS_REFRESH(SYSDATE );
:mydate := next_date;
IF broken THEN
:b := 1;
ELSE
:b := 0;
END IF;
END;