Problem solve Get help with specific problems with your technologies, process and projects.

System problem? Let the iSeries page you

Let the iSeries page you if a problem arises.

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

  

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: Tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.

Read this Search400.com Featured Topic: Managing your iSeries.

Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.


Dig Deeper on Performance

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close