RPGLE - %Scan and replace example

    RPGLE  - %Scan and replace example 

  * * Free of Charge *

C eval str = %scan('FOC="' : items(z))

C if str > 0 C eval str = str + 5

C '"' scan items(z):str end

C eval len = (end - str)

C eval OLFOCC = %subst(items(z) : str : len)

C endif