On 12/19/2017 1:31 AM, Tony Thigpen wrote:
I am using CONSOLE ACTIVATE in batch jobs to issue messages to the
operator.
Most of the time, it works flawlessly, but if two jobs are running at
the same time, one of the jobs receives an error on the ACTIVATE ane
the message is never issued.
MCS does not allow two consoles with the same name to be active in the
sysplex at the same time. It does not appear from your example that you
need to inspect the command response. Therefore, you probably don't need
a console at all for this command i.e., you could send it from the
internal console.
To do this using (E)JES, you would replace all of your REXX CONSOLE
stuff with simply:
cmd = "$D M,D=OSCAR."who",'"info"'"
rc = ejesrexx("EXECAPI 0 'I/"cmd"' (TERM")
If you only have SDSF available, you could do it like this:
rc = isfcalls('ON')
cmd.0 = 1
cmd.1 = "$D M,D=OSCAR."who",'"info"'"
address SDSF "ISFSLASH (cmd.) (INTERNAL)"
rc = isfcalls('OFF')
There might also be "freeware" programs on the CBT tape that will issue
a simple MGCR[E] for you. Or you could roll your own. It's only a few
lines of code.
--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
