RE: Guaranteeing an end to QINTER

["Burns, Bryan" <Bryan_Burns@xxxxxxxxxxxx>]

I don't mean to sound flip, but do you mean an "old school" pager
(beeper)?  Or by page, do you mean some type of notification to a smart
phone?

We need to implement some type of notification system and all options
are on the table at this point. Our corporate phones are Blackberry but
I don't rate one!  I could probably rate a pager though.

Bryan 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Draper
Sent: Thursday, March 10, 2011 3:56 PM
To: Midrange Systems Technical Discussion
Subject: Re: Guaranteeing an end to QINTER

My end system CL have this code:

DCL        VAR(&ENDFLAG) TYPE(*DEC) LEN(2)
DCL        VAR(&SBS2END) TYPE(*DEC) LEN(2) VALUE(1)

LOOP:

CHGVAR     VAR(&ENDFLAG) VALUE(0)

ENDSBS     SBS(QSINTER) DELAY(300)
MONMSG     MSGID(CPF1054) EXEC(CHGVAR VAR(&ENDFLAG) +
                           VALUE(&ENDFLAG + 1))
MONMSG     MSGID(CPF1055 CPF1056)

DLYJOB     DLY(30)

IF         COND(&ENDFLAG *NE &SBS2END) THEN(GOTO +
              CMDLBL(LOOP))

Beyond that they have a max run time so I get paged if the max run time
is exceeded.

Jerry

--
Jerome Draper, Trilobyte Software Systems iSeries, Network, and
Connectivity Specialists -- iSeries, LAN/WAN/VPN Representing WinTronix,
Synapse, Netopia, HiT, and others .....
(415) 457-3431 . www.trilosoft.com