overloadedlocal.sql

来自「Oracle 9i PL/SQL程序设计的随书源码」· SQL 代码 · 共 28 行

REM overloadedLocal.sql
REM Chapter 10, Oracle9i PL/SQL Programming by Scott Urman
REM This block contains overloaded local procedures.

set serveroutput on

DECLARE
  -- Two overloaded local procedures
  PROCEDURE LocalProc(p_Parameter1 IN NUMBER) IS
  BEGIN
    DBMS_OUTPUT.PUT_LINE('In version 1, p_Parameter1 = ' ||
                         p_Parameter1);
  END LocalProc;

  PROCEDURE LocalProc(p_Parameter1 IN VARCHAR2) IS
  BEGIN
    DBMS_OUTPUT.PUT_LINE('In version 2, p_Parameter1 = ' ||
                         p_Parameter1);
  END LocalProc;
BEGIN
  -- Call version 1
  LocalProc(12345);

  -- And version 2
  LocalProc('abcdef');
END;
/