Es geht ja noch "einfacher":


D CMD PR EXTPGM('QCMDEXC')
D COMMAND 200A CONST
D LEN 15P 5 CONST

:
:
:

C CALLP CMD('OVRDBF FILE(STDOUT) TOFILE(' +
C 'QPRINT) OVRSCOPE(*JOB)': 200)

C CALLP CMD('OVRDBF FILE(STDERR) TOFILE(' +
C 'QPRINT) OVRSCOPE(*JOB)': 200)



Das freut mich jetzt so, dass das funktioniert, dass ich garnicht mehr von dem Thema ablassen kann.
Für Euch ist die obige Info vielleicht ein alter Hut?
Für mich "Dino" sind das neue Erkenntnisse. Aber vielleicht hat ja mal ein anderer Dino auch das Problem...
Gruß, JIM