create or replace procedure test_function (xh in number) is
sum1 number;
sum2 number;
begin
sum1:=xh*1;
sum2:=xh*2;
dbms_output.put_line ( sum1);
dbms_output.put_line ( sum2);
end test_function;
declare
v_number number:=100 ;
begin
test_function(v_number);
end;
sum1 number;
sum2 number;
begin
sum1:=xh*1;
sum2:=xh*2;
dbms_output.put_line ( sum1);
dbms_output.put_line ( sum2);
end test_function;
declare
v_number number:=100 ;
begin
test_function(v_number);
end;
begin
sum1:=xh*1;
sum2:=xh*2;
end test_function;declare
li1 number;
li2 number;
begin
test_function(2,li1,li2);
dbms_output.put_line(to_char(li1));
dbms_output.put_line(to_char(li2));
end;