pears.IQXNetExtractParam

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
}