Re: Guaranteeing an end to QINTER

Bryan,

IIRC, the guys at Kisco had an iSeries application for tweeting from a
command (something like SNDTWEET, I believe). Maybe that would fit your
needs...

HTH,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Fri, Mar 11, 2011 at 8:20 AM, Burns, Bryan <Bryan_Burns@xxxxxxxxxxxx>wrote:

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
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.