Comments on: Regex ILE RPG Part 2 http://itknowledgeexchange.techtarget.com/itanswers/regex-ile-rpg-part-2/ Fri, 24 May 2013 17:13:17 +0000 hourly 1 By: andyhumphreys http://itknowledgeexchange.techtarget.com/itanswers/regex-ile-rpg-part-2/#comment-109012 andyhumphreys Thu, 05 Jul 2012 15:36:04 +0000 http://itknowledgeexchange.techtarget.com/itanswers/regex-ile-rpg-part-2/#comment-109012 Test RPG to call ILE RPG Service Program     Hdebug(*yes)      *     dRegex            pr          4500      extproc(‘REGEX’)     dStringIn                     2000      const     dRegExpIn                      500      const      *     d     d retval          ds          4500     d  result1                1   2000     d  result2             2001   4000     d  error               4001   4500      *     dtests            s           2000     dtestr            s            500      *     c                   eval      tests = ‘I have a cat, but I like my dog -     c                             better. Pity the mouse is dead’ + x’00′     c                   eval      testr = ‘(mouse|cat|dog|wolf|bear|human)’      *     c                   eval      retval = regex(tests:testr)     c                   dump     c                   move      ’1′           *inlr     c                   return

]]>