CBT File 300 ? 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 Mike Schwab Sent: Friday, July 08, 2016 12:57 PM To: [email protected] Subject: Re: Command to display Enqueue Not sure where the QCB comes from: xxxxxxx.CLIST(WHOHAS) PROC 1 D CONTROL PROMPT NOSYMLIST NOLIST NOCONLIST NOCAPS MSG NOFLUSH /* ADDED IF THEN SET TO WORK WITH ISPF 3.4 (REMOVE QUOTES) */ IF &SUBSTR(1:1,&D) EQ &STR(') THEN + SET &D = &SUBSTR(2:&LENGTH(&D)-1,&D) QCB SYSDSN/&D WRITE QCB SYSDSN/&D END /* PROC */ On Fri, Jul 8, 2016 at 10:04 AM, Longabaugh, Robert E <[email protected]> wrote: > There is a "WHOHAS" TSO command which is probably on CBT. > > Command: > tso whohas 'sys1.proclib' > > > response is: > > SYS1.PROCLIB > > JOB_NAME SCOPE SYS_NAME TYPE STATUS JOBTYPE ASID > -------- ------- -------- ---- ------- > ------- ---- > TSOUSR1 System SYSA SHR Using TSU > 01B5 > *** > > > Then you can decide whether to send a message to free the data set, or just > to cancel the TSO session. > > > > > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of John McKown > Sent: Thursday, July 07, 2016 10:05 AM > To: [email protected] > Subject: Re: Command to display Enqueue > > On Thu, Jul 7, 2016 at 9:51 AM, FRISBIE, JIM <[email protected]> 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 [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 -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- 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
