Die genannten Hinweise haben mir schon mal sehr weitergeholfen, danke dafür;

habe jetzt folgende Situation:

RTVMBRD FILE(MYLIB/MYFILE) MBR(&MBR *NEXT) RTNMBR(&MBR)
CPYTOPCD FROMFILE(MYLIB/MYFILE) TOFLR(MYFLR) FROMMBR(&MBR) REPLACE(*YES)

Dies soll solange getan werden, bis keine Teildatei mehr gefunden wird;

Wie lautet hierzu denn die IF - THEN - ELSE -Bedingung ?

Vielen DANK und viele Grüße








Zitat Zitat von Fuerchau
per RTVMBRD kann die Liste der Teildateien abgearbeitet werden:

RTVMBRD FILE(MYFILE) MBR(*FIRST) RTNMBR(&MBR) /* 1. Teildatei */
RTVMBRD FILE(MYFILE) MBR(&MBR *NEXT) RTNMBR(&MBR) /* nächste Teildatei */

Es gibt eine CPF3049-Nachricht, wenn keine Teildatei mehr vorhanden ist.

Übrigens:
*FIRST => nach Erstellung abrufen
*FIRSTMBR => Nach Namen sortiert abrufen