valerr.pkg

OReilly Oracle PL SQL Programming第4版源代码

CREATE OR REPLACE PACKAGE valerr
IS
   FUNCTION get RETURN VARCHAR2;
END valerr;
/
CREATE OR REPLACE PACKAGE BODY valerr
IS
   v VARCHAR2(1) := 'abc';

   FUNCTION get RETURN VARCHAR2 
   IS
   BEGIN
      RETURN v;
   END;
BEGIN
   p.l ('Before I show you v...');

EXCEPTION
  WHEN OTHERS 
  THEN
    p.l ('Trapped the error!');
	 
END valerr;
/