Re: Inactive Time Out

At 11:44 AM 3/17/99 +0000, you wrote:
>
>
>Does anyone know if it it is possible to override QINACTITV by user or
>group or some other method.
>
Create a message queue to get the messages, and change the system value for QINACTMSGQ to that message queue. Then you can hang a message handling program in that message queue, and decide by user, workstation, or whatever scheme seems reasonable.

Here are the two pages from by System Values handout on this subject:

>>>>

Inactive Jobs:




Name: QINACTITV V1 R2.0

Description: Inactive job time out Interval


IBM Initial Value: '*NONE'

Lower Limit Value: '5' (minutes)

Upper Limit Value: '300'

Length & Type: Character: 10

Comments: When time out occurs, message CPI1126 will be sent to the message queue specified by QINACTMSGQ, unless that value is set to '*ENDJOB' or '*DSCJOB'.

*NONE indicates that no time out validation will be performed.

Source remote sign-on jobs are excluded.

User must have *ALLOBJ and *SECADM authority to change this system value.







Message ID: CPI1126

Message . . . . : Job &3/&2/&1 has not been active.
Cause . . . . . : Job &3/&2/&1 running in subsystem &4 has not been active
for at least &5 minutes as specified by system value QINACTITV. The group
job return code is &6 where:
-- 0 indicates the job is not a group job.
-- 1 indicates the job is a group job.

Field Data Type Length Field description
&1 *CHAR 10 Job name
&2 *CHAR 10 User profile name
&3 *CHAR 6 Job number
&4 *CHAR 10 Subsystem name
&5 *CHAR 10 Minutes specified in QINACTITV
&6 *CHAR 1 Return code
&7 *CHAR 53 Unused




Name: QINACTMSGQ V1 R2.0

Description: Message queue for Inactive job messages


IBM Initial Value: '*ENDJOB'

Length & Type: Character: 20
Value is a list.


Valid Values and their Meanings: Effective:

'*ENDJOB' will cause the job (including secondary and group jobs) to be ended. To minimize the performance hit, the job's priority is lowered by 10 and is changed to PURGE(*YES) TIMESLICE(100).

'*DSCJOB' will cause the job (including secondary and V1 R3.0
group jobs) to be disconnected.
'msgq lib' Qualified message queue name and library. When time out occurs, a message will be sent to this message queue.

Comments: User must have *ALLOBJ and *SECADM authority to change this system value.

<<<<

There's an example of how to code for this in the COMMON utility library. Although the coding is not complex, it is not trivial either.


Al






+--------------------------------------------------+
| Please do not send private mail to this address. |
| Private mail should go to barsa@ibm.net. |
+--------------------------------------------------+

Al Barsa, Jr. - Account for Midrange-L
Barsa Consulting, LLC.
400 > 390

Phone: 914-251-1234
Fax: 914-251-9406
http://www.barsaconsulting.com
http://www.taatool.com
+--- | 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 +---