View Full Version : Prüfen, ob Programm X gerade aktiv ist
Gibt es auch hier eine Möglichkeit, im CL entsprechend zu reagieren? (z.B. keine weitere Ausführung des CL's, falls Programm "Hugo" noch aktiv ist...)
Nun, dass ist eher sehr mühsam, da hier jeder Stack jedes Job's zu prüfen wäre.
Da sollte Hugo eher eine DTAARA HUGO anlegen und diese sperren solange es aktiv ist.
Diese kannst du dann per ALCOBJ *EXCL prüfen.
kuempi von stein
16-10-07, 15:35
Hello,
da gabs vor 10 Jahren oder so mal ein Tool IFACTJOB.
Das konnte man als CMD im CL einbinden und dann hat man ne CPF zurückbekommen.
Aber meine Suchmaschine spuckt da nix aus, und ich denke da lief im Hintergrund eh nur ein verkappter WRKACTJOB nach Datei oder so (maybe API) der die aktiven PGMe abgefragt hatte...
Eventuell hilft ja auch ZRTVJOBSTS von Anne and Herb's Web page (http://www.geocities.com/SiliconValley/Pines/9037/)
? Hab ich nicht wirklich geprüft.
k.
IFACTJOB ist ähnlich des Brain-CMD's IFACTIVE.
Da wird nichts anderes gemacht, als per Parameter eine Datei und Teildatei anzulegen und diese per ALCOBJ zu sperren.
Es ist halte ein Verallgemeinerung von
CHKOBJ
MONMSG ... DO
CRTPF
ADDPFM
ENDDO
ALCOBJ
Das Kommando hat auch eine Parameter für ALCOBJ und DLCOBJ, da der DLC trotzdem nötig ist:
IFACTIVE FILE(MYFILE) MBR(MYMBR) SETACT(*YES)
MONMSG ...
tuwas
IFACTIVE FILE(MYFILE) MBR(MYMBR) SETACT(*NO)
Hello,
da gabs vor 10 Jahren oder so mal ein Tool IFACTJOB.
Das konnte man als CMD im CL einbinden und dann hat man ne CPF zurückbekommen.
Aber meine Suchmaschine spuckt da nix aus, und ich denke da lief im Hintergrund eh nur ein verkappter WRKACTJOB nach Datei oder so (maybe API) der die aktiven PGMe abgefragt hatte...
Eventuell hilft ja auch ZRTVJOBSTS von Anne and Herb's Web page (http://www.geocities.com/SiliconValley/Pines/9037/)
? Hab ich nicht wirklich geprüft.
k.
@ Kuempi
nach IFACTJOB brauchst Du nicht zu suchen, der schaut nach JOB und nicht nach PGM (die Quelle habe ich übrigens noch).
ist ein CLP, benutzt
CALL PGM(QUSLJOB) PARM(&QUALUSRSPC 'JOBL0100' +
&QUALJOB '*ACTIVE ')
Ausgabe nach *USRSPC und Rückgabe eines Antwortwertes, ob abgefragter JOBNAME aktiv ist
Gruß Holger
kuempi von stein
17-10-07, 15:30
Grüss dich Holly (du alter Theoretiker),
im Prinzip war mir der Einwand von Anfang an klar.
Aber wie sieht denn die Praxis aus?
Bestimmte Programme laufen immer unter bestimmten JOB-Namen.
Und damit würde sich der Kreis ja wieder schliessen...
Ach egal, denke das Thema ist geklärt.
kuempi
Nachtrag 1:
Schick mir doch mal die Quelle bitte, e-mail haste ja noch?
Nachtrag 2:
Der Wunsch nach nem bestimmten PGM im active abzufragen, zeigt eigentlich auf eine gewisse Designschwäche des Programmpaketes hin... aber wie gesagt, ich denke das ist bereits abgehakt?
k.