-
Danke für den Hinweis.
Aber ich habe jetzt anders gelöst:
FTEST IF E K DISK
FTEST1 O E K DISK
DKEY S Like(WAREH)
C
/FREE
KEY = 'AAB';
Chain Key TEST;
if %Found(TEST);
DoW not %EoF(TEST);
//Dsply KUNDE;
Kunde1= Kunde;
Write Test1f;
Reade Key TEST;
EndDo;
else;
Dsply 'NIX gefunden';
Endif;
*Inlr = *On;
/End-Free
C
-
Danke noch mal habe jetzt auch RPGLE angepasst.
-
Statt CHAIN und IF %FOUND kannst du auch mit SETLL aufsetzen und falls erfolgreich mit READE lesen.
-
Chain = Setll + Reade ;-)
Similar Threads
-
By dschroeder in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 05-04-16, 14:40
-
By Oskar in forum NEWSboard Programmierung
Antworten: 7
Letzter Beitrag: 14-07-15, 21:02
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