CREATE OR REPLACE FUNCTION BOOL_TO_CHAR(INBL IN BOOLEAN) RETURN VARCHAR2

IS

OUT_ST VARCHAR2(5);

BEGIN

IF (INBL) THEN

OUT_ST := 'TRUE';

ELSIF (NOT INBL) THEN

OUT_ST := 'FALSE';

ELSE

OUT_ST := 'NULL';

END IF;

RETURN(OUT_ST);

END BOOL_TO_CHAR;

/

-----------------------------

begin

-- Test statements here

dbms_output.put_line(bool_to_char(True));

--commit;

end;