program PL/SQL nama bulan

SET SERVEROUTPUT ON
DECLARE
NOBULAN INTEGER;
NAMABULAN VARCHAR2(9);
BEGIN
NOBULAN := 3;
CASE NOBULAN
WHEN 1 THEN NAMABULAN :='JANUARI';
WHEN 2 THEN NAMABULAN :='FEBRUARI';
WHEN 3 THEN NAMABULAN := 'MARET';
WHEN 4 THEN NAMABULAN := 'APRIL';
WHEN 5 THEN NAMABULAN := 'MEI';
WHEN 6 THEN NAMABULAN := 'JUNI';
WHEN 7 THEN NAMABULAN := 'JULI';
WHEN 8 THEN NAMABULAN := 'AGUSTUS';
WHEN 9 THEN NAMABULAN := 'SEPTEMBER';
WHEN 10 THEN NAMABULAN := 'OKTOBER';
WHEN 11 THEN NAMABULAN := 'NOVEMBER';
WHEN 12 THEN NAMABULAN := 'DESEMBER';
ELSE NAMABULAN := ' ';
END CASE;
DBMS_OUTPUT.PUT_LINE(NAMABULAN);
END;