-
Hallo.
Im CL ein RUNSQLSTM. Vorher die Datei defenieren
DCLF FILE(lib/file) RCDFMT(*ALL) OPNID(yyy)
Datei lesen und wenn ende (0864) dann raus
READ: RCVF RCDFMT(xxx) OPNID(yyy)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDE99))
Jetzt kann auf die Felder zugegriffen werden. Hier Beispiel mit chgvar
CHGVAR VAR(&whatever) VALUE(%SUBSTRING(&yyy_fieldname +
2 8))
etc etc etc...
Hier kann dann ja auch ein If stehen und bei entsprechenden True dann ein
sndbrkmsg...
Um wieder den nächsten Satz zu lesen ein
GOTO READ
Gruß,
Ralf
Similar Threads
-
By chrisssiie in forum NEWSboard Programmierung
Antworten: 6
Letzter Beitrag: 08-11-21, 07:17
-
By woodstock99 in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 08-11-17, 17:56
-
By AK1 in forum NEWSboard Programmierung
Antworten: 18
Letzter Beitrag: 16-02-17, 10:04
-
By martschp in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 13-11-13, 08:21
-
By iceman in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 04-04-03, 10:26
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