On Tue, Mar 10, 2020 at 5:47 PM scott Ford <idfli...@gmail.com> 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 dmit...@shazam.net) , 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 > > -- People in sleeping bags are the soft tacos of the bear world. Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
