Hi,
Using the GRS command you can create a REXX exec to display the enq.
This one is called ENQ :-
/* REXX */
PARSE UPPER ARG ds1
dsn = strip(ds1,,"'")
say dsn
/* Set some defaults */
Sys_Id = MVSVAR('SYSNAME')
User_Id = userid()
/*
inquire on dsn
*/
ING = OUTTRAP("IO.")
ADDRESS TSO
"CONSPROF SOLDISP(YES)"
"CONSOLE SYSCMD(D GRS,RES=(SYSDSN,"dsn"))"
OTO = OUTTRAP("OFF")
DO I = 1 TO IO.0
SAY IO.I
END
RETURN
Go to 3.4 (dslist)
Type your dsname and on the command line type ENQ
Command - Enter "/" to select action
-----------------------------------------
N174599
ENQ N174599.D0A0.EXEC
N174599.D0A0.ISPANL
N174599.D0A0.ISPROF
And VOILA
SYSNAME JOBNAME ASID TCBADDR EXC/SHR STATUS
D0A0 N174599 0086 008FFB00 EXCLUSIVE OWN
Regards,
Ahmed Rahim
System Z Technical support
Group Technology
(011) 500-6490
Fax2Email 086 539 2113
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Hunkeler Peter (KIUK 3)
Sent: 21 November 2008 10:05 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Allocated Dataset Question
Very useful post.
--
Peter Hunkeler
CREDIT SUISSE
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Anton Britz
Sent: Thursday, November 20, 2008 5:09 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Allocated Dataset Question
Howard,
Have you got access to a set of IBM manuals ? ( And please do not send
your "TEST" message every week or otherwise we need to take your
Internet
access away in that old age home of yours )
In the operators manual :
D GRS
{[,SYSTEM|,LINK|,ALL|,A|,DELAY|,D|,SUSPEND|S]}
|
|
[,CONTENTION|,C]
|
| [,RES=(qname|*
[,rname|,*])]
|
|
[,HEX]
|
| [,DEV=[/]devnum][,
{SUSPEND|S}] |
| [,RNL
{CONVERSION|CON|C}]
|
|
{ALL|A }
|
|
{EXCLUSION|EXCL|E}
|
|
{INCLUSION|INCL|I}
|
|
|
| {,{CONTENTION|C}[,ENQ|,E][,{LATCH|L}[,{JOBNAME|JOB}=jobname]]
[,HEX]} |
|
|
| {,{LATCH|L}[,{JOBNAME|JOB}=jobname][,CONTENTION|,C]}
[,HEX] |
|
{CONTENTION|C}}
|
|
|
|
{,ANALYZE|,ANALYSE|,AN, }
|
|
{BLOCKER|BLOCK }
|
| {WAITER|WAIT
[,SYSTEM|,SYS=sysname|*] }
|
|
[,ASID|,AS=asid]
|
|
[,JOBNAME|,JOB=jobname]
|
| [,XJOBNAME|,XJOB
(jobname1,jobname2,...,jobname25)] } |
| [,XQNAME|XQN
(qname1,qname2,...,qname25)] |
|
|
| {DEPENDENCY|DEPEND|DEP
[,SYSTEM|,SYS=sysname|*] } |
| [,ASID|,AS=asid]
[TCB=tcbaddr] |
|
[,JOBNAME|JOB=jobname]
|
| [,XJOBNAME|,XJOB
(jobname1,jobname2,...,jobname25)] |
| [,XQNAME|,XQN
(qname1,qname2,...,qname25)] |
|
|
| [,RES
(qname,rname)]
|
| {SCOPE|SCO=SYSTEM[S]|SYS
[S]} |
|
{SYSTEM|SYS=sysname|*}
|
| [,COUNT|,CNT=nn]
[,DETAIL|,DET] |
| [,L={a|name|name-
a}]
|
|
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
********************
Nedbank Limited Reg No 1951/000009/06. The following link displays the names of
the Nedbank Board of Directors and Company Secretary. [
http://www.nedbank.co.za/terms/DirectorsNedbank.htm ]
This email is confidential and is intended for the addressee only. The
following link will take you to Nedbank's legal notice. [
http://www.nedbank.co.za/terms/EmailDisclaimer.htm ]
********************
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
