View Full Version : alle Teildateien einer Datei täglich in PC-Doc
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? :confused:
Vielen Dank
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
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
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 ? :confused:
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
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.
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.