/*---------------------------------------------------------------
   Get parm attached to keyword/switch within variable
   TR = XGETPARM(NEEDPARM,STRING)
   T = "OPAL TESTING GOBBLE'123   456' BLABLA'1239876' BAZOKA'AFG'"
   TR = XGETPARM("GOBBLE",T)
   SAY TR == '123   456'
  ---------------------------------------------------------------*/
  XGETPARM:  PROCEDURE
    PARSE ARG N,H
    XR = ""
    SP = POS(TRANSLATE(N),TRANSLATE(H),1)
    IF SPF > 0 THEN
      DO
        L = LENGTH(N)
        EP = POS("'",H,SP+L+1)
        XR = SUBSTR(H,SP+L+1,EP-SP-L-1)
      END
  RETURN (XR)