cc_line_unit.sql

OReilly Oracle PL SQL Programming第4版源代码

CREATE OR REPLACE PROCEDURE calculate_totals
IS
BEGIN
   RAISE VALUE_ERROR;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line
                  (   'Current line number '
                   || $$plsql_line
                  );
      DBMS_OUTPUT.put_line
                     (   'Failed in program '
                      || $$plsql_unit
                     );
END calculate_totals;
/

EXEC calculate_totals;

CREATE OR REPLACE PACKAGE calc_pkg
IS
   PROCEDURE calculate_totals;
END calc_pkg;
/

CREATE OR REPLACE PACKAGE BODY calc_pkg
IS
   PROCEDURE calculate_totals
   IS
   BEGIN
      RAISE VALUE_ERROR;
   EXCEPTION
      WHEN OTHERS
      THEN
         DBMS_OUTPUT.put_line
                  (   'Current line number '
                   || $$plsql_line
                  );
         DBMS_OUTPUT.put_line
                     (   'Failed in program '
                      || $$plsql_unit
                     );
   END calculate_totals;
END calc_pkg;
/

EXEC calc_pkg.calculate_totals;