42 lines
738 B
SQL
42 lines
738 B
SQL
create or replace package body p_test is
|
|
|
|
procedure do_this_stuff is begin
|
|
if true then
|
|
for idx in z+1 .. myarr.last loop
|
|
if myarr.exists(idx) then
|
|
null;
|
|
end if;
|
|
end loop;
|
|
|
|
elsif true then
|
|
for idx in myarr.first .. myarr.last loop
|
|
if myarr.exists(idx) then
|
|
null;
|
|
end if;
|
|
end loop;
|
|
end if;
|
|
end do_this_stuff;
|
|
|
|
procedure process_this (
|
|
p_flag in boolean
|
|
) is
|
|
begin
|
|
null;
|
|
end process_this;
|
|
|
|
procedure myfn1 (
|
|
p_str1 in varchar2,
|
|
p_str2 in varchar2
|
|
) is begin
|
|
process_this(false);
|
|
end myfn1;
|
|
|
|
procedure myfn2 (
|
|
p_str1 in varchar2,
|
|
p_str2 in varchar2
|
|
) is begin
|
|
process_this(true);
|
|
end myfn2;
|
|
|
|
end p_test;
|