-
und nochmal rein RPG
**free
dcl-s feld1 char(25) inz('A123456789012345678901234');
dcl-s feld2 char(25) inz('A 12345678901234567890123');
dcl-s feld3 char(25) inz('A B C12345678901234567890');
dcl-s Ausgabe varchar(50) inz;
dcl-s pos zoned( 5: 0 );
pos = 1;
ausgabe = feld1;
dou pos > 5;
if %subst(feld1 : pos:1) >= x'F0' and %subst(feld1 : pos:1) <= x'F9';
ausgabe = ' ' + %subst(ausgabe :1:25-pos);
endif;
pos += 1;
enddo;
Viele Wege führen nach Rom bzw. zum Ergebnis
Programmierung
Similar Threads
-
By alex61 in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 20-09-19, 08:43
-
By TheDevil in forum NEWSboard Programmierung
Antworten: 6
Letzter Beitrag: 05-06-14, 21:47
-
By Michael1 in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 18-08-05, 14:50
-
By HoScHiE in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 13-10-01, 12:36
-
By HoScHiE in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 02-10-01, 16:16
Tags for this Thread
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