ILE Scan and replace

ILE Scan and replace. Correct spelling or replace any character or characters in a long string. I found it useful for correcting data in flat files. (Can easily be converted to a module by adding prototype D specs an adding it to your service program and binding directory.)


*================================================================== D String_field s 80
D From_String s 80
D To_String s 80
D Length s 2 0
D P s 2 0

*-------------------------------------------------------------------

* FROM and TO strings must be equal in length
C *entry Plist
C Parm String_field
C Parm From_String
C Parm To_String
C Parm Length
*
* Loop is for multiple occurances within same string and
* may not be needed
C dou p = *zeros
C EVAL p =
%scan(%Trim(From_String):String_field)
* Once string is found C
IF p <> *zeros
C EVAL %SUBST(String_field:p:Length)
C = %Trim(To_string)
C ENDIF
*
C ENDdo
C Eval *inlr = *on

*===============================================================================

This was first published in April 2001

Dig deeper on RPG iSeries programming

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close