create or replace procedure p1
is 
  type birthdates_d is table of date index by pls_integer;
  birthdays  birthdates_d;
  index1 pls_integer;
  l_date date;
begin
  birthdays (1):='20-mar-1972';
  birthdays (2):='1-oct-1986';
  dbms_output.put_line(birthdays(2));
  
  begin
        for i in birthdays.first .. birthdays.last
        loop
l_date :=birthdays(i);
      end loop;
    exception 
        when no_data_found
        then
        dbms_output.put_line('no data found ');
end;
end;



begin
p1(2);
end;
/

SQL> create or replace procedure p1
is 
  type birthdates_d is table of date index by pls_integer;
  birthdays  birthdates_d;
  index1 pls_integer;
  l_date date;
begin
  birthdays (1):='20-mar-1972';
  birthdays (2):='1-oct-1986';
  dbms_output.put_line(birthdays(2));
  
  begin
        for i in birthdays.first .. birthdays.last
        loop
l_date :=birthdays(i);
      end loop;
    exception 
        when no_data_found
        then
        dbms_output.put_line('no data found ');
end;
end;
  2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23  
 24  /

Procedure created.

SQL> set serveroutput on
SQL> exec p1;
01-OCT-86

PL/SQL procedure successfully completed.

SQL> 

SCOTT@orcl> create or replace procedure p1
  2  as
  3    type birthdates_d is table of date index by pls_integer;
  4    birthdays  birthdates_d;
  5  begin
  6    birthdays(1) := to_date ('20-mar-1972', 'dd-mon-yyyy');
  7    birthdays(2) := to_date ('1-oct-1986', 'dd-mon-yyyy');
  8    for i in 1. .. birthdays.count loop
  9  	 dbms_output.put_line (birthdays(i));
 10    end loop;
 11  end p1;
 12  /

Procedure created.

SCOTT@orcl> show errors
No errors.
SCOTT@orcl> begin
  2    p1;
  3  end;
  4  /
Mon 20-Mar-1972
Wed 01-Oct-1986

PL/SQL procedure successfully completed.

SQL> create or replace procedure p1 (i int)
  2  is
  3    type birthdates_d is table of date index by pls_integer;
  4    birthdays  birthdates_d;
  5    index1 pls_integer;
  6    l_date date;
  7  begin
  8    birthdays (1):=to_date ('20-mar-1972', 'dd-mon-yyyy','nls_date_language=american');
  9    birthdays(2) := to_date ('1-oct-1986', 'dd-mon-yyyy','nls_date_language=american');
 10    dbms_output.put_line(birthdays(2));
 11
 12    begin
 13  l_date :=birthdays(i);
 14  end;
 15  end;
 16  /

Procedure created.

SQL> exec p1(3232)
BEGIN p1(3232); END;

*
ERROR at line 1:
ORA-01403: no data found
ORA-06512: at "MICHEL.P1", line 13
ORA-06512: at line 1

SQL> select to_date('20-mar-1972') from dual;
select to_date('20-mar-1972') from dual
               *
ERROR at line 1:
ORA-01858: a non-numeric character was found where a numeric was expected

create or replace procedure p1
is

create or replace procedure p1(i in integer)
is