A simpler way to do this is to just edit the SA message table to trap
your messages and execute whatever commands or clist you want.
In this case, CICS DFH* msgs are trapped and the clist KIXDOFEM is
executed by auto operator AUTCINT.
IF (MSGID='DFHAP0001' | MSGID='DFHSM0103') & TEXT=MESSAGE
& MSGGDATE=DATE &MSGGTIME=TIME
THEN EXEC(CMD('KIXDOFEM ' DATE TIME MESSAGE) ROUTE(ONE AUTCINT))
DISPLAY(Y) BEEP(N) HOLD(N) NETLOG(Y) SYSLOG(Y)
CONTINUE(Y);
IF (MSGID='DFHSM0131' | MSGID='DFHSM0133') & TEXT=MESSAGE
& MSGGDATE=DATE & MSGGTIME=TIME
THEN EXEC(CMD('KIXDOFEM ' DATE TIME MESSAGE) ROUTE(ONE AUTCINT))
DISPLAY(Y) BEEP(N) HOLD(N) NETLOG(Y) SYSLOG(Y)
CONTINUE(Y);
The clist can extract the msg with
GETMLINE commands. this reads lines 2,3 4 of the msg and then the 4th
line is parsed and processed.
GETMLINE M2 2
GETMLINE M3 3
GETMLINE M4 4
PARSE ARG MSG
PARSE VAR MSG FILL JOB FILL2
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of arun kumar
Sent: Thursday, September 27, 2007 8:41 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Netview & SA
Dear Listers
I am quite new to automation using System Automation & Netview. I am
trying to implement a simple scenario for the sake of understanding
before I go to real implementation. What I want to implement is trap a
message like IEA631I and make the automation issue an MVS command D T.
For this I have setup Netview SSI address, Netview address and
Automation addresspace, all came up properly. I added an MVS component
and selected message processing as below,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
