DECLARE
  grade  CHAR(1);
BEGIN
  grade := 'B';
 
  CASE
    WHEN grade = 'A' THEN  dbms_output.Put_line('Excellent');
    WHEN grade = 'B' THEN  dbms_output.Put_line('Very Good');
    WHEN grade = 'C' THEN  dbms_output.Put_line('Good');
    WHEN grade = 'D' THEN  dbms_output.Put_line('Fair');
    WHEN grade = 'F' THEN  dbms_output.Put_line('Poor');
    ELSE dbms_output.Put_line('No such grade');
  END CASE;
END;
-- rather than using the ELSE in the CASE, could use the following
-- EXCEPTION
-- WHEN CASE_NOT_FOUND THEN
-- DBMS_OUTPUT.PUT_LINE('No such grade');
/

Using the Searched CASE Statement
 
0 comments:
Post a Comment