Ich nehme an Feld1 ist ein Feld mit fixer Länge und ich nehme an, dass das Feld mehr als 3 Zeichen enthalten kann.

Du nimmst die ersten 3 Stellen, soweit so gut, dann werden die restlichen Stellen mit Blanks aufgefüllt.
Wenn du dann versuchst irgendwas dranzugängen geht das nicht.
Du musst die folgenden Blanks mit der Funktion %TrimR oder %Trim entfernen.

Code:
Feld1 = %Subst(Feld1: 1: 3);
Feld1 = %Trim(Feld1) + ',';
oder in einem:
Code:
Feld 1 = %Trim(%Subst(Feld1: 1: 3)) + ',';