NexusDB

A simple routine that pads a string on the right to a given length.

Thanks to Malcolm Cheyne for this contribution.

DROP ROUTINE IF EXISTS "PadRight";

CREATE FUNCTION PadRight(aValue CHAR,aLen INTEGER)
RETURNS VARCHAR(10)
BEGIN
  DECLARE L INTEGER;
  DECLARE sRESULT VARCHAR(10);
  SET sRESULT= '          ' || TOSTRINGLEN(aValue,aLen);
  SET L=CHAR_LENGTH(sResult);
  RETURN SUBSTRING(sResult FROM 1+L-aLen);
END