Como genero dia de la semana???

[bosup]

Saludos a Todos...

Le comento mi problema:

Necesito generar una secuencia que me muestre la fecha, el dia de la semana que representa besa fecha en el intervalo de 01/01/1998 a 31/12/2020, algo como la siguiente:

11/06/2008 MIE
12/06/2008 JUE
13/06/2008 VIE...

Lo intente con el siguiente codigo:

************************************************** **********
SET SERVEROUTPUT ON
DECLARE
FECHAD DATE := TO_DATE('01/01/1998', 'DD/MM/YYYY');
DIA_SEM CHAR(3);
NOM_MES CHAR(3);
BEGIN
WHILE FECHAD<='31/01/2020' LOOP
SELECT TO_CHAR(TO_DATE(FECHAD, 'DD/MM/YYYY'),'DY') INTO DIA_SEM FROM DUAL;
DBMS_OUTPUT.PUT_LINE (TO_CHAR(FECHAD) || ' ' || DIA_SEM);
FECHAD:=FECHAD + INTERVAL '1' DAY;
END LOOP;
END;

************************************************** *************

El detalle es:
La fecha la genera correctamente, pero el dia de la semana siempre lo inicia en LUNES (LUN) aun cuando el dia de inicio sea por ejemplo: un SABADO


Espero puedan ayudarme...

GRACIAS.