@DIV
CREATE or REPLACE FUNCTION today
	RETURN VARCHAR2
	AS
	RET_VALUE	VARCHAR2(50);
BEGIN
	BEGIN
		select 売上日付 into RET_VALUE from コントロールマスタ where キー = '1';
		RET_VALUE := 'ああああああ';
	EXCEPTION
		WHEN OTHERS THEN
			RET_VALUE := SYSDATE;
	END;
	RETURN RET_VALUE;
END today;
@END