Problem solve Get help with specific problems with your technologies, process and projects.

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

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

Dig Deeper on RPG iSeries programming

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close