Re: Check for SysReq job at system console

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Neil,

You could use the List Job (USLJOB) API to list active jobs and check for those 
interactive jobs with a status 
of *ACTIVE and SRQ.  You would need to use Optional Parameter Group 2 and 
specify the appropriate key values 
for the JOBL0200 format.  You could subset the job list according to the job 
(device) name.  This API is 
described in the SPIR.  

You would also need to know the console device name which I think you can get 
from the QCONSOLE system value.

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
//--- forwarded letter -------------------------------------------------------
> Date: Sat, 28 Nov 98 17:18:43 -0500
> From: "Neil Palmer" <NeilP@DPSlink.com>
> To: "'Midrange-L'" <MIDRANGE-L@midrange.com>
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Check for SysReq job at system console

> 
> Apart from checking for a CPI091C message after issuing an ENDSYS at the 
>system console, is there some 
programmable way to find out if there's a system request job running at the 
console BEFORE issuing the ENDSYS 
?
> 
> 
> 
> Neil Palmer         DPS Data Processing Services Canada Ltd.
>                                              AS/400~~~~~
> Thornhill, Ontario,  Canada    ___________          ___  ~     
> Phone: (905) 731-9000  x238   |OOOOOOOOOO| ________  o|__||=   
> Cell.: (416) 565-1682  x238   |__________|_|______|_|______)   
> Fax:   (905) 731-9202          oo      oo   oo  oo   OOOo=o\   
> mailto:NeilP@DPSlink.com    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
> http://www.DPSlink.com        AS/400  The Ultimate Business Server      

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---