Re: how to wait for dfsmsrm command
Steve--Sorry, the name emsg is misleading. This is an exec that I inherited and modified to change from SPTAPE to SPXTAPE as well as handling DFSMSRM calls, stacking daily NSS/DCS dumps on tape, and other things. EMSG is just the name of a procedure that sends messages to SYSOP and does a TELL of the same msg to the cons. Here's the procedure: /* EMSG: Display messages on virtual console operator's console*/ emsg: procedure expose op disc sigl; parse arg msg say 'line' sigl'' msg if (disc) then 'CP MSG' op ' NSS BACKUP:' msg return Jim Gentry, Stephen wrote: Jim, could you explain the call emsg. I know what you're trying to = accomplish with it. I don't have an EXEC or anything executable called = EMSG. I do have a help file for it but it doesn't work with the normal = HELP command. I also have EMSG set on. Thanks, Steve G. -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On = Behalf Of Jim Bohnsack Sent: Wednesday, January 23, 2008 9:42 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command Phillip--This is what I do in an exec that gets kicked off to do an=20 SPXTAPE of DCS's. This is the wait routine after the DFSMSRM MOUNT is=20 issued. Here is the MOUNT, just for reference: 'CP SM OP CMD DFSMSRM MOUNT VOL 'nextape' (LIBNAME 'lib, 'READWR ATTACH 'userid()' VDEV 181' =20 This is the WAIT procedure: /* TAPEWAIT: Wait until a tape has been attached */ =20 tapewait: procedure expose op rcode disc; =20 parse upper arg vaddr volser =20 mounted =3D 0 =20 do 24 until mounted /* 2 hours */=20 do 30 until mounted /* 5 minutes */ =20 Parse Value DiagRC(8,'QUERY VIRTUAL 181') With rc .=20 if rc=3D0 then do; mounted=3D1; iterate; end; = 'CP SLEEP 10 SEC' =20 if rc =AC=3D 0 then do; say 'WAITC RC' rc; exit rc; end;= end=20 end =20 if =ACmounted then do =20 call emsg 'TAPE SETUP HAS NOT BEEN HONORED.' =20 rcode =3D max(16,rcode) =20 signal done =20 end =20 return =20 Jim [EMAIL PROTECTED] wrote: This is a multipart message in MIME format. --=3D_alternative 0080D6BF862573D8_=3D Content-Type: text/plain; charset=3DUS-ASCII we use a disconnected server machine to run SPXTAPE backup. an EXEC used to write to 3480, but we are removing the 3480s and i = need=20 it to write to a 3494 controlled 3590. i'm having trouble getting figuring out how to have it wait for the=20 DFSMSRM MOUNT command to complete. how do i get the output in response to the DFSMSRM MOUNT into REXX so=20 i can determine whether to continue with the SPXTAPE command? do i use WAKEUP (IUCVMSG ? prg Phillip Gramly Systems Programmer Communications Data Group Champaign, IL =20 --=20 Jim Bohnsack Cornell University (607) 255-1760 [EMAIL PROTECTED] -- Jim Bohnsack Cornell University (607) 255-1760 [EMAIL PROTECTED]
Re: how to wait for dfsmsrm command
I have no direct experience of the specific device in question, but would a slow poll on a CP REWIND command do the trick? Say something like ... Do 10 Mounted = 1 CP REWIND 181 If Rc == 0 then Leave Mounted = 0 CP SLEEP 1 MIN End If \ Mounted then Do Timeout Logic End One of my earliest usermods was to make CP REWIND give a non-zero return- code on REWIND NOT PERFORMED as it was (and probably still is) the only, easy command that gives control back regardless of whether or not the device is ready. (TAPE REW waits for the device to come ready before returning control.) Regards Jeff Gribbin
Re: how to wait for dfsmsrm command
Your ATTACH command looks interesting. How about: do forever CP SLEEP 10 SEC ATTACH vdev * 181 if rc = 0 the leave end Admittedly, I have no idea from where you defined the vdev variable from the DFSMSRM command. -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Tuesday, January 22, 2008 7:06 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command Dennis, here is the DFSMSRM command: 'dfsmsrm MOUNT VOLUME' label '(RDEV' tape_addr 'LIBNAME TAPLIB READWR WAIT ATTACH * VDEV 181' but, the EXEC just plows on and i get SPXTAPE CANCEL INITIATED ON VDEV 0181 i think because RMSMASTR has not finished mounting the tape. the RC would be sufficient. prg Phillip Gramly Systems Programmer Communications Data Group Champaign, IL The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 01/22/2008 05:53:50 PM: Phillip, Have you tried the WAIT option on DFSMSRM MOUNT? Do you need to trap the response from DFSMSRM, or will the return code be sufficient? Dennis This message w/attachments (message) may be privileged, confidential or proprietary, and if you are not an intended recipient, please notify the sender, do not use or share it and delete it. Unless specifically indicated, this message is not an offer to sell or a solicitation of any investment products or other financial product or service, an official confirmation of any transaction, or an official statement of Merrill Lynch. Subject to applicable law, Merrill Lynch may monitor, review and retain e-communications (EC) traveling through its networks/systems. The laws of the country of each sender/recipient may impact the handling of EC, and EC may be archived, supervised and produced in countries other than the country in which you are located. This message cannot be guaranteed to be secure or error-free. This message is subject to terms available at the following link: http://www.ml.com/e-communications_terms/. By messaging with Merrill Lynch you consent to the foregoing.
Re: how to wait for dfsmsrm command
Phillip--This is what I do in an exec that gets kicked off to do an SPXTAPE of DCS's. This is the wait routine after the DFSMSRM MOUNT is issued. Here is the MOUNT, just for reference: 'CP SM OP CMD DFSMSRM MOUNT VOL 'nextape' (LIBNAME 'lib, 'READWR ATTACH 'userid()' VDEV 181' This is the WAIT procedure: /* TAPEWAIT: Wait until a tape has been attached */ tapewait: procedure expose op rcode disc; parse upper arg vaddr volser mounted = 0 do 24 until mounted /* 2 hours */ do 30 until mounted /* 5 minutes */ Parse Value DiagRC(8,'QUERY VIRTUAL 181') With rc . if rc=0 then do; mounted=1; iterate; end; 'CP SLEEP 10 SEC' if rc ¬= 0 then do; say 'WAITC RC' rc; exit rc; end; end end if ¬mounted then do call emsg 'TAPE SETUP HAS NOT BEEN HONORED.' rcode = max(16,rcode) signal done end return Jim [EMAIL PROTECTED] wrote: This is a multipart message in MIME format. --=_alternative 0080D6BF862573D8_= Content-Type: text/plain; charset=US-ASCII we use a disconnected server machine to run SPXTAPE backup. an EXEC used to write to 3480, but we are removing the 3480s and i need it to write to a 3494 controlled 3590. i'm having trouble getting figuring out how to have it wait for the DFSMSRM MOUNT command to complete. how do i get the output in response to the DFSMSRM MOUNT into REXX so i can determine whether to continue with the SPXTAPE command? do i use WAKEUP (IUCVMSG ? prg Phillip Gramly Systems Programmer Communications Data Group Champaign, IL -- Jim Bohnsack Cornell University (607) 255-1760 [EMAIL PROTECTED]
Re: how to wait for dfsmsrm command
OTOH, it seems like a hack that WAIT does something completely non-intuitive (and not so useful). Guess I need to write another requirement for DFSMS/VM to add a really wait for the mount to finish before returning option. Since WAIT is already used (and probably stuff out there depends on it's current usage), anyone have an objection to SYNC as the proposed option, with the semantics being that the DFSMS MOUNT command with the SYNC option waits until the actual mount completes before executing the supplied command?
Re: how to wait for dfsmsrm command
Many moons ago I wrote a progam called RXTAPINFO which did a sense to the tape drive and returned (among other flags) a ready/notready indication. I used it to wait for an operator mount. Check your favorite VMSHARE or WORKSHOP archive or I can (probaably) send you a copy directly. Also check this list's archives. Just checked my archives, and I do have a copy. -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543 1353 Eastern time. N6LRT I speak for myself my dogs only.VM'er since CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians Owner:Chinook-L Retired at the beach Asst Owner:Sibernet-L
Re: how to wait for dfsmsrm command
The only problem with using a tool like this is that while DFSMS/VM is mounting the tape for you, the tape drive is attached to the RMSMASTR virtual machine, not the requestor's virtual machine. The tape drive is not attached to the requestor until the requested tape is loaded and the drive is ready ... JR (Steven) Imler CA Senior Software Engineer Tel: +1 703 708 3479 Fax: +1 703 708 3267 [EMAIL PROTECTED] -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Rich Greenberg Sent: Wednesday, January 23, 2008 11:20 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command Many moons ago I wrote a progam called RXTAPINFO which did a sense to the tape drive and returned (among other flags) a ready/notready indication. I used it to wait for an operator mount. Check your favorite VMSHARE or WORKSHOP archive or I can (probaably) send you a copy directly. Also check this list's archives. Just checked my archives, and I do have a copy. -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543 1353 Eastern time. N6LRT I speak for myself my dogs only. VM'er since CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians Owner:Chinook-L Retired at the beach Asst Owner:Sibernet-L
Re: how to wait for dfsmsrm command
On: Wed, Jan 23, 2008 at 11:26:13AM -0500,Imler, Steven J Wrote: } The only problem with using a tool like this is that while DFSMS/VM is } mounting the tape for you, the tape drive is attached to the RMSMASTR } virtual machine, not the requestor's virtual machine. The tape drive is } not attached to the requestor until the requested tape is loaded and the } drive is ready ... Yes JR, that would preclude the use of RXTAPINFO. But couldn't you just loop on having the drive attached then? -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543 1353 Eastern time. N6LRT I speak for myself my dogs only.VM'er since CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians Owner:Chinook-L Retired at the beach Asst Owner:Sibernet-L
Re: how to wait for dfsmsrm command
Yes ... I think that's what Jeff G. suggested. JR (Steven) Imler CA Senior Software Engineer Tel: +1 703 708 3479 Fax: +1 703 708 3267 [EMAIL PROTECTED] -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Rich Greenberg Sent: Wednesday, January 23, 2008 11:38 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command On: Wed, Jan 23, 2008 at 11:26:13AM -0500,Imler, Steven J Wrote: } The only problem with using a tool like this is that while DFSMS/VM is } mounting the tape for you, the tape drive is attached to the RMSMASTR } virtual machine, not the requestor's virtual machine. The tape drive is } not attached to the requestor until the requested tape is loaded and the } drive is ready ... Yes JR, that would preclude the use of RXTAPINFO. But couldn't you just loop on having the drive attached then? -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543 1353 Eastern time. N6LRT I speak for myself my dogs only. VM'er since CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians Owner:Chinook-L Retired at the beach Asst Owner:Sibernet-L
Re: how to wait for dfsmsrm command
It has been a long time since I did this but I never get complaints about it not working. MOUNT: PROCEDURE EXPOSE CSLRC CSLRS FCTRC FCTRS REQTOKEN MOUNTYPE, VLABEL RDEV LIBNAME LEN1 USERID VDEV SOURCECAT, LEN3 OPTIONS LEN4 RWMODE /* SET PROGRAM PARAMETERS FOR MOUNT */ CSLRC = 0/* CSL RETURN CODE */ CSLRS = 0/* CSL REASON CODE */ FCTRC = 0/* FUNCTION RETURN CODE */ FCTRS = 0/* FUNCTION REASON CODE */ REQTOKEN = 0/* 0=WAIT,1=NOWAIT,OTHER=CHECK-BACK */ MOUNTTYPE = 'CAT'/* VOLUME MOUNT=VOL,CATEGORY..=CAT */ VLABEL= ' ' /* VOLUME EXTERNAL LABEL*/ RDEV = RDEV /* REAL DEVICE ADDRESS */ LIBNAME = '' /* LIBRARY NAME */ LEN1 = LENGTH(LIBNAME) /* LIBRARY NAME LEN */ USERID= USERID /* ATTACH-TO USERID */ VDEV = '0181' /* VIRTUAL DEVICE ADDRESS */ SOURCECAT = 'SCRATCH0' /* SOURCE CATEGORY */ LEN2 = LENGTH(SOURCECAT) /* LEN OF SOURCE CATEGORY */ TARGETCAT = 'VOLSPECIFIC'/* TARGET CATEGORY */ LEN3 = LENGTH(TARGETCAT) /* LEN OF SOURCE CATEGORY */ OPTIONS = 'ATTACH' /* READONLY|READWRITE */ /* IDRC|NOIDRC */ /* ASSIGN|NOASSIGN */ /* ATTACH|NOATTACH */ LEN4 = LENGTH(OPTIONS) /* LEN OF OPTIONS */ /* CALL CSL TO PERFORM THE MOUNT REQUEST */ CALL CSL 'FSMRMMNT', 'CSLRC CSLRS FCTRC FCTRS REQTOKEN', 'MOUNTTYPE VLABEL RDEV LIBNAME LEN1', 'USERID VDEV SOURCECAT LEN2', 'TARGETCAT LEN3 OPTIONS LEN4' /* CHECK FOR ERRORS FROM MOUNT REQUEST */ IF CSLRC ¬= 0 | CSLRS ¬= 0 | FCTRC ¬= 0 | FCTRS ¬= 0, THEN SIGNAL BADMOUNT RETURN -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] Behalf Of Imler, Steven J Sent: Wednesday, January 23, 2008 10:44 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command Yes ... I think that's what Jeff G. suggested. JR (Steven) Imler CA Senior Software Engineer Tel: +1 703 708 3479 Fax: +1 703 708 3267 [EMAIL PROTECTED] -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Rich Greenberg Sent: Wednesday, January 23, 2008 11:38 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command On: Wed, Jan 23, 2008 at 11:26:13AM -0500,Imler, Steven J Wrote: } The only problem with using a tool like this is that while DFSMS/VM is } mounting the tape for you, the tape drive is attached to the RMSMASTR } virtual machine, not the requestor's virtual machine. The tape drive is } not attached to the requestor until the requested tape is loaded and the } drive is ready ... Yes JR, that would preclude the use of RXTAPINFO. But couldn't you just loop on having the drive attached then? -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543 1353 Eastern time. N6LRT I speak for myself my dogs only. VM'er since CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians Owner:Chinook-L Retired at the beach Asst Owner:Sibernet-L
Re: how to wait for dfsmsrm command
I take it that you do not have access to VSSI's VTAPE product. It has a TAPSENSE command that does a SENSE and formats the output into a readable display. Regards, Richard Schuh -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Thomas Kern Sent: Wednesday, January 23, 2008 9:32 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command I borrowed a module from the current TCPMAINT 592 disk to do the wait for= a specific device, in this case TAP1. The WAITDEV TAP1 command works just= fine to wait for a drive to be attached to the server at address 0181. Th= is works for external 3490's, VTS virtual 3490's and ATL 3590's. Chuckie may= disaprove of using a working piece of code to solve a problem, but we wil= l worry about Chuckie IF it ever breaks. To calm Chuckie down, I will look for Rich's real user code RXTAPINFO to = see if I can replace IBM's code. /Tom Kern On Wed, 23 Jan 2008 11:20:23 -0500, Rich Greenberg [EMAIL PROTECTED] wro= te: Many moons ago I wrote a progam called RXTAPINFO which did a sense to the tape drive and returned (among other flags) a ready/notready indication. I used it to wait for an operator mount. Check your favorite VMSHARE or WORKSHOP archive or I can (probaably) send you a copy directly. Also check this list's archives. Just checked my archives, and I do have a copy. -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543= 1353 Eastern time. N6LRT I speak for myself my dogs only.VM'er si= nce CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians O= wner:Chinook-L Retired at the beach Asst Owner:Sibe= rnet-L = ==
Re: how to wait for dfsmsrm command
I have no access to ANY tape management product. All of my backup/restore procedures have to deal directly with DFSMS and 3490 stackers and operato rs. /Tom Kern On Wed, 23 Jan 2008 09:40:47 -0800, Schuh, Richard [EMAIL PROTECTED] wrot e: I take it that you do not have access to VSSI's VTAPE product. It has a TAPSENSE command that does a SENSE and formats the output into a readable display. Regards, Richard Schuh
Re: how to wait for dfsmsrm command
} The only problem with using a tool like this is that while DFSMS/VM is } mounting the tape for you, the tape drive is attached to the RMSMASTR } virtual machine, not the requestor's virtual machine. The tape drive is } not attached to the requestor until the requested tape is loaded and the } drive is ready ... Or first attach the drive to the requester's machine using the multiuser option before issuing the mount request. Best Regards, Les Geer
Re: how to wait for dfsmsrm command
I borrowed a module from the current TCPMAINT 592 disk to do the wait for a specific device, in this case TAP1. The WAITDEV TAP1 command works just fine to wait for a drive to be attached to the server at address 0181. Th is works for external 3490's, VTS virtual 3490's and ATL 3590's. Chuckie may disaprove of using a working piece of code to solve a problem, but we wil l worry about Chuckie IF it ever breaks. To calm Chuckie down, I will look for Rich's real user code RXTAPINFO to see if I can replace IBM's code. /Tom Kern On Wed, 23 Jan 2008 11:20:23 -0500, Rich Greenberg [EMAIL PROTECTED] wro te: Many moons ago I wrote a progam called RXTAPINFO which did a sense to the tape drive and returned (among other flags) a ready/notready indication. I used it to wait for an operator mount. Check your favorite VMSHARE or WORKSHOP archive or I can (probaably) send you a copy directly. Also check this list's archives. Just checked my archives, and I do have a copy. -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543 1353 Eastern time. N6LRT I speak for myself my dogs only.VM'er si nce CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians O wner:Chinook-L Retired at the beach Asst Owner:Sibe rnet-L =
Re: how to wait for dfsmsrm command
But isn't that a bit dangerous ... for the requestor to be issuing tape commands and/or CCWs to the attached tape drive while RMSMASTR is doing its thing mounting the tape for the requestor? JR (Steven) Imler CA Senior Software Engineer Tel: +1 703 708 3479 Fax: +1 703 708 3267 [EMAIL PROTECTED] -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Les Geer (607-429-3580) Sent: Wednesday, January 23, 2008 12:50 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command } The only problem with using a tool like this is that while DFSMS/VM is } mounting the tape for you, the tape drive is attached to the RMSMASTR } virtual machine, not the requestor's virtual machine. The tape drive is } not attached to the requestor until the requested tape is loaded and the } drive is ready ... Or first attach the drive to the requester's machine using the multiuser option before issuing the mount request. Best Regards, Les Geer
Re: how to wait for dfsmsrm command
What's wrong with using the WAIT option? DFSMSRM MOUNT VOLUME volume (WAIT READWRITE VDEV ccuu -Mike -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Imler, Steven J Sent: Wednesday, January 23, 2008 1:07 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command But isn't that a bit dangerous ... for the requestor to be issuing tape commands and/or CCWs to the attached tape drive while RMSMASTR is doing its thing mounting the tape for the requestor? JR (Steven) Imler CA Senior Software Engineer Tel: +1 703 708 3479 Fax: +1 703 708 3267 [EMAIL PROTECTED] -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Les Geer (607-429-3580) Sent: Wednesday, January 23, 2008 12:50 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command } The only problem with using a tool like this is that while DFSMS/VM is } mounting the tape for you, the tape drive is attached to the RMSMASTR } virtual machine, not the requestor's virtual machine. The tape drive is } not attached to the requestor until the requested tape is loaded and the } drive is ready ... Or first attach the drive to the requester's machine using the multiuser option before issuing the mount request. Best Regards, Les Geer
Re: how to wait for dfsmsrm command
FWIW, VTAPE is not a tape management product. It intercepts I/Os to defined virtual tape units that have been defined and simulate the tape I/O while writing the data into or reading from a disk library. There is no real drive when reading or writing to a VTAPE; however, TAPSENSE works with real or virtual drives. Regards, Richard Schuh -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Thomas Kern Sent: Wednesday, January 23, 2008 9:50 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command I have no access to ANY tape management product. All of my backup/restore= procedures have to deal directly with DFSMS and 3490 stackers and operato= rs. /Tom Kern On Wed, 23 Jan 2008 09:40:47 -0800, Schuh, Richard [EMAIL PROTECTED] wrot= e: I take it that you do not have access to VSSI's VTAPE product. It has a TAPSENSE command that does a SENSE and formats the output into a readable display. Regards, Richard Schuh
Re: how to wait for dfsmsrm command
WAITDEV looks as if it could be very useful, but I can't find the WAITDEV MEMO that is referenced if you enter WAITDEV ?. I see that there is a WAITDEV SET. Can you set the max time for a wait with it. Jim Thomas Kern wrote: I borrowed a module from the current TCPMAINT 592 disk to do the wait for= a specific device, in this case TAP1. The WAITDEV TAP1 command works just= fine to wait for a drive to be attached to the server at address 0181. Th= is works for external 3490's, VTS virtual 3490's and ATL 3590's. Chuckie may= disaprove of using a working piece of code to solve a problem, but we wil= l worry about Chuckie IF it ever breaks. To calm Chuckie down, I will look for Rich's real user code RXTAPINFO to = see if I can replace IBM's code. /Tom Kern -- Jim Bohnsack Cornell University (607) 255-1760 [EMAIL PROTECTED]
Re: how to wait for dfsmsrm command
I have never found the MEMO (must be IBM internal only). I have never tri ed anything more than just letting it sit and wait forever. My backup/restor e procedures are rather simplistic and I am the error recovery for things l ike the operators forgot to fill the stackers with scratch tapes before they left on Friday, or no more tapes in the SCRATCH2/SCRATCH4 categories for DFSMS (my fault), or we left that restore tape back at home. Since I don't have any operators to complain to when my backups are runni ng, there is no real reason to timeout after say 5 minutes to nag the operato rs. DFSMS does do a nice job of just waiting for a free 3590 drive when I sta rt 6 backup jobs but only have 3 drives. Two hours later the drives cone fre e and the next job in line gets the first free drive. WAITDEV just sits waiting nicely. If anyone does have a 'Wait for arbitrary device with timeout and console override', please tell us about it. To Rich Schuh, sorry for not knowing the real nature of the VTAPE product , but again, it isn't something my client would use. /Tom Kern On Wed, 23 Jan 2008 13:33:34 -0500, Jim Bohnsack [EMAIL PROTECTED] wro te: WAITDEV looks as if it could be very useful, but I can't find the WAITDEV MEMO that is referenced if you enter WAITDEV ?. I see that there is a WAITDEV SET. Can you set the max time for a wait with it. Jim
Re: how to wait for dfsmsrm command
A SENSE command is not dangerous. Its response comes from the Control Unit and only reports status without altering it. If there is no device at the address, a cc=3 is returned by the VM CP based on the lack of a VDEV. About the only window for mischief, and it is just hypothetical, would be if you could issue the SENSE between the time that a Unit Check is presented by the hardware to CP and CP's doing a SENSE to get the status. Like I say, hypothetical because I doubt that there really is even that teeny-tiny window - if there is a unit check, CP will undoubtedly do a SENSE before it presents the UC to the VM starts the next virtual machine I/O. If the VIO is a SENSE, the saved status is returned; if not, the status is cleared just as it would be in the real hardware. Regards, Richard Schuh -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Imler, Steven J Sent: Wednesday, January 23, 2008 10:07 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command But isn't that a bit dangerous ... for the requestor to be issuing tape commands and/or CCWs to the attached tape drive while RMSMASTR is doing its thing mounting the tape for the requestor? JR (Steven) Imler CA Senior Software Engineer Tel: +1 703 708 3479 Fax: +1 703 708 3267 [EMAIL PROTECTED] -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Les Geer (607-429-3580) Sent: Wednesday, January 23, 2008 12:50 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command } The only problem with using a tool like this is that while DFSMS/VM is } mounting the tape for you, the tape drive is attached to the RMSMASTR } virtual machine, not the requestor's virtual machine. The tape drive is } not attached to the requestor until the requested tape is loaded and the } drive is ready ... Or first attach the drive to the requester's machine using the multiuser option before issuing the mount request. Best Regards, Les Geer
Re: how to wait for dfsmsrm command
The simple approach that works for me is to let RMSMASTR attach the drive when it is ready while my EXEC does a simple loop around a CP Q V 181 non zero return code. David Lewis
Re: how to wait for dfsmsrm command
On Wednesday, 01/23/2008 at 12:33 EST, Thomas Kern [EMAIL PROTECTED] wrote: I borrowed a module from the current TCPMAINT 592 disk to do the wait for a specific device, in this case TAP1. The WAITDEV TAP1 command works just fine to wait for a drive to be attached to the server at address 0181. This works for external 3490's, VTS virtual 3490's and ATL 3590's. Chuckie may disaprove of using a working piece of code to solve a problem, but we will worry about Chuckie IF it ever breaks. There's nothing bad about WAITDEV. When a device is attached the virtual machine will receive a machine check interrupt, telling CMS that a device has been added to the configuration (channel report word). ALSO, an unsolicited Device End will be generated on the vaddr itself, indicating a not-read-to-ready transition of the device. Same as when you turn on a 3270 or hit the test/normal switch. Alan Altmark z/VM Development IBM Endicott
Re: how to wait for dfsmsrm command
Jim, could you explain the call emsg. I know what you're trying to accomplish with it. I don't have an EXEC or anything executable called EMSG. I do have a help file for it but it doesn't work with the normal HELP command. I also have EMSG set on. Thanks, Steve G. -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Jim Bohnsack Sent: Wednesday, January 23, 2008 9:42 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: how to wait for dfsmsrm command Phillip--This is what I do in an exec that gets kicked off to do an SPXTAPE of DCS's. This is the wait routine after the DFSMSRM MOUNT is issued. Here is the MOUNT, just for reference: 'CP SM OP CMD DFSMSRM MOUNT VOL 'nextape' (LIBNAME 'lib, 'READWR ATTACH 'userid()' VDEV 181' This is the WAIT procedure: /* TAPEWAIT: Wait until a tape has been attached */ tapewait: procedure expose op rcode disc; parse upper arg vaddr volser mounted = 0 do 24 until mounted /* 2 hours */ do 30 until mounted /* 5 minutes */ Parse Value DiagRC(8,'QUERY VIRTUAL 181') With rc . if rc=0 then do; mounted=1; iterate; end; 'CP SLEEP 10 SEC' if rc ¬= 0 then do; say 'WAITC RC' rc; exit rc; end; end end if ¬mounted then do call emsg 'TAPE SETUP HAS NOT BEEN HONORED.' rcode = max(16,rcode) signal done end return Jim [EMAIL PROTECTED] wrote: This is a multipart message in MIME format. --=_alternative 0080D6BF862573D8_= Content-Type: text/plain; charset=US-ASCII we use a disconnected server machine to run SPXTAPE backup. an EXEC used to write to 3480, but we are removing the 3480s and i need it to write to a 3494 controlled 3590. i'm having trouble getting figuring out how to have it wait for the DFSMSRM MOUNT command to complete. how do i get the output in response to the DFSMSRM MOUNT into REXX so i can determine whether to continue with the SPXTAPE command? do i use WAKEUP (IUCVMSG ? prg Phillip Gramly Systems Programmer Communications Data Group Champaign, IL -- Jim Bohnsack Cornell University (607) 255-1760 [EMAIL PROTECTED]
Re: how to wait for dfsmsrm command
But isn't that a bit dangerous ... for the requestor to be issuing tape commands and/or CCWs to the attached tape drive while RMSMASTR is doing its thing mounting the tape for the requestor? I would expect if a mount command has been requested to RMS, the requestor would not be doing anything to the drive until a DE has occurred indicating a tape was mounted. At that point, RMS should have detached the drive Best Regards, Les Geer IBM z/VM and Linux Development
Re: how to wait for dfsmsrm command
still not home on this. didn't know about ATTACH with MULTIUSER - thanks Les. so, i added this line: 'CP ATT' tape_addr 'TO * AS 181 MULTIUSER' the tape_addr variable is read with Parse ARG b/c the operator uses xautolog bkupsdf #exec cuu now after the 'DFSMSRM MOUNT VOLUME' ... command i added : 'WAITDEV 181' -- didn't work - it just sits there after RMSMASTR finishes tried: 'WAITDEV' tape_addr -- to wait on the real address -- didn't work either. tried: 'WAITDEV TAP1' -- since i can't find any doc on WAITDEV, altho i did find the MODULE - didn't work. hmmm... what is missing here? are there more options for WAITDEV? prg Phillip Gramly Systems Programmer Communications Data Group Champaign, IL I borrowed a module from the current TCPMAINT 592 disk to do the wait for a specific device, in this case TAP1. The WAITDEV TAP1 command works just fine to wait for a drive to be attached to the server at address 0181. This works for external 3490's, VTS virtual 3490's and ATL 3590's. Chuckie may disaprove of using a working piece of code to solve a problem, but we will worry about Chuckie IF it ever breaks. There's nothing bad about WAITDEV. When a device is attached the virtual machine will receive a machine check interrupt, telling CMS that a device has been added to the configuration (channel report word). ALSO, an unsolicited Device End will be generated on the vaddr itself, indicating a not-read-to-ready transition of the device. Same as when you turn on a 3270 or hit the test/normal switch. Alan Altmark z/VM Development IBM Endicott
Re: how to wait for dfsmsrm command
On: Wed, Jan 23, 2008 at 09:40:47AM -0800,Schuh, Richard Wrote: } I take it that you do not have access to VSSI's VTAPE product. It has a } TAPSENSE command that does a SENSE and formats the output into a } readable display. Which is exactly what RXTAPINFO plus the rexx wrapper (also called TAPINFO) does. I may have given them the code (via a workshop or VMSHARE item). Here is a bit from the assembler header: *Acknowledgements: * *In writing this routine, I have shamelessly lifted *styles, techniques, and pieces of code from *TAPSENSE by Henry Nussbacher (WIS), *and RDTAPE by Bruce Sather, (ADI). *Thanks guys. EJECT *Modification history *Original, 12/1986, Xerox Computer services. *Mod, 3/1994, ETi * Dual path so that the tape i/o will use DIAG A8 * when available, or DIAG 20 if not Or given the similarity of names, perhaps they started with Henry's code. -- Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com + 1 239 543 1353 Eastern time. N6LRT I speak for myself my dogs only.VM'er since CP-67 Canines:Val, Red, Shasta Casey (RIP), Red Zero, Siberians Owner:Chinook-L Retired at the beach Asst Owner:Sibernet-L
how to wait for dfsmsrm command
we use a disconnected server machine to run SPXTAPE backup. an EXEC used to write to 3480, but we are removing the 3480s and i need it to write to a 3494 controlled 3590. i'm having trouble getting figuring out how to have it wait for the DFSMSRM MOUNT command to complete. how do i get the output in response to the DFSMSRM MOUNT into REXX so i can determine whether to continue with the SPXTAPE command? do i use WAKEUP (IUCVMSG ? prg Phillip Gramly Systems Programmer Communications Data Group Champaign, IL
Re: how to wait for dfsmsrm command
Phillip, Have you tried the WAIT option on DFSMSRM MOUNT? Do you need to trap the response from DFSMSRM, or will the return code be sufficient? Dennis The popularity and effectiveness of modern anti-depressants is one of the great challenges of contemporary dramaturgy. We no more want Willy Loman to solve his problems with Prozac than we want Stanley and Stella Kowalski to get air-conditioning. -- Playwriting 101 From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Tuesday, January 22, 2008 15:27 To: IBMVM@LISTSERV.UARK.EDU Subject: [IBMVM] how to wait for dfsmsrm command we use a disconnected server machine to run SPXTAPE backup. an EXEC used to write to 3480, but we are removing the 3480s and i need it to write to a 3494 controlled 3590. i'm having trouble getting figuring out how to have it wait for the DFSMSRM MOUNT command to complete. how do i get the output in response to the DFSMSRM MOUNT into REXX so i can determine whether to continue with the SPXTAPE command? do i use WAKEUP (IUCVMSG ? prg Phillip Gramly Systems Programmer Communications Data Group Champaign, IL
Re: how to wait for dfsmsrm command
Dennis, here is the DFSMSRM command: 'dfsmsrm MOUNT VOLUME' label '(RDEV' tape_addr 'LIBNAME TAPLIB READWR WAIT ATTACH * VDEV 181' but, the EXEC just plows on and i get SPXTAPE CANCEL INITIATED ON VDEV 0181 i think because RMSMASTR has not finished mounting the tape. the RC would be sufficient. prg Phillip Gramly Systems Programmer Communications Data Group Champaign, IL The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 01/22/2008 05:53:50 PM: Phillip, Have you tried the WAIT option on DFSMSRM MOUNT? Do you need to trap the response from DFSMSRM, or will the return code be sufficient? Dennis
Re: how to wait for dfsmsrm command
I suggest looking at using the CSL routine and performing regular checkback to check on mount status. wait only waits for the initial I/O to complete, not the mount completion notification. Best Regards, Les Geer IBM z/VM and Linux Development here is the DFSMSRM command: 'dfsmsrm MOUNT VOLUME' label '(RDEV' tape_addr 'LIBNAME TAPLIB READWR WAIT ATTACH * VDEV 181' but, the EXEC just plows on and i get SPXTAPE CANCEL INITIATED ON VDEV 0181 i think because RMSMASTR has not finished mounting the tape. the RC would be sufficient. Have you tried the WAIT option on DFSMSRM MOUNT? Do you need to trap the response from DFSMSRM, or will the return code be sufficient?