pears.IQXNetDecodePostValue [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.IQXNetDecodePostValue ======
<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"."IQXNetDecodePostValue" IS 
{create function IQXNetDecodePostValue 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

( 
  in pdata char(250) ) 
returns char(250)
begin
  declare rv char(250);
  declare i smallint;
  declare l smallint;
  declare c smallint;
  declare s char(3);
  set rv = '';
  set l = length(pdata);
  set i = 1;
  while i <= l loop
    set s = substr(pdata,i,1);
    set i = i+1;
    if s = '+' then
      set s = ' '
    else if s = '%' then
        set c = hextoint(substr(pdata,i,2));
        set i = i+2;
        if c = 194 then // utf-8 2 byte code
          set s = ''
        else
          set s = "char"(c)
        end if
      end if end if;
    set rv = rv+s
  end loop;
  return rv
end
}
</code>