1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
create or replace
PROCEDURE MA_FONCTION
AS
type table_type is table of date;
ma_table table_type;
ma_date date;
W_TEST varchar2(64);
W_IDX number;
BEGIN
ma_table(1) := TO_DATE('01/01/2000','dd/mm/yyyy');
ma_table(2) := TO_DATE('01/01/2001','dd/mm/yyyy');
ma_table(3) := TO_DATE('01/01/2002','dd/mm/yyyy');
ma_date := TO_DATE('01/01/2003','dd/mm/yyyy');
for W_IDX in ma_table.first..ma_table.last loop
IF ma_date IN ( ma_table(W_IDX) )then
W_TEST := 'OK';
else
W_TEST := 'KO';
end if;
end loop;
END; |
Partager