-
Feldgruppen im free-Format
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 !?
-
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:
Code:
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
-
for #ix =1to20;
%SUBST(#neu, 3*#ix, 3) = #feldgr1(#ix)
endfor;
So oder so ähnlich, ist nur aus dem Bauch so raus...
-
Danke, die Überlagerung mit Feldgruppe und Feld in der Datenstruktur ist ja genial und hat funktioniert!
Similar Threads
-
By Günter in forum NEWSboard Programmierung
Antworten: 10
Letzter Beitrag: 26-06-14, 14:10
-
By Tonazzo in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 12-06-14, 22:50
-
By camouflage in forum NEWSboard Java
Antworten: 1
Letzter Beitrag: 02-12-13, 15:58
-
By froehlich in forum IBM i Hauptforum
Antworten: 7
Letzter Beitrag: 12-05-03, 15:35
-
By Gimli in forum IBM i Hauptforum
Antworten: 6
Letzter Beitrag: 03-03-03, 10:23
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks