scott@9i > desc emp_actions
PROCEDURE FIRE_EMPLOYEE
 Argument Name                  Type                    In/Out Default?
 ------------------------------ ----------------------- ------ --------
 EMP_ID                         NUMBER                  IN
PROCEDURE HIRE_EMPLOYEE
 Argument Name                  Type                    In/Out Default?
 ------------------------------ ----------------------- ------ --------
 ENAME                          VARCHAR2                IN
 JOB                            VARCHAR2                IN
 MGR                            NUMBER                  IN
 SAL                            NUMBER                  IN
 COMM                           NUMBER                  IN
 DEPTNO                         NUMBER                  IN

scott@9i > @get_package


  CREATE OR REPLACE PACKAGE "SCOTT"."EMP_ACTIONS" AS -- spec
   TYPE EmpRecTyp IS RECORD (emp_id INT, salary REAL);
   CURSOR desc_salary RETURN EmpRecTyp;
   PROCEDURE hire_employee (
      ename  VARCHAR2,
      job    VARCHAR2,
      mgr    NUMBER,
      sal    NUMBER,
      comm   NUMBER,
      deptno NUMBER);
   PROCEDURE fire_employee (emp_id NUMBER);
END emp_actions;
CREATE OR REPLACE PACKAGE BODY "SCOTT"."EMP_ACTIONS" AS -- body
   CURSOR desc_salary RETURN EmpRecTyp IS
      SELECT empno, sal FROM emp ORDER BY sal DESC;
   PROCEDURE hire_employee (
      ename  VARCHAR2,
      job    VARCHAR2,
      mgr    NUMBER,
      sal    NUMBER,
      comm   NUMBER,
      deptno NUMBER) IS
   BEGIN
      INSERT INTO emp VALUES (empno_seq.NEXTVAL, ename, job,
         mgr, SYSDATE, sal, comm, deptno);
   END hire_employee;

   PROCEDURE fire_employee (emp_id NUMBER) IS
   BEGIN
      DELETE FROM emp WHERE empno = emp_id;
   END fire_employee;
END emp_actions;

 ;


scott@9i > get get_package
  1  set long 500000
  2  set linesize 1000
  3  SET HEAD off
  4  set trimspool on
  5  set verify off
  6  column XXXX format a300
  7  SELECT DBMS_METADATA.GET_DDL ('PACKAGE',d.object_name)||';' from dba_objects D  WHERE owner ='SCOTT' and OBJECT_TYPE ='PACKAGE';
  8* set head on;
scott@9i >