Hab alles hinbekommen, funktioniert super. Tausend Dank an alle

Falls jemand mal sowas braucht hier der Quellcode:

PHP-Code:
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