Hallo AK1

ich habe da in einer alten Anwendung noch eine Lösung gefunden:

1. in RPGII-Programm:

C*
C* DRUCKDATEI SCHLIESSEN U. NEU ERÖFFNEN
C MOVE 'LFSCHLOE'NAME 8
C CALL 'SUBOC'
C PARM NAME
C*

2. CL-Programm SUBOC

0001.00 PGM PARM(&NAME)
0002.00 DCL VAR(&NAME) TYPE(*CHAR) LEN(8)
0003.00 OVRPRTF FILE(QSYSPRT) TOFILE(&NAME) DEV(*JOB) +
0004.00 SHARE(*YES)
0005.00 CALL PGM(SUBB)
0006.00 OVRPRTF FILE(&NAME) TOFILE(QSYSPRT) DEV(*JOB) +
0007.00 SHARE(*YES)
0008.00 ENDPGM

3. RPG400 Programm SUBB

H
FQSYSPRT O F 132 PRINTER
C SETOF 01
C FEOD QSYSPRT
C CLOSEQSYSPRT
C OPEN QSYSPRT
C SETON LR
C RETRN
OQSYSPRT D 01

Ich denke es müsst noch funktionieren.

Viele Grüße
GJV23