pears.getline

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."getline" IS 
{CREATE FUNCTION 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
}