I too use Dana's MPF2REXX code and use MPF for both auto-responses and
new commands, at least on my z/OS systems. I use TSSO on my OS/390
system. I really appreciate Dana's code. And the help she gave when I
went to use it.
Tony Thigpen
John McKown wrote on 3/11/20 7:45 AM:
On Tue, Mar 10, 2020 at 5:47 PM scott Ford <[email protected]> wrote:
Tony,
Real nice code, I have been using VTAMAPPL that ships with z/OS..
I agree! A few years ago, we were told the z/OS system was going away (as
we are still told), and the PTBs decided to "save money" by eliminating
CA-OPS/MVS, much like the OP. I can't find where I got it, perhaps direct
from the author ( Dana Mitchell [email protected]) , but I did the code
to MPF2REXX, which is an MPF exit (MPFLST?? member in the PARMLIB). It
allows you to run a System REXX program when a message is issued. An
example entry looks like:
ARC090E,USEREXIT(MPF2REXX),AUTO(ARC0903)
The author allowed me to put this code, with some changes, in my Git
repository: https://github.com/JohnArchieMckown/miscutil or directly to the
code at: https://github.com/JohnArchieMckown/miscutil/blob/master/MPF2REXX
Now, what is ironic, is that I am using this code despite it not having any
particular copyright statement in it at all. Which means it is
automatically copyrighted under the Internation Berne copyright.
https://www.wipo.int/treaties/en/ip/berne/ And, in itself, it doesn't give
me the right to do what what I am doing with it. GUILTY AS CHARGED!
The above REXX program looks like:
/* REXX
Message ID: ARC090E
indicate ARC0909E is being handled
Variables from MPF2REXX
MPF2REXXJOB - Name of job
MPF2REXXJID - JES id of job (e.g. JOB12345)
MPF2REXXSYS - Sysname of z/OS issuing message (E.g. LIH1)
MPF2REXXMSG.0 - Number of message lines
MPF2REXXMSG.x - Individual message line(s)
*/
rc=bpxwunix("touch ~/AutoVars/ARC0909E")
msgtext=""
do x=1 to mpf2rexxmsg.0
msgtext=msgtext||mpf2rexxmsg.x
end
if wordpos("OCDS JOURNAL",msgtext) <> 0
then CmdResult=AXRCMD("f dfhsm,backvol cds",'output.',0)
return
/* End of ARC090E message rule */
Scott
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
