Jobs aus Scheduler

[Tschabo58]

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]

Vielleicht wäre es besser gewesen, Du hättest Dir die APIs QUSLJOB (List Job) und QUSRJOBI (Retrieve Job Information) angeschaut und Dir die Informationen darüber ermittelt.

Birgitta

[Pikachu]

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]

Ich habe jetzt das API QUSRJOBI (Retrieve Job Information) verwendet und es funktioniert einwandfrei.
Danke für die Hilfe.