F
PL_
PL_
PL_REPL({%},{%},{%})
*
      IF LEN({%1}) > 32000 THEN
         {R} = ''
         S$$$ = {%1}
         LOOP
            T$$$ = INDEX(S$$$,{%2},1)
         WHILE T$$$ DO
            IF T$$$ > 1 THEN
               {R} = {R} : S$$$[1,T$$$-1] : {%3}
            END ELSE
               {R} = {R} : {%3}
            END
            S$$$ = S$$$[T$$$+LEN({%2}),999999]
         REPEAT
         {R} = {R} : S$$$
         S$$$ = ''
      END ELSE
         {R} = CHANGE({%1},{%2},{%3})
      END
