TIF-Dateien aus AS/400 Spoolfiles erzeugen

[peter.kinne@web.de]

Hallo,

noch ein kleiner Nachtrag bzw. Frage.

Wir haben die Lösung von prsbrc probiert und folgendes gemacht:

1.) Druckerdatei erstellt
2.) RPG erstellt Testweise 5 Zeilen
3.) OVRPRTF FILE(eigene_prtf) TOSTMF('/eigener_folder/test.tif') WSCST(QWPTIFFG4) OVRSCOPE(*JOB)
4.) RPG aufgerufen. Es kommt der Fehler DEVTYPE(*SCS) nicht zulässig.

Wir haben schon alle möglichen DECTYPEN probiert. Aber es klappt einfach nicht. Sind wir zu blöd oder gibt es da einen Trick????

Gruß

Peter

[camouflage]

Hast du schon mal einen CPYSPLF versucht?


CPYSPLF FILE(mySpool) TOFILE(*TOSTMF) JOB(nnn/user/job) SPLNBR(*LAST) TOSTMF('/myDir/mytif.tif') WSCST(QWPTIFFG4)

[Fuerchau]

"Es kommt der Fehler DEVTYPE(*SCS) nicht zulässig."
Dann ändere die PRTF doch einfach in *AFPDS.

[peter.kinne@web.de]

Hast du schon mal einen CPYSPLF versucht?


CPYSPLF FILE(mySpool) TOFILE(*TOSTMF) JOB(nnn/user/job) SPLNBR(*LAST) TOSTMF('/myDir/mytif.tif') WSCST(QWPTIFFG4)

...der Tipp war gut. Macht genau das. was es soll. Vielen Dank,

Peter

[Fuerchau]

Wenn du den Spool nicht benötigst dann ergänze deinen OVRPRTF mit DEVTYPE(*AFPDS), bzw. ändere deine PRTF auf AFPDS, dann solltest du dir den CPYSPLF bereits sparen können.