Andre Long
CISP 350 Oracle
April 20, 2006
Chapter 4 PSC 

CASE#4

a)
SET SERVEROUTPUT ON SIZE 7000;

DECLARE
faculty_last_name	VARCHAR2(20):=	'COX';
faculty_first_name	VARCHAR2(20):=	'KIM';
faculty_phone		VARCHAR2(10):=	'7155551234';
mess_phone			VARCHAR2(18):=	'phone number is ';
area				VARCHAR2(3);
prefix				VARCHAR2(3);
exchange			VARCHAR2(4);

BEGIN
area:= SUBSTR(faculty_phone,1,3);
prefix:= SUBSTR(faculty_phone,4,3);
exchange:=	SUBSTR(faculty_phone,7,4);
DBMS_OUTPUT.PUT_LINE(INITCAP(faculty_first_name) || ' ' || INITCAP(faculty_last_name) || '''s' || ' ' || mess_phone ||
					  '(' || area || ')' || ' ' || prefix || '-' || exchange || '.');

END;