Mega Code Archive

 

Categories / Oracle PLSQL / PL SQL

 

Use IN operator in procedure

SQL> SQL> SQL> SQL> -The IN operator used to test for long weekends. SP2-0734: unknown command beginning "-The IN op..." - rest of line ignored. SQL> SET SERVEROUTPUT ON SQL> DECLARE   2     test_date     DATE;   3     day_of_week   VARCHAR2(3);   4     years_ahead   INTEGER;   5  BEGIN   6     --Assign a date value to test_date.   7   8     test_date := TO_DATE('4-Jul-1997','dd-mon-yyyy');   9  10     FOR years_ahead IN 1..10 LOOP  11       day_of_week := TO_CHAR(test_date,'Dy');  12  13      IF day_of_week IN ('Mon','Fri','Sat','Sun') THEN  14          DBMS_OUTPUT.PUT_LINE(TO_CHAR(test_date,'dd-Mon-yyyy')|| '     A long weekend!');  15       ELSE  16           DBMS_OUTPUT.PUT_LINE(TO_CHAR(test_date,'dd-Mon-yyyy')|| ' Not a long weekend.');  17       END IF;  18       --Advance one year (12 months)  19       test_date := ADD_MONTHS(test_date,12);  20    END LOOP;  21  END;  22  / 04-Jul-1997     A long weekend! 04-Jul-1998     A long weekend! 04-Jul-1999     A long weekend! 04-Jul-2000 Not a long weekend. 04-Jul-2001 Not a long weekend. 04-Jul-2002 Not a long weekend. 04-Jul-2003     A long weekend! 04-Jul-2004     A long weekend! 04-Jul-2005     A long weekend! 04-Jul-2006 Not a long weekend. PL/SQL procedure successfully completed. SQL> SQL> SQL>