query Next week day oracle, next working day oracle

SET SERVEROUTPUT ON
/
DEFINE V_DATE_TODAY = '23-04-2011';
/
DECLARE
DAY_TODAY VARCHAR2(30);
DAY_NEXT_WORKING_DAY VARCHAR2(30);
DATE_NEXT_WORKING_DAY VARCHAR2(30);
BEGIN
SELECT REPLACE(TO_CHAR(TO_DATE('&V_DATE_TODAY','dd-MM-yyyy'), 'DAY'),' ',NULL) INTO DAY_TODAY FROM DUAL;
SELECT CASE DAY_TODAY
WHEN 'MONDAY' THEN 'TUESDAY'
WHEN 'TUESDAY' THEN 'WEDNESDAY'
WHEN 'WEDNESDAY' THEN 'THURSDAY'
WHEN 'THURSDAY' THEN 'FRIDAY'
WHEN 'FRIDAY' THEN 'MONDAY'
WHEN 'SATURDAY' THEN 'MONDAY'
WHEN 'SUNDAY' THEN 'MONDAY'
END
INTO DAY_NEXT_WORKING_DAY FROM DUAL;

SELECT NEXT_DAY(TO_DATE('&V_DATE_TODAY','dd-MM-yyyy'), DAY_NEXT_WORKING_DAY) INTO DATE_NEXT_WORKING_DAY FROM DUAL;

DBMS_OUTPUT.PUT_LINE('DATE TODAY :' || '&V_DATE_TODAY');
DBMS_OUTPUT.PUT_LINE('DAY TODAY :' || DAY_TODAY);
DBMS_OUTPUT.PUT_LINE('DATE NEXT WEEK DAY :' || DATE_NEXT_WORKING_DAY);
DBMS_OUTPUT.PUT_LINE('DAY NEXT WEEK DAY :' || DAY_NEXT_WORKING_DAY);

END;
/