Job überwachen mit anderem Job

[harkne]

Hallo zusammen,

ich möchte gerne mit einem Job einen anderen Job überwachen. Falls der überwachte Job auf MSGW geht soll eine Mail versendet werden.

Jetzt hab ich beim Befehl WRKACTJOB nur die Möglichkeit mit OUTPUT(*PRINT) zu arbeiten. Gibts ein API hierfür oder weiss jemand einen andere Lösung ?

Vielen Dank

[Uwe Moesel]

Retrieve Job Status (QWCRJBST) API
Die Beschreibung des APIs findet man hier:
IBM Systems Information Center

Gruß Uwe

[harkne]

Darüber bekomme ich aber nur wenn ich richtig gelesen habe die Information ob der Job aktiv, in JOBQ oder in OUTQ ist. Ich bräuchte aber die Information ob der aktive Job auf MSGW steht.
Ich kämpfe mich gerade durch den QUSLJOB. Allerdings benötigt dieses API einen UserSpace da ja die Möglichkeit besteht den kompletten WRKACTJOB zurückzugeben. Was ich auch ursprünglich wollte aber nicht mehr brauche. Mir stehen die Informationen JOBNAME, JOBUSER und JOBNO zur Verfügung. Aber ein anderes API wird es wohl nicht geben wo ich als einfachen Parameter die Information zurück bekomme.

[Fuerchau]

Die meisten Informationen gibts über
Retrieve Job Information (QUSRJOBI) API

Du benötigst das JOBI0200-Format und im Feld "Active job status" steht, was du brauchst.

Die Erklärung hierzu findest du wiederum unter
Work Management API Attribute Descriptions (WMAttrDesc)

[Neuhauser]

STRSYSINF

[harkne]

Noch eine Frage

Binary 4 kann ich in einer DS als 10i 0 definieren. Kann mir jemand sagen wie ich Binary 8 unsigned definieren muss ?

[Pikachu]

20U 0

[harkne]

Hab alles hinbekommen, funktioniert super. Tausend Dank an alle

Falls jemand mal sowas braucht hier der Quellcode:

d P01JobInf       ds           256            
d  dsJobBytesRtn                10I 0         
d  dsJobBytesAvl                10I 0         
d  dsJobName                    10            
d  dsJobUser                    10            
d  dsJobNumber                   6            
d  dsJobIntern                  16            
d  dsJobStatus                  10            
d  dsJobType                     1            
d  dsJobSubtype                  1            
d  dsSbsDscName                 10            
d  dsRunPty                     10I 0         
d  dsSysPoolId                  10I 0         
d  dsPrcUntTimU                 10I 0         
d  dsNoOfAux                    10I 0         
d  dsNoIntTrans                 10I 0         
d  dsResTimTot                  10I 0         
d  dsFuncType                    1            
d  dsFuncName                   10            
d  dsActJobStat                  4            
d  dsNoDBLckW                   10I 0  
d  dsNoInMaLckW                 10I 0  
d  dsNoNonDBLckW                10I 0  
d  dsTimSpDBL                   10I 0  
d  dsTimSpIML                   10I 0  
d  dsTimSpNDBL                  10I 0  
 
 
d P01InfLen       s              4b 0                          
 
0266.00 **===============================================================  
0267.00 ** Parameterlist                                                   
0268.00 **===============================================================  
0268.01 c     *entry        plist                                          
0268.02 c                   parm                    PiJobName        10    
0268.03 c                   parm                    PiJobUser        10    
0268.04 c                   parm                    PiJobNo           6    
0268.05 **                                                                 
0268.06 ** QUSRJOBI                                                        
0268.07 c     PlQUsrJobI    plist                                          
0268.08 c                   parm                    P01JobInf              
0268.09 c                   parm                    P01InfLen              
0268.10 c                   parm                    P01ApiFmt         8    
0268.11 c                   parm                    P01JobQual       26    
0268.12 c                   parm                    P01JobInt        16    
 
0270.00 *****************************************************************     
0271.00 ** Main                                                               
0272.00 *****************************************************************     
0273.00 c                   eval      P01JobQual=PiJobName+PiJobUser+PiJobNo  
0274.00 c                   z-add     256           P01InfLen                 
0274.01 c                   eval      P01ApiFmt = 'JOBI0200'                  
0274.02 c                   eval      P01JobInt = *blanks                     
0275.00 **                                                                    
0276.00 c                   call      'QUSRJOBI'    PlQUsrJobI                
0277.00 **                                                                    
0278.00 c                   eval      *inlr = *on 

Wie Fuerchau bereits erwähnt hat. In dsActJobStat steht der Status des aktiven Jobs z.B. MSGW

[Fuerchau]

Sowas kann man auch mit CLP hinbekommen, da sich Binärwerte direkt mit %BIN(&MYVAR POS LEN) auswerten und auch setzen lassen, wobei LEN 2 oder 4 sein kann (ggf. inzwischen auch 8?).

Dadurch spart man sich den ILERPG-Overhead und die Startposition (+1) kann man ja aus den API-Beschreibungen rauslesen.