alle Teildateien einer Datei täglich in PC-Doc

[Huberth]

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

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

[Dufti]

keine IF-Abfrage, sondern MONMSG, ggf. etwa so:

PGM
DCL [...]

RTVMBRD FILE(MYLIB/MYFILE) MBR(*FIRSTMBR) RTNMBR(&MBR)
MONMSG(CPF0000) CMD(GOTO ENDE)
CPYTOPCD ...
RMVM ...&mbr...

TOP:
RTVMBRD FILE(MYLIB/MYFILE) MBR(&MBR *NEXT) RTNMBR(&MBR)
MONMSG(CPF0000) CMD(GOTO ENDE)
CPYTOPCD ...
RMVM ...&mbr...

GOTO TOP

ENDE: ENDPGM


' Ich würde immer mit FIRSTMBR arbeiten, weil *NEXT auch nach Namen sortiert arbeitet.

[Huberth]

Super, klappt! Besten Dank !

keine IF-Abfrage, sondern MONMSG, ggf. etwa so:

PGM
DCL [...]

RTVMBRD FILE(MYLIB/MYFILE) MBR(*FIRSTMBR) RTNMBR(&MBR)
MONMSG(CPF0000) CMD(GOTO ENDE)
CPYTOPCD ...
RMVM ...&mbr...

TOP:
RTVMBRD FILE(MYLIB/MYFILE) MBR(&MBR *NEXT) RTNMBR(&MBR)
MONMSG(CPF0000) CMD(GOTO ENDE)
CPYTOPCD ...
RMVM ...&mbr...

GOTO TOP

ENDE: ENDPGM


' Ich würde immer mit FIRSTMBR arbeiten, weil *NEXT auch nach Namen sortiert arbeitet.