altes rpg, in einem string was tauschen

[B.Hauser]

Oder versuch embedded SQL zu verwenden. Auch das lässt sich in altes RPGIII einbinden.

C/EXEC SQL
C+ SET :ERGEBNIS = SUBSTR(:BASIS, 1, :ZAHL) CONCAT :VARIABLE CONCAT 
C+                 SUBSTR(:BASIS, :ZAHL + :LAENGE)
C/END-EXEC

Birgitta