1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| spool GIR.lst
accept date1 prompt 'ENTRER LA DATE DE DEBUT DE SELECTION (JJ/MM/AA) : '
accept date2 prompt 'ENTRER LA DATE DE FIN DE SELECTION (JJ/MM/AA) : '
DECLARE
nbjour number;
BEGIN
SELECT nuhose,ngirse,datese,datsse,lbrmuf,daefuf,nbjose,nbjour
FROM SEJ,UFM
WHERE nuufse=nufmuf
AND ngirse IS NOT NULL
AND datsse IN (to_date('1/1/07','DD/MM/YY'), to_date('31/12/99','DD/MM/YY'))
AND daefuf IN (to_date('1/1/07','DD/MM/YY'), to_date('01/12/04', 'DD/MM/YY'));
IF datsse > '&date2' THEN
nbjour:=('&date2'-'&date1')+1;
ELSE
nbjour:=(datsse - '&date1') +1;
END IF;
END;
/
spool off |