Ersatz für Cat Befehl

[haertl]

Hallo, ich möchte in Free Format RPG an eine alphanum. Variable
innerhalb einer Schleife Text anfügen.
z.B.

for ....
variable = variable + texttabelle(index);
endfor;


Problem: Nach der Anweisung steht in Variable nur der alte Wert ohne
angefügten Text. Codiere ich variable2 = variable + texttabelle(index);
dann funktioniert es. Ich möchte aber immer dieselbe Variable benutzen.

Wie kann man das Problem lösen
Danke an alle.

[B.Hauser]

Hallo,

ich gehe davon aus, das variable ein Feld mit fixer Länge ist.
Du musst also zunächst mit %Trim oder %TrimR die Blanks am Feld-Ende entfernen. Falls ein Blank zwischen den Texten sein muss, musst Du es einfügen

/Free
for ....
variable = %TrimR(variable) + texttabelle(index);
endfor;

for ....
variable = %TrimR(variable) + ' ' + texttabelle(index);
endfor;

/End-Free

Wenn Du ein Feld mit Variabler Länge definierst, kannst Du Dir die Trim-Funktion sparen:

D MyVarText S 256A varying
/Free
clear MyVarText;
For Index = 1 to %Elem(Text);
MyVarText = MyVarText + Text(Index);
EndFor;
/End-Free

Birgitta

[haertl]

Danke Birgitta, es funktioniert.