alle Teildateien einer Datei täglich in PC-Doc

[Huberth]

Hallo,

Habe folgende Anforderung:

Eine Datei erweitert sich täglich um eine oder mehrere Teildateien. Wir benötigen jede einzelne Teildatei als PC-Dokument. Wir wollen täglich automatisiert jeweils alle Teildateien in ein PC-Dokument kopieren. Der Befehl CPYTOPCD hilft mir da nicht viel. Es muss täglich die gesamte Datei gelesen und jede Teildatei als PC-Dokument erstellt werden. Hat jemand einen Ansatz?

Vielen Dank

Huberth

[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

[Huberth]

Vielen Dank für den Tip ! Hat mir sehr weitergeholfen !

Viele Grüße

Huberth

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

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