Hallo zusammen,

eine einfache Methode um in RPG einen String zu ersetzen ist die Built-In-Function %Replace.

Anbei ein kleines Beispiel:
D $TextIn S 50 inz('Anfangs-Wert')
D $TextOut S 50 inz(*Blanks)
C eval $TextOut = %Replace('End': $TextIn: 1: 7)

C eval $TextOut = %Replace('End': $TextIn:
C %Scan('Anfangs': $TextIn):
C %len ('Anfangs'))

Das Ergebnis ($TextOut) ist jeweils 'End-Wert'

B.Hauser