pears.GetQuestAnswer

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetQuestAnswer" IS 
{CREATE FUNCTION GetQuestAnswer 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN tagloc CHAR(3),IN tagid CHAR(3),IN parentid CHAR(20))
RETURNS long VARCHAR
BEGIN
  DECLARE rv long VARCHAR;
  DECLARE i INTEGER;
  SET rv=getquesttext(tagloc,tagid,parentid);
  IF rv IS NULL THEN
    RETURN(NULL)
  END IF;
  SET i=locate(rv,"char"(13));
  IF i > 0 THEN
    SET rv="left"(rv,i-1)
  END IF;
  SET i=locate(rv,"char"(9));
  IF i >= LENGTH(rv) THEN
    RETURN('')
  END IF;
  IF i > 0 THEN
    SET rv=stuff(rv,1,i,'')
  END IF;
  RETURN(rv)
END
}