Queryenq on Members

[rajesh082]

Has anybody used QueryENQ?
My requirement is to find which all members of a particular PDS are opened in Edit Mode.

I am using the following Code for this:-

000001 Trace All                                           
000002                                                     
000003 Var1 = "TTOI.RAWATR.TEST"                           
000004  Address ISPEXEC                                    
000005  "LMINIT DATAID(Datain) DATASET('"var1"')"          
000006                                                     
000007 /* Find out if somebody is editing the PDS*/        
000008  "ISPEXEC Control Errors return"                    
000009  "ISPEXEC QUERYENQ QNAME(EDIT) RNAME(Var1)          
000010   Save(Var5) XSYS"

The resulting PS from this command shows the following results :-
ADHIKAA QCOS SHARE OWN SYSTEMS GLOBAL SYSDSN TTOI.RAWATR.TEST

But the problem is that I am not getting the results member wise. I want that the result should have a record for each member.

Can somebody give me a clear picture of QNAME & RNAME. I tried looking for it in the manuals, but it is not very comprehensive to me.

If anybody can help me out here, I would be thankful

 

[rexxhead]

Reading the description at

http://www.sillysot.com/mvs/index.htm?queryenq.htm

leads me to believe QUERYENQ does not produce output at the member level.


Frank Clarke
Support the Troops:
-- Bring them home.

http://www.RonPaul2008.com