|
SQL>
SQL> CREATE OR REPLACE PACKAGE global_def IS
2 pv_execution_num PLS_INTEGER := 0;
3 PROCEDURE increment_value (p_increment_num PLS_INTEGER);
4 END global_def;
5 /
Package created.
SQL>
SQL>
SQL> CREATE OR REPLACE PACKAGE BODY global_def IS
2 lv_execution_num PLS_INTEGER := 0;
3 PROCEDURE increment_display (p_value_num PLS_INTEGER)IS
4 BEGIN
5 DBMS_OUTPUT.PUT_LINE('Variable Value: ' || p_value_num);
6 END increment_display;
7 PROCEDURE increment_value (p_increment_num PLS_INTEGER) IS
8 BEGIN
9 lv_execution_num := lv_execution_num + p_increment_num;
10 increment_display (lv_execution_num);
11 END increment_value;
12 END global_def;
13 /
Package body created.
SQL>
SQL>
SQL>
SQL> BEGIN
2 global_def.increment_value(5);
3 global_def.increment_value(3);
4 global_def.increment_value(1);
5 END;
6 /
Variable Value: 14
Variable Value: 17
Variable Value: 18
PL/SQL procedure successfully completed.
|