Eileen
Please! - simpler?
Arun is "new to automation" and he/she is trying, as far as I can judge
since it is something with which I have never worked - but is supported by
your response, to use a technique for building message automation table
(MAT) entries.
It was indeed my reaction to his/her post that he/she should create his/her
own MAT entry - assuming that's what these panels were doing.
The example with which you have provided him/her is not exactly simplicity
itself. It relies on some sophistry of which only hardened users of the MAT
are capable.
How, I wonder, without some sort of explanation, is he/she going to know how
the DATE TIME and MESSAGE variables - for that's what they are - are
determined?
Let me have a try:
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);
means that
if the message id is DFHAP0001 or DFHSM0103
and the text of the message is the same as the variable MESSAGE which is now
assigned to be the text of the message - so, obviously, it will be the same
and the message time is the same as the variable TIME which is now assigned
to be the time of the message - so, obviously, it will be the same
and the message date is the same as the variable DATE which is now assigned
to be the date of the message - so, obviously, it will be the same
then execute the command KIXDOFEM concatenated with the date of the message,
the variable DATE, and the time of the message, the variable TIME, and the
text of the message, the variable MESSAGE,
and route the message to the single operator AUTCINT with all the properties
set as indicated.
Obviously my explanation has lost some precision but it helps to know how
the variable assignment happens - and how bogus the variable assignment is
as a comparison!
This variable assignment "trick" - and I hope I got it right - needs some
getting used to - even if it was invented 25 years ago.
It was about 25 years ago that I found myself in a restaurant in Vance near
Nice, France, enjoying a nouvelle cuisine dinner with a sorbet between just
about every miniscule course of 10 or so, a surprising experience for me,
not repeated. The other surprise of that meal was the confession - there is
no better word - that one of my companions was the developer who invented
this trick!
Chris Mason
----- Original Message -----
From: "Barkow, Eileen" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: <[email protected]>
Sent: Thursday, September 27, 2007 3:14 PM
Subject: Re: Netview & SA
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: [email protected]
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
