Re: Monitoring a submitted job from RPG

[Mike Barton <Mike.Barton@xxxxxxxxxxxxxxxxx>]

>Is there a way to monitor a submitted job from an RPG program? I'd like
>to check the status of the job until it is finished running. 

Hi
        you need to use the QUSRJOBI API
Mike

Something like:

 D RtvJobInf       PR                  ExtPgm('QUSRJOBI')    
 D   RcvVar                   32766A   options(*varsize)     
 D   RcvVarLen                   10I 0 CONST                 
 D   Format                       8A   CONST                 
 D   JobName                     26A   CONST                 
 D   IntJobID                    16A   CONST                 
 D   ErrorCode                32766A   options(*varsize)     

D DSJobI0100      DS                   
D   JobI_ByteRtn                10I 0  
D   JobI_ByteAvl                10I 0  
D   JobI_JobName                10A    
D   JobI_UserID                 10A    
D   JobI_JobNbr                  6S 0  
D   JobI_IntJob                 16A    
D   JobI_Status                 10A    

 * Get Job Info                                                            
C                   callp (e) RtvJobInf(dsJobI0100: %size(DSJobI0100):     
C                               'JOBI0100': JOBNAME: *BLANKS: DSEC)      
C                   if        not %error                                   
                                                                           
C                   If        JobI_Status = '*ACTIVE' or                   
C                             JobI_Status = '*JOBQ'                        
###########################################

This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange.
For more information, connect to http://www.F-Secure.com/


This communication and the information it contains: - (a) Is intended for the 
person(s) or organisation(s) named above and for no other person(s) or 
organisation(s). Access to this mail by anyone else is unauthorised. (b) Is 
confidential, and may be legally privileged or otherwise protected in law. 
Unauthorised use, circulation, copying or disclosure of any part of this 
communication may be unlawful. (c) May be susceptible to interference, and 
should not be assumed that it has come in its original form and/or from the 
stated sender or PinkRoccade UK accepts no responsibility for information, 
errors or omissions in this e-mail or use or misuse thereof or any act done or 
omitted to be done in connection with this communication. If you are not the 
intended recipient, please inform postmaster@xxxxxxxxxxxxxxxxx immediately and 
delete it and all copies from your system.