Vorausgesetz, Furchau hat mit seinem Ansatz recht.

1. OVRPTF PrinterFileName HOLD(*YES)
2. Aufruf des Printout Programmes
3. CRTPF QTEMP/DATNAM RCDLEN(Breite der Printerfile + 1) size(*NOMAX)
4. CPYSPLF PrinterFileName JOB(*) SPLFNBR(*LAST) TOFILE(QTEMP/DATNAM) CTLCHAR(*FCFC)
5. OVRPRTF PrinterFileName OUTQ(OUTQ1) CTLCHAR(*FCFC) HOLD(*NO)
6. CPYF FROMFILE(QTEMP/DatName)TOFILE(PrinterFileName)
/* Damit druckst du die Spoolfile in die erste OUTQ */
7. OVRPRTF PrinterFileName OUTQ(OUTQ2) CTLCHAR(*FCFC) HOLD(*NO)
8. CPYF FROMFILE(QTEMP/DatName)TOFILE(PrinterFileName)
/* Damit druckst du die Spoolfile in die zweite OUTQ */


Damit hast du ansatzweise ein Listverteilungsprogramm

Gruß
DVE