-
RPG - prüfen ob Satz in Datei und diesen in eine andere Datei schreiben
Hallo zusammen,
kurze Frage. Wie kann ich mir RPG prüfen ob in einer Teildatei ein Satz steht oder ob diese leer ist.
Wenn leer dann Programm ende wenn die Teildatei Inhalte hat muss der erste Satz in eine andere Datei geschrieben werden.
Wichtig ich kann die Datei nur
fFILE if e k disk
lesen also nicht ipe.. dann bräuchte ich ein extra Programm was ich nicht möchte.
Danke im Voraus und schön Feiertage an alle!
Grüße
_MG_
-
k.a. ob du das so meinst aber ich denke ...
ovrdbf auf das member (cl oder qcmdexc)
*loval setll
read
if %eof
ende
else
Write datei2
endif
ende
lr
Robi
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
Du kannst jede Datei auch ohne KEY (K) lesen.
Nach dem Open steht der Satzzeiger vor dem ersten Satz.
Ein einfacher READ liefert entweder %EOF oder den 1. Satz (wobei gelöschte Sätze est mal überlesen werden).
Da aber doch meist ein CLP vorgeschaltet ist, reicht ein RTVMBRD um die Anzahl Sätze (NBRCURRCD?) abzufragen und den Aufruf gar nicht erst zu machen.
-
Guter Ansatz von Robi, aber den Read kannste knicken...
Ich würd's so machen:
setll (*loval) myFile;
if %equal();
write otherFileRec;
else;
.... return oder was immer du willst
endif;
kf
-
@camouflage
Wenn du das lesen wegläßt ... wie willst das dann lösen?
wenn die Teildatei Inhalte hat muss der erste Satz in eine andere Datei geschrieben werden.
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
Eigentlich würde ich da noch nicht mal RPG bemühen:
CPYF FROMFILE(FROMFILE)
TOFILE(TOFILE)
MBROPT(*ADD)
FROMRCD(*START)
NBRRCDS(1)
Ggf. mit MONMSG abfangen, wenn es einen Fehler bei leerer Datei gibt.
-
@Robi, alles klar - Aufgabe nicht verstanden, 6 , setzen
kf
-
@Baldur
Deine Lösung ist, wie so häufig die beste!
aber leider an der Aufgabenstellung vorbei
kurze Frage. Wie kann ich mir RPG prüfen ...
Robi
der sich ärgert nich auch auf die CL idee gekommen zu sein
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
-
DQCMDEXC PR
D QCMD 256 CONST
D QCMDL 15P 5 const
QCMDEXC('CPYF ...':256);
-
Hallo zusammen und danke für die Rückmeldung..
Habe es mit read und %eof gelöst.
Funktioniert wie gewünscht.
Danke und schönen Abend euch!
Similar Threads
-
By FNeurieser in forum NEWSboard Programmierung
Antworten: 1
Letzter Beitrag: 27-04-16, 16:34
-
By Robi in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 07-01-16, 07:40
-
By mott in forum IBM i Hauptforum
Antworten: 13
Letzter Beitrag: 16-12-15, 15:55
-
By Starocotes in forum NEWSboard Programmierung
Antworten: 20
Letzter Beitrag: 03-03-14, 09:51
-
By JonnyRico in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 02-04-03, 15:52
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