Re: Inactive job Timeout - QINACTITV

["Jim Franz" <franz400@xxxxxxxxxxxx>]

The system value qinactmsgq can be used so that when the system determines a
job is inactive, instead of cancelling the job, a message is sent to the
specified queue. The following is a simple clp to read that msgq a determine
which to cancel. I start the job during the qstrup job at ipl, and it runs
all the time. The rpg pgm Timeoutr has all the logic of which users or
devices do or don't get cancelled.  The rpg is simple, butf you need the
code, email me.

        PGM        /* read records from timeout msgq (updated  by sysval
qinactmsgq).
                        If not selected user/device, end job */
        DCL        VAR(&MSG) TYPE(*CHAR) LEN(132)
        DCL        VAR(&END) TYPE(*CHAR) LEN(1)
        DCL        VAR(&USER) TYPE(*CHAR) LEN(10)
        DCL        VAR(&DEVICE) TYPE(*CHAR) LEN(10)
        DCL        VAR(&JOB#) TYPE(*CHAR) LEN(6)
     $READ:      RCVMSG     MSGQ(TIMEOUT) WAIT(*MAX) RMV(*YES) MSG(&MSG)
        SNDPGMMSG  MSG(&MSG) /* msg so it shows in qhst log */
        CALL       PGM(TIMEOUTR) PARM(&MSG &END &DEVICE &USER &JOB#)
IF         COND(&END = 'Y') THEN(DO)
        SNDPGMMSG  MSG('job ended') /* show in qhst that we cancelled */
        ENDJOB     JOB(&JOB#/&USER/&DEVICE)
        MONMSG     MSGID(CPF0000)
        ENDDO
        GOTO       CMDLBL($READ)
         ENDPGM
jim franz

----- Original Message -----
From: <prumschlag@phdinc.com>
To: <MIDRANGE-L@midrange.com>
Sent: Wednesday, June 21, 2000 3:44 PM
Subject: Inactive job Timeout - QINACTITV


>
>
> Has anyone had any success (or even attempted) limiting or excluding
certain
> UserID's from the Inactive Job timeout function?  We have a PC based data
> collection system that passes data to the AS/400 using a Rumba session.
This
> job needs to stay active all the time, but there could be long periods of
no
> activity.
>
> Phil
>
>
> +---
> | 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
> +---

+---
| 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
+---