On Mon, 31 Aug 2015 21:21:07 +0000, J O Skip Robinson
<[email protected]> wrote:
>As for Rexx, being a simple minded person, I would issue the OS command
>
>D GRS,C
>
> and parse the output returned to the Rexx. You can see whether the data set
> is 'in use' on another
> system. I hope that all sharing systems are in a single GRS-plex...
I have used Doug Nadel's QUERYENQ program from REXX for this. It won't work
in an
MIIplex (nor does anything with GQSCAN).
Syntax (any of the following):
Call QUERYENQ rname
Call QUERYENQ rname,qname
xx=QUERYENQ(rname)
xx=QUERYENQ(rname,qname)
rname is assumed to be a data set name that follows TSO naming
conventions. If it is not in quotes, the user prefix
will be added. If qname is specified and is not SYSDSN
then the rname is not treated as a TSO style ds name.
However, he has retired from IBM and you can't get the code from his web site.
Some
of his tools have been built into ISPF or are downloadable from IBM (like
TASID), but
I don't think this is one of them.
I'm pretty sure there are similar programs on the CBT.
Regards,
Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:[email protected]
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
Systems Programming expert at http://search390.techtarget.com/ateExperts/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
