pears.IQXNetDecodePostValue

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
}