Gestion d'une table de dates

Bonjour la team,

Connaissez-vous une façon propore pour mettre en place une solution du type:

Code:

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;

Existet-il un moyen pour faire quelque chose du genre:

Code:

1
2
3
IF ma_date  IN ma_table
  ...
THEN

Merci pour votre aide,
Berni.

Connected to Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 Connected as impdata SQL> set serveroutput on SQL> SQL> declare 2 type date_nt Is table of date ; 3 l_date_tab date_nt := date_nt(trunc(sysdate), trunc(sysdate - 1), trunc(sysdate- 2)); 4 -- 5 l_adate1 date := trunc(sysdate - 1); 6 l_adate2 date := trunc(sysdate - 5); 7 Begin 8 If l_adate1 Member Of l_date_tab Then 9 dbms_output.put_line('OK'); 10 End If; 11 -- 12 If l_adate2 Not Member Of l_date_tab Then 13 dbms_output.put_line('KO'); 14 End If; 15 End; 16 / OK KO PL/SQL procedure successfully completed SQL>