Andre Long
CISP 350 Oracle
April 25, 2006
Chapter 4B PSC 

CASE#1

a)
SET SERVEROUTPUT ON SIZE 6000
DECLARE	
current_date		DATE:=	SYSDATE;
mess1		VARCHAR2(30):=	'It is early in the month.';
mess2		VARCHAR2(30):=	'It is the middle of the month.';
mess3		VARCHAR2(40):=	'It is nearly the end of the month.';
mess4		VARCHAR2(20):=	'It is Day ';
mess5		VARCHAR2(3):=	'of ';
DD			VARCHAR2(3);
MM			VARCHAR2(30);

BEGIN
DD:=TO_CHAR(current_date, 'DD');
MM:=TO_CHAR(current_date, 'Month');

IF DD < 11 THEN
			DBMS_OUTPUT.PUT_LINE(mess4 || DD || ' ' || mess5 || MM || mess1);
ELSIF	DD < 21	THEN
			DBMS_OUTPUT.PUT_LINE(mess4 || DD || ' ' || mess5 || MM || mess2);
ELSIF	DD < 32	THEN
			DBMS_OUTPUT.PUT_LINE(mess4 || DD || ' ' || mess5 || MM || mess3);
ELSE
	DBMS_OUTPUT.PUT_LINE('Date Error');
END IF;

END;