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]
