SQL Function for converting a 7 digit numeric date (Format CYYMMDD) into a real date

SQL Function for converting a 7 digit numeric date (Format CYYMMDD) into a real date

CREATE OR REPLACE FUNCTION YourSchema.NUM72DATE ( 
	DATENUM DECIMAL(7, 0) ) 
	RETURNS DATE   
	LANGUAGE SQL 
	DETERMINISTIC 
	CALLED ON NULL INPUT 
BEGIN 
   DECLARE CONTINUE HANDLER FOR SQLEXCEPTION 
           RETURN DATE ( '8888-12-31' ) ; 
   RETURN CAST ( DIGITS ( DEC ( CHAR ( DATENUM + 19000000 ) , 8 ) ) CONCAT '000000' AS DATE ) ; 
END  ;