====== pears.IQXNetExtractParam ======
<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>
create function "pears"."IQXNetExtractParam"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  in "pParams" long varchar,in "pParamName" char(100) ) 
returns long varchar
deterministic
begin
  declare "v" long varchar;
  declare "n" char(100);
  declare "i" integer;
  set "pParams" = "replace"("pParams","char"(10),'');
  loop
    set "i" = "charindex"('=',"pParams");
    if "isnull"("i",0) = 0 then
      return null
    end if;
    set "n" = "left"("pParams","i"-1);
    set "pParams" = "stuff"("pParams",1,"i",'');
    set "i" = "charindex"("char"(13),"pParams");
    if "i" = 0 then
      set "v" = "pParams";
      set "pParams" = ''
    else
      set "v" = "left"("pParams","i"-1);
      set "pParams" = "stuff"("pParams",1,"i",'')
    end if;
    if "n" = "pParamName" then
      return "v"
    end if
  end loop
end
</code>