ENQ information from REXX (MVS)
Doug Nadel
This was a post I made in the ISPF list last week, but I thought it
might be of interest to this wider audience. I think there are
already similar things out there, but when have I ever avoided
reinventing the wheel?(I hope this wheel is the right shape!)
To: ISP...@listserv.nd.edu
Subject: Re: dataset In Use error brings up Contention List
From: Doug Nadel <some...@mindspring.com>
Date: Sat, 7 Nov 1998 07:58:33 GMT
On Wed, 4 Nov 1998 13:30:05 -0800, Bill wrote:
>In ISPF release 4.2, if I do any process that returns the error message
>'Dataset in use', I can hit HELP (PF1) twice and it will display panel
>ISRQDSP "Data Set Contention".
...
>It is a feature I'd like to incorporate in a couple of REXX exec. Does
>anyone know how Help calls this process? How might I call it directly
>passing it an appropriate dataset name?
Since this comes up occasionally, (and since I had too much coffee at
dinner), I hacked together a rexx function that returns ENQ
information in REXX variables.
The assembler code for it is at
http://booksrv2.raleigh.ibm.com/ispf/queryenq.txt
No other links exist to that file.
The basic syntax is xx=QUERYENQ(rname,qname)
rname is the major name.
If qname isn't specified, SYSDSN is assumed.
If qname is SYSDSN, TSO naming conventions are used for rname.
Data is returned in stem variables ENQJOB. and ENQTYPE.
ENQTYPE.n contains shr/old, wait/own, scope, step, and system info.
ENQJOB.n contains the job or user name.
ENQJOB.0 and ENQTYPE.0 contain the number of existing ENQs.
Installation is just assembly and link.
RC and/or RESULT indicate success or failure.
As I said, it is a quick hack, but I tested the usual stuff (SYSDSN,
SPFEDIT and SPFUSER).
Hope that helps. It isn't pure rexx, but it's only a single load
module.
-Doug Nadel
Graham P Taylor
<some...@mindspring.com> writes
provides complete ENQ/DEQ functionality from within REXX, including the
ability to set your own ENQ's, and query any active ENQ whether dataset
(SYSDSN) or another QNAME.
I can provide the assembler source on request.
Graham Taylor,
Senior Systems Programmer,
CGU LIFE (formerly General Accident Life)
York
England
--
Graham P Taylor
Senior Systems Programmer, UK
To reply via email remove the word NOSPAM from my email address
gra...@doctorbootsNOSPAM.demon.co.uk
Thomas Conley
How about a REXX to do a D GRS command and parse the output (assuming
OUTTRAP will recover the command response)?? I don't have time to hack one
up right now, just a suggestion......
--
Regards,
Thomas Conley, President
Pinnacle Consulting Group, Inc.
To reply, remove 'consult' from my Email address
Doug Nadel wrote in message <3647a910...@news.mindspring.com>...
Doug Nadel
The outtrap sounds good, but I think that requires the user to have
authority to do such things (an authority I don't have, for example).
-Doug
Thomas Conley
I've been busy playing with HILITE ;-) I'm assuming that only a system
programmer would be interested in such detailed information from GRS, so
they should be duly authoritated (authoritized? ;-) Tell your RACF admin to
loosen up and give you CONSOLE authority.
--
Regards,
Thomas Conley, President
Pinnacle Consulting Group, Inc.
To reply, remove 'consult' from my Email address
Doug Nadel wrote in message <3648f1d2...@news.mindspring.com>...
Frank Clarke
wrote:
>Since this comes up occasionally, (and since I had too much coffee at
>dinner), I hacked together a rexx function that returns ENQ
>information in REXX variables.
>...
>If qname isn't specified, SYSDSN is assumed...
Slick. What else is there besides SYSDSN? Could you provide a few
pro-forma examples of what things we might ask for (and expect to
get)?
Frank Clarke
Tampa Area REXX Programmers' Alliance (TARPA)
Member of the REXX Language Assn
Join us at http://www.rexxla.org
Doug Nadel
Reference Guide. Same info available at:
http://www2.s390.ibm.com:80/bookmgr-cgi/bookmgr.cmd/BOOKS/IEA1V207/1%2e6%2e2%2e1?SHELF=IEA1BK09
Other ENQs, both IBM and non-IBM also exist (of course).
-Doug Nadel
On Sat, 14 Nov 1998 01:03:28 GMT (Frank Clarke) wrote:
>On Tue, 10 Nov 1998 02:53:03 GMT, some...@mindspring.com (Doug Nadel)
>wrote:
>