Live ORACLE

DECLARE

  TYPE datetabtyp IS TABLE OF DATE INDEX BY PLS_INTEGER;

  TYPE numtabtyp IS TABLE OF NUMBER INDEX BY PLS_INTEGER;

  hiredate_tab  DATETABTYP;

  sal_tab       NUMTABTYP;

  PROCEDURE Initialize

       (tab  OUT DATETABTYP,

        n    INTEGER)

  IS

  BEGIN

    FOR i IN 1.. n LOOP

      Tab(i) := SYSDATE;

    END LOOP;

  END initialize;

  PROCEDURE Initialize

       (tab  OUT NUMTABTYP,

        n    INTEGER)

  IS

  BEGIN

    FOR i IN 1.. n LOOP

      Tab(i) := 0.0;

    END LOOP;

  END initialize;

BEGIN

  Initialize(hiredate_tab,50); -- calls first (DateTabTyp) version

 

  Initialize(sal_tab,100); -- calls second (NumTabTyp) version



END;

/

Overloading a Subprogram Name