set serveroutput on
create procedure modesample
(
i in number,
o out number,
io in out number
)
is
v number:=0;
begin
dbms_output.put_line('Inside Mode Test:');
if (i is null) then
dbms_output.put_line('I Is Null');
else
dbms_output.put_line('I='||i);
end if;

if (o is null) then
dbms_output.put_line('O Is Null');
else
dbms_output.put_line('O='||o);
end if;

if (io is null) then
dbms_output.put_line('IO Is Null');
else
dbms_output.put_line('IO='||io);
end if;
o:=7;
v:=o;
v:=i;
io:=8;
v:=i;
dbms_output.put_line('In finalling:');
if i is null then
dbms_output.put_line('I Is Null');
else
dbms_output.put_line('I='||i);
end if;

if (o is null) then
dbms_output.put_line('O Is Null');
else
dbms_output.put_line('O='||o);
end if;

if io is null then
dbms_output.put_line('IO Is Null');
else
dbms_output.put_line('IO='||io);
end if;
end modesample;
/