Problem mit CPYSPLF

[Mordox]

Hallo Fuerchau!

Gute Idee mit SPLFNAME!!! Werde ich gleich mal ausprobieren.

Aber *LAST scheint wohl nicht immer der letzte zu sein, denn, wenn die letzte Spool leer ist (*FIN mit SPLFNR 2) kopiert er die vorletzte.... aber egal, ich probiers mit dem Namen!

Merci!

Auch wenn du dies per API erfragst, *LAST
ist nunmal immer die letzte !
Du solltest per "OVRPRTF FILE(QSYSPRT SPLFNAME(XXXX)" einen eindeutigen Namen pro PGM-Aufruf vergeben.
Dann kannst du eben statt QSYSPRT den vergebenen Namen XXXX beim CPYSPLF angeben.
*LAST bezieht sich nicht auf die letzte Liste des Job's sondern auf die letzte Liste des gleichen Namens.

[Mordox]

Hallo Fuerchau!

Du bist ein Programmiergott!

Es funzt wie es soll.

Nochmal Danke schön!

Andreas

[Fuerchau]

Verbesserung:
*LAST ist die letzte aktive Spoolfile, *FIN wird nur angezeigt, wenn der Job noch läuft. Ist der Job beendet, werden *FIN's auch freigegeben.

[kuempi von stein]

hello,

ok ok du hast dein proggi angepasst und nun läufts.

man hätte aber auch tricksen können:

machst du NACH aufruf pgmB und VOR aufruf CPYSPLF nen CHGSPLFA auf QSYSPRT und fängst die Fehlermeldung mit MONMSG ab. wenn CPF3340 dann existieren 2 SPLFs wenn nicht nur eine.

wobei diese lösung nur funzt wenn pgmA IMMER eine SPLF erzeugt und pgmB nur manchmal....

musste mal gesagt werden. ich frickel eben gerne


k.

[Fuerchau]

Wobei das nur klappt, wie du schon beschreibst, wobei meine Lösung (auch in der Übersicht WRKSPLF) "eleganter" ist
Ausserdem darfst du dann den Parameter SPLNBR(*LAST) nicht verwenden, sonst kommt der Fehler nämlich nicht !