Anmelden

View Full Version : %replace



FNeurieser
05-02-20, 08:45
Hallo allerseits,

ich muss in free-rpg in einem 60 stelligen Feld die Stellen 51 bis 53 mit einem bestimmten Wert überschreiben.

Ich bin mir nicht sicher, glaube aber das das funktioniert.

Kann mir bitte jemand sagen wie das geht?

Danke schon mal für die Info.

malzusrex
05-02-20, 08:54
dcl-s Myfld char(80);
%SubSt(myfld:51:3)='ABC';

Gruß
Ronald

FNeurieser
05-02-20, 09:01
Danke, genau das habe ich gesucht.

Dschainers
05-02-20, 09:53
ziel = %ScanRpl('AS400' : 'gesendet' : quelle : 1 : 250);

so etwas gibt's auch noch