Anmelden

View Full Version : Jobs aus Scheduler



Tschabo58
13-08-12, 08:34
Ich ermittle in einem CL-Programm RTVJOBA, ob das Programm Interaktiv oder im Batch aufgerufen wurden. Gibt es die Möglichkeit, auch noch zu ermitteln, ob das Programm aus dem Scheduler (WRKJOBSCDE) aufgerufen wurde?

Robi
13-08-12, 08:43
Nein, soweit ich weis nicht.
Wenn das wichtig ist, gib ihnen einen passenden Namen
Robi

andreaspr@aon.at
13-08-12, 08:43
Ein Attribut wie JOBSCDE-Aufruf: JA/NEIN glaub ich nicht, dass es gibt.
Das müsstest du eventuell anders lösen:
*) Weiterer Eingangsparameter
*) Job-Name?

lg Andreas

Fuerchau
13-08-12, 08:50
Da der Scheduler einen ganz normalen SBMJOB ausführt, glaube ich eher nicht.
Ggf. gibt es diese Infos indirekt, da der Jobname dem Namen des scheduled Job's entspricht.

Tschabo58
14-08-12, 10:31
Ich habe herausgefunden, dass Jobs aus dem Scheduler mit dem Systemjob QJOBSCD übergeben werden. Nun habe ich ein kleines CL-Programm geschrieben, welches einen DSPJOB mit Ausgabe *PRINT macht und dann diese Spooldatei in eine PF kopiert. Diese PF wird dann mit einem weiteren kleinen RPG-Progrämmchen nach dem Wort QJOBSCD durchsucht. Wird das Wort QJOBSCD gefunden, wurde das Programm aus dem Scheduler aufgerufen und es wird ein „J“ in einem Parameter zurückgegeben.
Ist vielleicht nicht die sauberste Lösung, aber es scheint zu funktionieren.

B.Hauser
14-08-12, 10:44
Vielleicht wäre es besser gewesen, Du hättest Dir die APIs QUSLJOB (List Job) (http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/index.jsp?topic=%2Fapis%2Fqusljob.htm) und QUSRJOBI (Retrieve Job Information) (http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/index.jsp?topic=%2Fapis%2Fqusrjobi.htm) angeschaut und Dir die Informationen darüber ermittelt.

Birgitta

Pikachu
14-08-12, 12:22
Probiers mal so:


PGM
DCL VAR(&RCV) TYPE(*CHAR) LEN(150)
DCL VAR(&RCVLEN) TYPE(*CHAR) LEN(4)
DCL VAR(&SBMNAME) TYPE(*CHAR) LEN(10)

CHGVAR VAR(%BIN(&RCVLEN)) VALUE(150)
CALL PGM(QUSRJOBI) PARM(&RCV &RCVLEN JOBI0300 * ' ')
CHGVAR VAR(&SBMNAME) VALUE(%SST(&RCV 117 10))

ENDPGM

Tschabo58
15-08-12, 06:36
Ich habe jetzt das API QUSRJOBI (Retrieve Job Information) (http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/index.jsp?topic=%2Fapis%2Fqusrjobi.htm)verwendet und es funktioniert einwandfrei.
Danke für die Hilfe.:)