TSO error message handler

[gpinaki]

When my REXX is trying to ALLOCATE an dataset it
gives the message
'DATASET ISDM00D.PB.SORTOUT ALREADY IN USE BY ANOTHER JOB OR USER' and the RETURN CODE is 12.

But I want to catch exactly the USERID of the USER or
the NAME of the JOB which is using it.

 

[rexxhead]

Go to Doug Nadel's Tools page (

http://www.sillysot.com/mvs/)

and look for "QUERYENQ". This ASM module allows you to inquire by DSN to determine who has enqueues on a specified dataset.

 

[gpinaki]

Hi,
I downloaded that assambler code and compiled it to a personal dataset XXX.YYY(queryenq) . Now I am writing this rexx code to find out the contention of AAAA.BBBB dataset.

/* Rexx ********************/
address tso
"CALL '"XXX.YYY"(queryenq)' ,
AAAA.BBBB"
If enqjob.0 > 0 Then
Do a = 1 to enqjob.0
Say enqjob.a enqtype.a
End
Else
Say 'No enq contention exists on this system.'


but it is not working. Please tell me what is wrong.