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
|
Subscribe to:
Post Comments
(
Atom
)
No comments