-
SCAN bei ILE RPG ???
Hallo,
ich benötige mal kurz Eure Hilfe.
Ich habe ein Feld "Feld1" 8-stellig Alpha.
Dort stehen nr drinnen die mind. 4-stellig sind. also so z.B. '00009999'.
4-stellig sind die Nrn immer.
Nun möchte ich gerne die führenden Nullen abgeschnitten haben und den Rest "LINKSBÜNDIG" in das Feld2 stellen.
Ich habe es geschafft aber der Source Code ist so ca. 20 Zeilen lang.
Kennt einer ne kürzere Version wie man das machen kann, denn ich habe mir dabei echt einen abgebrochen und einige Hilfsfelder benutzt.
Ich denke mal en richtiger ILE - Freak kennt sich damit aus.
Danke,
HoSchie
Bye
HoScHiE
-
hi hoschie
glaube kürzer geht es nicht mehr ... ich gehe mal von aus das du dein ausgangsfeld auch in nummerischer form hast ... wenn nicht gibs ja noch den move befehl .. ;o)
eval feld2 = %trim(%editc(feld1:'3'))
feld1 --> nummerisch
feld2 --> alpha
'3' --> Editiercode
hoffe ich konnte helfen ...
gruss christian
-
Hier das Beispiel:
D $$Nummer S 1024A varying D $$Start S 5I 0
*
D $lfd_Nr S 8 inz('00009999')
C eval $$Nummer = $lfd_Nr
*
* Ermitteln 1. von 0 versch. Stelle
C '0' check $$Nummer $$Start
*
* Ermitteln Nummer ohne führende Nullen
C if %Found
C eval $$Nummer = %Subst($$Nummer:
C $$Start:
C %len($lfd_Nr)
C -$$Start+1)
C endif
Anmerkung : $Lfd_Nr. ist die umzusetzende Nummer.
Die Ausgabe erfolgt im Feld $Nummer mit variabler Satz-Länge --> nur der Wert 9999 steht noch in diesem Feld.
Ich hoffe Du kommst damit klar
B. Hauser
-
Super --- das war klasse.
Danke
Bye
HoScHiE
Similar Threads
-
By homue in forum NEWSboard Programmierung
Antworten: 5
Letzter Beitrag: 18-07-07, 16:47
-
By Stoeberl in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 10-01-07, 10:58
-
By Squall in forum IBM i Hauptforum
Antworten: 82
Letzter Beitrag: 19-10-06, 15:37
-
By Squall in forum IBM i Hauptforum
Antworten: 31
Letzter Beitrag: 28-09-06, 17:53
-
By Angela in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 22-08-06, 10:11
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