Hallo Frank,

hast Du schon mal mit API's gearbeitet. Mit dem API QUSRJOBI kannst Du direkt rausfinden, in welchem Subsystem der Job aktiv ist.

Und so geht's:

PGM
DCL VAR(&RETVAL) TYPE(*CHAR) LEN(100)
DCL VAR(&RETLEN) TYPE(*CHAR) LEN(4) +
VALUE(X'00000064')
DCL VAR(&FORMATNAME) TYPE(*CHAR) LEN(10) +
VALUE('JOBI0200')
DCL VAR(&QUALJOB) TYPE(*CHAR) LEN(26) VALUE('*')
DCL VAR(&JOBIDENT) TYPE(*CHAR) LEN(16)
DCL VAR(&SUBSYS) TYPE(*CHAR) LEN(10)

CALL PGM(QUSRJOBI) PARM(&RETVAL &RETLEN +
&FORMATNAME &QUALJOB &JOBIDENT)
CHGVAR VAR(&SUBSYS) VALUE(%SST(&RETVAL 63 10))

SNDMSG MSG(&SUBSYS) TOUSR(JAKOB)
ENDPGM

Gruß
Bruno

[Dieser Beitrag wurde von Bruno Jakob am 08. August 2001 editiert.]