-
Kovertierung numerisch nach alpha in RPG IV
Hallo zusammen,
gibt es im RPG-free-Format eine komfortable Möglichkeit ein numerisches Feld in ein Alpha-Feld zu konvertieren, so dass alle! führenden Nullen umgesetzt werden?
Mit %editw wird mindestens eine Null gelöscht. Mit %char werden sämtliche Nullen herausgenommen.
Ziel ist es ein 5-stelliges numerisches so umzusetzen dass ein 5-stelliges Alphafeld mit Inhalt z.B. '00005' dabei herauskommt.
Vorab vielen Dank für zahlreiche Hilfen.
Gruß Michael
-
probier mal :
Code:
di s 5s 0 inz(12)
dc s 5a
c eval c = %editC( i : 'X' )
c return
Gruß Rolf
-
Hat funktioniert!
Vielen Dank!
Gruß Michael
-
Übrigens: mit %editw geht es auch (genauso auch in DDS mit EDTWRD).
Das Editierzeichen '0' (Null) muss nur zusätzlich vor dem 1. Leerzeichen angegeben werden, will heißen, bei Verwendung von '0' kann die Maske genau 1 Stelle länger sein als das Dezimalfeld Stellen hat.
-
<BLOCKQUOTE><font size="1" face="Verdana, Arial">Zitat:</font><HR>Original erstellt von Fuerchau:
Übrigens: mit %editw geht es auch (genauso auch in DDS mit EDTWRD).
Das Editierzeichen '0' (Null) muss nur zusätzlich vor dem 1. Leerzeichen angegeben werden, will heißen, bei Verwendung von '0' kann die Maske genau 1 Stelle länger sein als das Dezimalfeld Stellen hat.[/quote]
Ist auch eine Möglichkeit.
Dann muss das Ergebnisfeld aber auch eine Stelle länger sein, sonst wir die rechte letzte Stelle abgeschnitten.
-
hallo michael,
es muss nicht immer unbedingt eine stelle mehr sein
Code:
d wert_num s 3 0 inz(123)
d wert_alpha s 3a
c
c Eval wert_alpha = %triml(%editw(wert_num:'0 '))
c
c Eval *inlr = *on
im feld wert_alpha steht dann 123 und nicht ' 12' wenn du das %triml weg lässt
gruß ronald
[Dieser Beitrag wurde von malzusrex am 11. Juni 2003 editiert.]
-
Ach wie herrlich ist doch free-rpg, wenn ich nur mehr Zeit hätte alles auszuprobieren! Danke für Tipps.
Gruß Michael
Similar Threads
-
By timeless in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 11-01-07, 12:04
-
By labm in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 23-03-06, 11:17
-
By Kurmas Zeschlon in forum IBM i Hauptforum
Antworten: 0
Letzter Beitrag: 27-06-05, 15:48
-
By Tobse77 in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 23-06-05, 10:20
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