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

Reply via email to