|
SQL>
SQL> create or replace procedure swap(
2 p_parm1 in out number,
3 p_parm2 in out number ) as
4 l_temp number;
5 begin
6 l_temp := p_parm1;
7 p_parm1 := p_parm2;
8 p_parm2 := l_temp;
9 end swap;
10 /
Procedure created.
SQL>
SQL> set serverout on
SQL>
SQL> declare
2 l_num1 number := 100;
3 l_num2 number := 101;
4 begin
5 swap( l_num1, l_num2 );
6 dbms_output.put_line( 'l_num1 = ' || l_num1 );
7 dbms_output.put_line( 'l_num2 = ' || l_num2 );
8 end;
9 /
l_num1 = 101
l_num2 = 100
PL/SQL procedure successfully completed.
SQL>
SQL>
|