RE: Timestamp in ISO-8601 compliant format

Why does this ignore the time separator on the set option?

CREATE OR REPLACE FUNCTION ROB.TS8601 (
TIMESTAMPIN TIMESTAMP )
RETURNS CHAR(25)
LANGUAGE SQL
SPECIFIC ROB.TS8601
NOT DETERMINISTIC
READS SQL DATA
CALLED ON NULL INPUT
SET OPTION ALWBLK = *ALLREAD ,
ALWCPYDTA = *OPTIMIZE ,
COMMIT = *NONE ,
DECRESULT = (31, 31, 00) ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
TIMSEP=':',
SRTSEQ = *HEX
BEGIN
DECLARE CHARTIMESTAMP CHAR ( 19 ) ;
DECLARE TIMESTAMPOUT CHAR ( 25 ) ;
SET CHARTIMESTAMP = LEFT ( CHAR ( TIMESTAMPIN ) , 19 ) ;
SET TIMESTAMPOUT = LEFT ( CHARTIMESTAMP , 10 )
CONCAT 'T' CONCAT SUBSTR ( CHARTIMESTAMP , 12 , 8 )
CONCAT ( CASE WHEN CURRENT TIMEZONE < 0 THEN '-' ELSE '+' END )
CONCAT SUBSTR ( DIGITS ( CURRENT TIMEZONE ) , 1 , 2 ) CONCAT ':' CONCAT SUBSTR ( DIGITS ( CURRENT TIMEZONE ) , 3 , 2 )
;
RETURN TIMESTAMPOUT ;
END ;

Rob Berendt