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: [email protected] 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]
