pears.GetQuestAnswer [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== pears.GetQuestAnswer ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
}
</code>