CREATE OR REPLACE PROCEDURE PROC_CASETEST(PT VARCHAR2) IS BEGIN CASE PT WHEN 'PT_A' THEN DBMS_OUTPUT.PUT_LINE(1);DBMS_OUTPUT.PUT_LINE('PT_A1'); WHEN 'PT_B' THEN DBMS_OUTPUT.PUT_LINE(2);DBMS_OUTPUT.PUT_LINE('PT_B2'); ELSE DBMS_OUTPUT.PUT_LINE(3);DBMS_OUTPUT.PUT_LINE('ELSE3'); END CASE; END;
