Prüfen, ob ein Subsystem aktiv ist bzw. ob Jobs in einem aktiven Subsystem laufen

[JoergHamacher]

Hallo miteinander,

wir sollen ein Programm zum re-boot der IBMi schreiben, das erst ein PWRDWNSYS durchführt, nachdem geprüft wurde, ob in einem der zahlreichen Subsysteme noch ein Job aktiv ist.
Wir müssen also
1.) prüfen, welche Subsysteme aktiv sind
2.) prüfen, ob in einem aktiven Subsystem noch ein oder mehrere Jobs laufen
3.) am besten noch prüfen, in welchem Zustand sich die einzelnen Jobs befinden.
Ist so etwas mit "Bordmitteln" der IBMi (ab Release V6R1) machbar - und wenn ja, wie?

Vielen Dank im Voraus für Eure Hilfe,
Jörg

[BenderD]

PWRDWNSYS DELAY(*NOLIMIT)

D*B

[MR-BN]

über das API QUSLJOB kannst Du Dir alle notwendigen Informationen abfragen.
für weitere Details = google nach dem API

[andreaspr@aon.at]

Nur zur info für alle die 7.1 mit TR10 oder 7.2 TR2 haben, gibt es eine neue Table Function.
Diese beinhaltet ähnlich wie WRKACTJOB eine fülle an informationen.
Über die Parameter können auch diverse Filter abgesetzt werden.

SELECT * FROM TABLE(QSYS2.ACTIVE_JOB_INFO(
   JOB_NAME_FILTER => 'PR*',              
   SUBSYSTEM_LIST_FILTER => 'QINTER')) T1

https://www.ibm.com/developerworks/c...%29%20-%20UDTF

lg Andreas

[KingofKning]

Alternativ ein wrkactjob mit *print.Einlesenund auswerten.GG

[GeorgG]

oder ein wrksbsjob mit Subsystem, bringt einen Fehler, CPF1003, wenn nicht aktiv