Monitoring a job queue and process

[dcutaia]

Has anyone run into this issue. You receive a file from another system and that file kicks off your end of day process. Here is the problem. How do I monitor when that process starts and if it doesn't start until 9:00 then a text message would go out to my pager.

Any suggestions?

Thanks,

DAC

[DeadManWalks]

Re: Monitoring a job queue and process

Have the EOD process set a flag in a file to say that it was started. When the job ends have it set the end of job flag.

Have a job that wakes up at the time you want and look at this file and see if the flag was set, if not send email.

[gcraill]

Re: Monitoring a job queue and process

I can send emails with SNDDST, but how do I send pager messages or SMS from the 400 ?

GC

[bryce4president]

Re: Monitoring a job queue and process

I don't know if the 400 can do it itself. We use 3rd party software to send our SMS. Ours is called MPS but its like 10 years old and is kinda buggy at times.

[jamief]

Re: Monitoring a job queue and process

this is from search 400

I recently read a tip regarding using the iSeries modem to send messages to your pager. If your pager or cell phone has an e-mail address for text messages, and your iSeries is configured for SMTP, a simpler method is to send the messages using the SNDDST command.

SNDDST TYPE(*LMSG) TOINTNET(&ADDR) DSTD(&SUBJ) LONGMSG(&MSG)

Where:
&ADDR is the email address of your pager or cell phone (such as 7145551234@mobile.att.net)
&SUBJ is any subject text
&MSG is the message text

plus i know there is a freeware tool out there I downloaded it once but
have no idea where I put it

here is more:

There are situations when you are running an unattended job on your iSeries and would like to be informed
in case of a problem. A lot of expensive products are available in the market that can alert you by sending a
message to your pager. Here is a technical solution that will cost nothing, and still your iSeries can call a pager
in case of a problem. It is assumed that IBM ECS link is installed at your site and you have a modem connected.

The paging software uses three CL programs: PAGER, PAGON and PAGOFF. PAGER is the main program. It first
submits the program PAGON to vary on the configuration objects. Then it allocates the device description PAGDEV.
Display file QDSIGNON is overridden to the device. Then the program sends the file that dials out the pager number
specified in the controller description and subsequently enters the predefined code digits. At the end, the device is
de-allocated and program MSGOFF is called to reset the configuration objects. This is a very simple CL program.
It can be called in your programs by monitoring those error messages where you want to page someone.

In order to implement this utility, create the following configuration objects and CL programs:

CRTLINSDLC  LIND(PAGLIN)  RSRCNAME(LIN011)  CNN(*SWTPP)  +
AUTODIAL(*YES)  DIALCMD(*V25BIS)  +
STNADR(01)  TEXT('PAGER LINE')

CRTCTLRWS   CTLD(PAGCTL)  TYPE(5394) MODEL(1)  +
LINKTYPE(*SDLC) ONLINE(*NO)  +
SWITCHED(*YES) SWTLINLST(PAGLIB)  +
EXCHID(05F00004) CNNNBR('SST9:nnnnnnn===9999')  +
STNADR(04)  TEXT('PAGER  CONTROLLER') 

In the above command, "nnnnnnn" is the pager number; "===" is three seconds delay before keying in
pager message that could be adjusted according to different pager requirements; and "9999" is the
predefined message code that will appear on your pager. Pager number and message code can be
changed in your CL program using CHGCTLD command to send different message codes to various
pager holders. If your modem does not support the CNNNBR string, you should check the modem user
guide for more details. If you want to call a cellular phone, you just have to enter the phone number
in this parameter.

CRTDEVDSP   DEVD(PAGDEV)  DEVCLS(*RMT)  TYPE(5291)  +
MODEL(1)  LOCADR(01)  ONLINE(*YES)  +
CTL(PAGCTL)  DROP(*NO)  TEXT('PAGER DEVICE') 

PROGRAM PAGON:

PGM
VRYCFG     CFGOBJ(PAGCTL) CFGTYPE(*CTL) STATUS(*OFF)
MONMSG     MSGID(CPF0000)
VRYCFG     CFGOBJ(PAGLIN) CFGTYPE(*LIN) STATUS(*OFF)
MONMSG     MSGID(CPF0000)
RYCFG     CFGOBJ(QESLINE) CFGTYPE(*LIN) STATUS(*OFF)
MONMSG     MSGID(CPF0000)
VRYCFG     CFGOBJ(PAGLIN) CFGTYPE(*CTL) STATUS(*ON)
MONMSG     MSGID(CPF0000)
VRYCFG     CFGOBJ(PAGCTL) CFGTYPE(*LIN) STATUS(*ON)
MONMSG     MSGID(CPF0000)
ENDPGM 

PROGRAM PAGOFF:

PGM
VRYCFG     CFGOBJ(PAGCTL) CFGTYPE(*CTL) STATUS(*OFF)
MONMSG     MSGID(CPF0000)
VRYCFG     CFGOBJ(PAGLIN) CFGTYPE(*LIN) STATUS(*OFF)
MONMSG     MSGID(CPF0000)
VRYCFG     CFGOBJ(QESLINE) CFGTYPE(*LIN) STATUS(*ON)
MONMSG     MSGID(CPF0000)
ENDPGM 

PROGRAM PAGER:

PGM
DCLF       FILE(QSYS/QDSIGNON)
SBMJOB     CMD(CALL PGM(PAGON)) JOB(PAGON) JOBQ(QINTER)
DLYJOB     DLY(30)
ALCOBJ     OBJ((PAGDEV *DEVD *EXCLRD)) WAIT(10)
OVRDSPF    FILE(QDSIGNON) DEV(PAGDEV)
SNDF
MONMSG     MSGID(CPF4128)
DLCOBJ     OBJ((PAGDEV *DEVD *EXCLRD))
CALL       PGM(PAGOFF)
ENDPGM