--

-- Used by ps_upwards.sql and ps_downwards.sql

--

define complete_name=&1

define proc=&2

set verify off

@spool c:\temp\ps_.dot

declare

signature varchar2(32);

begin

if length('&complete_name') = 32 and instr('&complete_name', '.') = 0 then

-- complete_name seems to be a signature.

signature := '&complete_name';

else

-- complete name seems to be in the 'package.procedure' form:

select signature into signature

from plscope_callable

where lower(complete_name) = lower('&complete_name');

end if;

plscope.&proc(signature, 'dot');

end;

/

spool off

@dot c:\temp\ps_