|
SQL>
SQL> CREATE OR REPLACE PACKAGE myDate
2 IS
3 PROCEDURE set_mydate (date_in IN DATE);
4 FUNCTION get_mydate RETURN DATE;
5 END myDate;
6 /
Package created.
SQL>
SQL> CREATE OR REPLACE PACKAGE BODY myDate
2 IS
3 g_mydate DATE;
4
5 PROCEDURE set_mydate (date_in IN DATE)
6 IS
7 BEGIN
8 g_mydate := date_in;
9 END;
10
11 FUNCTION get_mydate RETURN DATE
12 IS
13 BEGIN
14 RETURN g_mydate;
15 END;
16 END myDate;
17 /
Package body created.
SQL>
SQL>
|