Feldgruppen im free-Format

[kretzsch]

Hallo Miteinander,

im RPG-free bringe ich ein Charakterfeld in eine Feldgruppe, mit dieser erstelle ich eine weitere Feldgruppe:
dcl-s #feldgr char(2)dim(20);
dcl-s #feldgr1 char(3)dim(20);
dcl-s #neu char(60);
dcl-s #alt char(40);

#str =1;

for #ix =1to20;
#feldgr(#ix)=%subst(#alt:#str:2);
#feldgr1(#ix)= #feldgr(#ix)+' ';
#str = #str +2;
endfor;

das klappt wunderbar aber wie bekomme ich die #feldgr1 ins Feld #neu???
Sicher ganz simpel !?

[B.Hauser]

In dem Du #FldGr1 in einer Datenstruktur hinterlegst und im Anschluss die komplette Datenstruktur in das Feld #Neu überträgst.
Oder dass Du gleich das Feld #Neu mit der Feldgruppe überlagerst:

Dcl-DS DSFldGrp;
   #FldGrp1 Char(3)  Dim(20);
End-DS;
 
//im Anschluss DSFlgGrp nach #Neu1 übertragen
//oder

Dcl-DS DSFldGrp;
   #FldGrp1 Char(3)  Dim(20);
   #Neu     Char(60) Pos(1);
End-DS;

Birgitta

[ExAzubi]

for #ix =1to20;
%SUBST(#neu, 3*#ix, 3) = #feldgr1(#ix)
endfor;

So oder so ähnlich, ist nur aus dem Bauch so raus...

[kretzsch]

Danke, die Überlagerung mit Feldgruppe und Feld in der Datenstruktur ist ja genial und hat funktioniert!