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

CASE#7

a)

--PL/SQL program to display the current time
SET SERVEROUTPUT ON SIZE 4000
DECLARE
   current_time	DATE;
   current_time_char VARCHAR2(30);
   current_time_length BINARY_INTEGER;
BEGIN
   current_time := SYSDATE;
   -- extract time portion from current date, and trim trailing blank spaces
   current_time_char := TO_CHAR(current_time, 'HH:MM:SS AM'); /* Added 'e' on end  and TO_CHAR and current_time_char*/
   current_time := RTRIM(current_time);
   DBMS_OUTPUT.PUT_LINE('The time is ' || current_time_char); /* Added closing parentheses */
END;