Could you mean, ISGECMON? That program is in SYS1.SAMPLIB on my z/OS 1.13 system and also is a: "DESCRIPTIVE-NAME = Sample program to detect dataset contention and notify the dataset owner (if possible)."
The "WHOHAS" has also been mentioned, which is good. In a previous JOB of mine, to avoid overwriting the SYSRES packs, we had an empty data set with the VolSer of the SYSRES cataloged and stored on each SYSRES. The SDSF Started task had a DD statement to allocate the data set using symbols for the volser. We then used a TSO WHOHAS command to check if the data set is enqued for the RES volume we were about to build, if it was, the WHOHAS command issued a RC=8 and the JOB would then fail based on the RC. I do not have the source for that version of WHOHAS, but I am sure you can figure out how to make one. Al Nims Systems Admin/Programmer 3 UFIT University of Florida (352) 273-1298 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Joseph W Gentile Sent: Friday, July 08, 2016 10:13 AM To: [email protected] Subject: Re: Command to display Enqueue Hi, if you are running at z/OS 2.1 or higher have you taken a look at ISGECJES in SAMPLIB? It is an assembler program that monitors for dataset contention every user-definable-interval and issues a message (TPUT, WTO) for each resource found to be in contention. If you are up for some coding, it could provide a starting point for a program to simply do a GQSCAN for the resource in question (code the RNAME, and remove WAITCNT), display the results somehow, and exit. Then you could code some JCL to make the execution of the job steps you really want to run conditional based on whether the GQSCAN step finds the resource to be held. -Joe Joe Gentile z/OS GRS and RSM Development (845)435-2184 (T/L 295-2184) [email protected] ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
