pears.IQXNetExtractParam

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