NexusDB

DROP ROUTINE IF EXISTS InsertChar;
CREATE FUNCTION InsertChar( OrigString CHAR(20), cChar CHAR, cPosition INTEGER)
RETURNS CHAR(21) 
DETERMINISTIC
BEGIN
  IF (OrigString IS NULL) OR (CHAR_LENGTH(OrigString) < cPosition) THEN
    RETURN OrigString;
  ELSE
    RETURN SubString(OrigString FROM 1 FOR (cPosition-1)) || cChar || SubString(OrigString FROM cPosition);
  END IF;
END;