•CREATE FUNCTION
SQLTHING.MINCRON_DATE
• (CEN DECIMAL(2,0), YR DECIMAL(2,0),
• MO DECIMAL(2,0), DY DECIMAL(2,0))
• RETURNS DATE
• LANGUAGE SQL
• BEGIN
• DECLARE F_OUTPUT DATE;
• DECLARE F_TEST INTEGER;
• DECLARE CONTINUE HANDLER FOR SQLEXCEPTION
• SET
F_TEST=1;
• SET F_TEST=0;
• SET F_OUTPUT = DATE(
TRIM(CHAR(MO))||'/'|| TRIM(CHAR(DY))||'/'||
TRIM(CHAR((CEN*100)+YR)));
• IF F_TEST=0 THEN
• RETURN
F_OUTPUT;
• ELSE
• RETURN
NULL;
• END IF;
• END