RPG - prüfen ob Satz in Datei und diesen in eine andere Datei schreiben

[Robi]

@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.

[Fuerchau]

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.

[camouflage]

@Robi, alles klar - Aufgabe nicht verstanden, 6 , setzen

[Robi]

@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

[BenderD]

... system('CPYF....');

[Fuerchau]

DQCMDEXC PR
D QCMD 256 CONST
D QCMDL 15P 5 const

QCMDEXC('CPYF ...':256);

[_MG_]

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!