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