pears.getline

CREATE FUNCTION "pears"."getline"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "s1" long VARCHAR,IN "ln1" SMALLINT ) 
RETURNS long VARCHAR
BEGIN
  DECLARE "i" SMALLINT;
  DECLARE "ln" SMALLINT;
  DECLARE "s" long VARCHAR;
  SET "ln" = "ln1";
  SET "s" = "s1";
  "loop1": loop
    SET "ln" = "ln"-1;
    IF "ln" <= 0 THEN
      leave "loop1"
    END IF;
    SET "i" = "charindex"("char"(13),"s");
    IF "i" > 0 AND "length"("s") > "i"+1 THEN
      SET "s" = "stuff"("s",1,"i"+1,'')
    ELSE
      SET "s" = ''
    END IF
  END loop "loop1";
  SET "i" = "charindex"("char"(13),"s");
  IF "i" > 0 THEN
    SET "s" = "left"("s","i"-1)
  END IF;
  RETURN("s")
END