prüfen ob Job schon läuft

[muadeep]

guten morgen *all

kennt jemand eine Möglichkeit, zu prüfen, ob ein bestimmter Job schon läuft!

Erklärung:
ich habe ein Programm (sagen wir mal PgmA), welches von einem anderen Pgm. an die JobQ "QBATCH" übergeben wird.
Hier kommt es vor, dass in dieser OutQ schon andere Job's (die nicht's mit diesem zu tun haben => "FIFO") stehen, bzw. noch laufen.
Es kann jetzt sein, dass genau dieses PgmA noch mal an eine andere JobQ z.B. "QBACHT2"übergeben wird.

meine Frage:
ist es möglich zu Beginn dieses Pgm's zu prüfen (API, CMD, etc.), ob schon ein PgmA läuft?

[mwithake]

Über die API QUSRJOBI lässt sich das ermitteln.

[andreaspr@aon.at]

Du kannst es auch mit dem CHKACTJOB RPG-Source probieren:
http://www.neroni.it/Scaricabili/JAC2.txt

[BenderD]

... das ist beides nicht Wasserdicht (da könnten 2 gerade am prüfen sein und legen dann beide los). Sowas regelt man über Sperrobjekte oder Satzsperren in einer Datenbank, man holt sich dann als erstes eine Sperre, die dann bei Jobende verschwindet, oder vorher freigegeben werden kann.

D*B

[Fuerchau]

Was aber das Problem nicht löst, wenn der 1. Job in der JOBQ noch wartet.
Hier könnte der Job sich selber prüfen.
Sobald die von Dieter erwähnte Sperre aktiv ist, kann der 2. Job sich ja sofort wieder beenden, wenn eine gleichzeitige Verarbeitung nicht erlaubt ist.
So wird zwar ggf. zuviel submitted, aber was macht das schon.
Laufen die Jobs nämlich hintereinander, merkt's sowieso keiner.
Doppelte Verarbeitung verhindert man ggf. über Satzflags oder Existenzprüfung des Ergebnisses.

[BenderD]

... die aber nicht zum prüfen gegen doppelte Ausführung herangezogen werden dürfen, da sie erst bei erfolgreichem Ende gesetzt werden dürfen, sonst verhungert der ganze Kram, wenn ein Job abbricht.

D*B

Doppelte Verarbeitung verhindert man ggf. über Satzflags oder Existenzprüfung des Ergebnisses.

[muadeep]

mit diesem Programm PgmA werden bestimmte Daten per FTP an einen externen FTP-Server übertragen.

Mein Problem ist hier:
die FTP-Befehle schreibe ich in ein und die selbe Datenbank!

es kommt jetzt von Zeit zu Zeit vor, dass, falls der Job in "QBATCH" noch steht und der Job in "QBATCH2" schon läuft, die Daten in der FTP-Protokolldatei für den Job in "QBATCH" nicht mehr stimmen. :-(

[Fuerchau]

Dann würde ich die Scriptdatei in die QTEMP kopieren, per OVRDBF auf die QTEMP verweisen und dann den FTP starten.
Dann benötigst du keine Sperren, es sei denn, es soll die selbe Datei übertragen werden.

Alternativ kannst du auch eine FTP-JOBQUEUE anlegen, einem Subsystem zuweisen und per JOBD ansteuern um sicherzustellen, dass die FTP-Jobs nur nacheinander laufen.

[muadeep]

Jobs in JobQ und QTEMP funktioniert das?

[Fuerchau]

Diese Frage verstehe ich nun gar nicht.
Was hat eine JOBQ mit QTEMP zu tun ?

Du erstellst eine JOBQ mit CRTJOBQ.
Per ADDJOBQE ordnest du diese einem Subsystem zu.
Per CRTJOBD erstellst du eine JOBD, die du wiederum obiger JOBQ zuordnest.

Beim SBMJOB für deine FTP's gibst du dann diese JOBD mit.

Die QTEMP betrifft nur deine STDIN/STDOUT für den FTP.

[muadeep]

sorry,

hast natürlich recht.
vergiss die letzte Frage von mir einfach
(war wohl mit meinen Gedanken mom. wo anders) :-(

[ThomasJoachimFuchs]

Das geht mit dem API qwcrjbst
:

pgm /* Display Job Status */

copyright text('(C) Copyright APL Services 2010-05-28')

dcl &brk        *char 001
dcl &ds         *char 060
dcl &dslen      *int  004 60
dcl &hexnull4   *char 004 x'00000000'
dcl &job        *char 010
dcl &jobq       *char 010
dcl &jobqlib    *char 010
dcl &jobsts     *char 010
dcl &msgdta     *char 256
dcl &msgf       *char 010
dcl &msgflib    *char 010
dcl &msgid      *char 007
dcl &nbr        *char 006
dcl &qualjobnam *char 026
dcl &qusbavl    *char 004 x'00000000'
dcl &qusbprv    *char 004 x'0000003C'
dcl &qusec      *char 004 x'00000000'
dcl &sndmsg     *lgl  value('0')
dcl &user       *char 010

rtvjoba user(&user)
chkobj qgpl/&user *dtaara
monmsg CPF9801 exec(do)
  crtdtaara dtaara(qgpl/&user) type(*lgl) value('0') aut(*all)
enddo
chgdtaara qgpl/&user value('0')

sbmjob cmd(call pgm(dspjobtstc)) job(dspjobsts) jobq(&user) hold(*yes)
rcvmsg msgtype(*last) rmv(*yes) msgdta(&msgdta) msgid(&msgid) +
       msgf(&msgf) msgflib(&msgflib)
chgvar &brk ' '
if cond(&msgid = 'CPC1221') then(do)
  chgvar &job &msgdta
  chgvar &nbr %sst(&msgdta 21 6)
  chgvar &jobq %sst(&msgdta 27 10)
  chgvar &jobqlib %sst(&msgdta 37 10)
  chgvar &qualjobnam (&job *cat &user *cat &nbr)
  call qwcrjbst parm(&ds &dslen &qualjobnam 'JOBS0300' &qusec)
  chgvar &jobsts %sst(&ds 9 10)
  chgvar &brk ' '
  rlsjob job(&nbr/&user/&job)
  chgvar &qusbavl x'00000000'
  dlyjob dly(10)
  call qwcrjbst parm(&ds &dslen &qualjobnam 'JOBS0300' &qusec)
  chgvar &jobsts %sst(&ds 9 10)
  chgvar &brk ' '
  chgdtaara dtaara(qgpl/&user) value('1')
  dlyjob dly(10)
  chgvar &qusbavl x'00000000'
  call qwcrjbst parm(&ds &dslen &qualjobnam 'JOBS0300' &qusec)
  chgvar &jobsts %sst(&ds 9 10)
  chgvar &brk ' '
enddo

end:
if cond(&sndmsg) then(do)
  sndpgmmsg msgid(&msgid) msgf(&msgflib/&msgf) msgdta(&msgdta)
enddo
return
endpgm

pgm

copyright text('(C) Copyright APL Services 2010-05-31')

dcl &end        *lgl
dcl &user       *char 010

rtvjoba user(&user)

dountil cond(&end)
  rtvdtaara dtaara(qgpl/&user) rtnvar(&end)
enddo

end:
endpgm