pears.ValidationResults

CREATE FUNCTION "pears"."ValidationResults"()
RETURNS long VARCHAR
BEGIN
  DECLARE "ValidationText" long VARCHAR;
  DECLARE "LoopCounter" INTEGER;
  DECLARE "NewLine" CHAR(2);
  SET "NewLine" = "char"(13)+"char"(10);
  SET "LoopCounter" = 0;
  FOR "GetText" AS "TextCursor" dynamic scroll cursor FOR CALL "sa_validate"() do
    IF "LoopCounter" > 0 THEN
      SET "ValidationText" = "ValidationText" || "NewLine"
    END IF;
    SET "ValidationText" = "ValidationText" || "Messages";
    SET "LoopCounter" = "LoopCounter"+1 END FOR;
  RETURN("ValidationText")
END