-
ILE RPG
Hallo,
ich steh' gerade auf dem Schlauch - wir haben in alpha Feldern teilweise ungültige Daten (Hex <=40).
Wenn die Felder auf dem BS (DSPF) angezeigt werden sollen, kommt ein Abbruch CPF5192.
Kann mir jemand ein Beispiel geben, wie ich diese Werte aud den Feldern zeichenweise rausfischen kann? Oder ggf auch nur Testen ob solche Werte im Feld sind und dieses dann leer machen?
Vielen dank im voraus
Jerry
-
Tja, das geht nur über eine Schleife, in dem jedes Zeichen geprüft wird.
Am besten geht es über eine Funktion á la:
d myfield pr 32000 varying
d parm1 32000 varying value
myfield = myreplace(myfield);
p myreplace b
d myreplace pi 32000 varying
d parm1 32000 varying value
d ind s 10I 0
c for ind = 1 to %len(parm1);
c if %sst(parm1:ind:1) < ' ';
c %sst(parm1:ind:1)=' ';
c endif;
c endfor;
c return parm1;
ungefähr so
-
Hallo Jerry!
Sieh' dir mal den RPG-Befehl XLATE an.
Gruß
Jürgen
-
Xlate geht aber nur, wenn man alle Codes von x'00' bis X'3F' aufführt und durch Blanks ersetzt (geht natürlich auch und ist ggf. schneller).
-
Kann ich bitte ein Beispiel haben?
Zitat von Fuerchau
Xlate geht aber nur, wenn man alle Codes von x'00' bis X'3F' aufführt und durch Blanks ersetzt (geht natürlich auch und ist ggf. schneller).
-
d xlfrom c const(x'000102....3F')
d xlto c const('.....') <= 64 Blanks
c myfield = %xlate(myfield:xlfrom:xlto);
-
Danke!!!! - ich war einfach zu müde zum selber Denken.
Aber zum Abscheiben reichts noch ;-)
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