-
RPG Problem
Hallo,
ich möchte ein numerisches Feld in ein alphanumerisches Feld umwandeln, um es dann CATen zu können.
Wie mache ich das?
Das Feld hat 11 Stellen, davon 2 Nachkomma.
Grüße
Mädele
-
Hallo Mädele, ich habe auf die schnelle folgende Lösung im RPG
I-Bestimmung Datenstruktur:
INUMF ... DS ..
1 - 11 2(Dec) NFLD
ICHARF ... DS ..
1 - 11 _ CFLD
C ... MOVE Dein-Feld nach NFLD
(Z-ADD)
C ... MOVE NFLD CFLD
jedoch sind dann im Charakterfeld CFLD Vornullen enthalten
Viel Grüsse Alf
-
Hallo Mädele,
wenn du mit RPGIV arbeitest, hast Du die Möglichkeiten über die Built-in-Funktionen %Char(), %EditC() oder %EditW() einen numerischen Wert aufzubereiten.
Bei %Char(Numer.) werden die führenden Nullen entfernt und das Ergebnis linksbündig ausgerichtet. Dezimal-Trennzeichen werden übernommen.
Bei %EditC(Numer.: 'Format') kann ein EditCode, wie aus dem DDS bekannt, angegeben werden. Das Ergebnis wird wie im DDS entsprechend aufbereitet.
Bei %EditW(Numer.: Maske) kann wie im DDS eine Maske angegeben werden. Die Maske muss in den D-Bestimmungen als Konstante hinterlegt sein.
Das Ergebnis wird wie im DDS aufbereitet.
Bei allen 3 Funktionen können noch andere Parameter übergeben werden. Eine weitere Erklärung würde jetzt den Rahmen sprengen.
Bei Interesse einfach in der RPG-Referenz nachschlagen.
In RPGIV ist auch kein CAT-Befehl mehr nötig,
ein einfaches + ist ausreichend im zwei Strings miteinander zu verknüpfen.
Beispiel:
C Eval $Text = 'Gesamt-Summe = ' + %Char(MySumme)
Birgitta
Similar Threads
-
By robertki in forum NEWSboard Programmierung
Antworten: 25
Letzter Beitrag: 19-01-07, 08:42
-
By Stoeberl in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 10-01-07, 10:58
-
By Stoeberl in forum NEWSboard Programmierung
Antworten: 11
Letzter Beitrag: 26-10-06, 10:07
-
By Flappes in forum IBM i Hauptforum
Antworten: 0
Letzter Beitrag: 06-10-06, 08:39
-
By gaby68 in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 14-06-06, 16:27
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