pears.IQXNetExtractParam [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.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>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."IQXNetExtractParam" IS 
{create function 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>