2 Programme, ein gemeinsames Spoolfile

[ILEMax]

Hi *all,

ich muß mit 2 Pgmmen in ein Spoolfile schreiben.
Möglichst NICHT über den Umweg, ein 3. Pgm den eigentlichen DRUCK machen zu lassen.
(geht auch ist aber nicht so schön)

In meinem Testpgm habe ich folgenden ovr

CMD             S            512    INZ('OVRPRTF FILE(QSYSPRT ) PAGESIZE+
                                    (6 132)  OVRSCOPE(*JOB) FORMTYPE(ZAH+
                                    LPLAN) OVERFLOW(6) SHARE(*YES) OPNSC+
                                    OPE(*YES)')

Pgm1 macht
- den ovr,
- den open,
- except T1,
- call pgm2
- close
-dltovr
return

PGM2 macht
- except t2
- return

beide Pgmme in der gleichen ACTGRP.
Leider hab ich dann 2 Spoolfiles.
Geht das nicht oder mach ich was falsch

Danke
Der ILEMax

[ExAzubi]

Wenn das PGM2 nicht von anderen Programmen aufgerufen wird, würde ich es als interne Proc im PGM1 definieren/einbauen.
Dann benutzen beide definitv das selbe SPLF.

[ILEMax]

Moin,
andere Möglichkeiten gibt es sicherlich.
Ich benötige aber 2 Programme.

Meine alternative ist ein 'Druckpgm' das den zu druckenden String und Vorschub Infos enthällt und von beiden gerufen wird.

bevorzugt wird jedoch 1 Share Prtf!

ILEMax

[Fuerchau]

Ganz einfach, dein OVR ist falsch und wird sicherlich nicht durchgeführt:

OPNSCOPE(*YES) ist nicht gültig, du bekommst beim QCMDEXC bestimmt einen Fehler.

Wenn du OVRSCOPE(*JOB) machst, benötigst du OPNSCOPE gar nicht, ansonsten gilt hier auch OPNSCOPE(*ACTGRPDFN/*JOB).

[ILEMax]

ja, aber das war's nicht

ich hatte vorher nur den OVRSCOPE(*JOB) drin, und es ging nicht. Daraufhin habe ich (nach try und error) nach weiteren hilfreichen Schlüsselworten gesucht.

Aber auch mit opnscope(*job) geht es nicht.

Aber der overflow schreibt sich ovrflw

DAS stand im joblog,
Danke
so geht's

der ILEMax