DBA_SOURCE

obclient [SYS]> SELECT * FROM SYS.DBA_SOURCE WHERE ROWNUM<=2\G

*************************** 1. row ***************************
        OWNER: SYS
         NAME: JOB_UTILS
         TYPE: PACKAGE
         LINE: 1
         TEXT: PACKAGE JOB_UTILS IS
  PROCEDURE insert_date;
  PROCEDURE insert_date_program ( job IN VARCHAR2, job_name IN VARCHAR2);
END;
ORIGIN_CON_ID: 1004
*************************** 2. row ***************************
        OWNER: SYS
         NAME: JOB_UTILS
         TYPE: PACKAGE BODY
         LINE: 1
         TEXT: PACKAGE BODY JOB_UTILS IS
  PROCEDURE insert_date IS
  BEGIN
    INSERT INTO DBMS_SCHEDULER_T1 VALUES(TO_CHAR(sysdate));
    COMMIT;
  END;
  PROCEDURE insert_date_program ( job IN VARCHAR2, job_name IN VARCHAR2) IS
  BEGIN
    INSERT INTO DBMS_SCHEDULER_T2 VALUES(sysdate, job, job_name);
    COMMIT;
  END;
END;
ORIGIN_CON_ID: 1004
2 rows in set