Hello, Has anyone mentioned the GRS Command?
D GRS,RES=(*,put-dataset-name-here) i.e D GRS,RES=(*,SYS1.LINKLIB) Response: -D GRS,RES=(*,SYS1.LINKLIB) ISG343I 11.14.13 GRS STATUS 331 S=SYSTEM SYSDSN SYS1.LINKLIB SYSNAME JOBNAME ASID TCBADDR EXC/SHR STATUS SYSA XCFAS 0006 008FF890 SHARE OWN SYSA LLA 001A 008FF890 SHARE OWN Thanks...Guy M. Gates Jr. -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Thursday, July 07, 2016 10:05 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Command to display Enqueue On Thu, Jul 7, 2016 at 9:51 AM, FRISBIE, JIM <jim.fris...@ncsecu.org> wrote: > Is there a system command that will show if a specific file is enqueued? > And even better, who holds the enqueue? We have a nightly batch job > that backs up a file on System-A and then restores it on System-B. > About once a month a TSO user (almost always the same Operator) will > have that file open, DFDSS can't get an exclusive enqueue and issues > RC=8. If it can be determined whether the file is in use before the > job is run, the Operator won't run the job and I won't get a phone > call at midnight. Even though the documentation says "Fill out a > Problem Report and DON"T CALL ANYBODY" the Operator persists in calling. > > My sleep and the life of the Operator are at risk, any help would be > greatly appreciated. > I cheat. I put an IEFBR14 step at the end of the job with: //ENQUEUE EXEC PGM=IEFBR14 //STOPIT DD DISP=SHR,DSN=dsn.to.reserve I also put SHARE TOL(ENQF) in my DFDSS control cards if all I'm doing is a non-critical back up. > > > Jim Frisbie > Sr Systems Programmer > 919-831-4711 > -- "Pessimism is a admirable quality in an engineer. Pessimistic people check their work three times, because they're sure that something won't be right. Optimistic people check once, trust in Solis-de to keep the ship safe, then blow everyone up." "I think you're mistaking the word optimistic for inept." "They've got a similar ring to my ear." From "Star Nomad" by Lindsay Buroker: Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
