RE: Guaranteeing an end to QINTER

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