Feld mit Komma

[pabloesco]

Moin Forum,
Bin noch etwas neu hier im IBM Umfeld tätig und hoffe ihr könnt mir helfen.
Ich nehme die Stellen 1 bis 3 eines Feldes und möchte anschließend ein Komma dranhängen leider klappt das nicht. Kann mir einer sagen wieso ?
eval Feld1 = %subst(Feld1: 1 : 3)
eval Feld1 = Feld1 + ','

[Dschainers]

Bei mir funktioniert es so:

movel '123456' feld2 30
movel ' ' feld1 30
eval Feld1 = %subst(Feld2: 1 : 3) + ','
dsply feld1
move *on *inlr

[B.Hauser]

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.

Feld1 = %Subst(Feld1: 1: 3);
Feld1 = %Trim(Feld1) + ',';

oder in einem:

Feld 1 = %Trim(%Subst(Feld1: 1: 3)) + ',';

[pabloesco]

Vielen Dank !!. Es funktioniert jetzt