Spoolfiles verbinden (Aus 2 mach 1)

[JonnyRico]

Hi *All,

ist es evtl. möglich zwei oder mehrere Spoolfiles in eine Spooldatei zusammenzufassen? Also vielleicht kennt ja jemand ein Tool mit dem das möglich ist oder geht es vielleicht sogar mit OS/400-Bordmitteln?? Vielen Dank im Voraus.

mfg

Sascha

[mk]

Hallo Sascha,

das müsste auch mit Bordmitteln gehen.

Du erstellst Dir eine Physische Tabelle mit der max. Satzlänge.

Dann kopierst Du mit CPYSPLF die Listen in diese Tabelle.
Bei der zweiten Liste mit dem Parameter MBROPT *ADD
Bei dem CPYSPLF kannst Du auch noch kopieren mit Steuerzeichen angeben.

Dann kopierst Du die DB Datei einfach mit CPYF
auf QSYSPRT.

Das war's

Gruss Michael

[JonnyRico]

Hi,

leider hat das nicht so ganz funktioniert. Ich habe zwar jetzt ein Spool indem beide vorherigen Druckausgaben verbunden sind, aber leider werden die Leerzeilen ignoriert. Es sind Rechnungen die ich so zusammenfügen möchte. Nach dem Zusammenkopieren fehlt einfach Formfeed hinter der Rechnung. Es kommt also alles hintereinander.
Ich habe es bei CPYSPLF mit allen Parametern in CTLCHAR versucht, aber wenn ich dann das DB-File auf den Drucker kopiere, sehe ich im Anschluss auch mit WRKSPLF die Steuerzeichen und sie werden auch mit angedruckt. Hab ich was falsch gemacht?

mfg

Sascha

[holly]

Hi Sascha,
Die Spool-files wie zuvor beschrieben, in PF kopieren aber mit CTLCHAR(*PRTCTL) anschließend die PF mit SPOOL OVERRIDEN und mit nachfolgendem RPG Programm ausdrucken :
FSPOOL IP F 142 DISK
FQPRINT O F 132 OF PRINTER KPRTCTLLINE
E ARR 132 1
ISPOOL AA 01
I 1 30SKIP
I 4 40SPACE
I 5 136 TEXT
ILINE DS
I 1 1 SPBEFR
I 2 2 SPAFTR
I 3 4 SKBEFR
I 5 6 SKAFTR
I 7 90AKTLIN
C SPACE IFNE *BLANK
C MOVE SPACE SPBEFR
C MOVE *BLANKS SKBEFR
C ELSE
C SKIP IFNE *BLANK
C MOVE *BLANKS SPBEFR
C MOVE SKIP SKBEFR
C ENDIF
C ENDIF
C EXCPTDETAIL
OQPRINT E DETAIL
O TEXT
Gruß Holger

[Bruno Jakob]

Hallo Sascha,

wenn du die Spoolfiles mit ctlchar(*fcfc) in eine Datei kopierst, dann musst du sie mit folgenden Befehlen wieder aus der Datei in eine Spoolfile zurückkopieren:

OVRPRTF FILE(QPRINT) CTLCHAR(*FCFC)
CPYF FROMFILE(*LIBL/DATEI) TOFILE(QPRINT)

Dann brauchts kein RPG-Programm und nix weiter und alle Leerzeilen und Seitenvorschübe sind da.

Gruß
Bruno