-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Paul Gilmartin
Sent: Friday, August 14, 2009 4:44 PM
To: IBM-MAIN@bama.ua.edu
Subject: Multi-file tape
This worked OK on a virtual tape. Now I must make
it work on a physical tape. My EXEC says:
do File = 0 + 1 to 99
File = right( File, 3, 0 )
say
say ' File' File '============================================='
InDD = 'F'File
DynArg = ( 'alloc dd('InDD') dsn(''TAPE.FILE'File''')' ,
'expdt(98000) recfm(U) blksize(32760)' ,
'label(BLP) position('File')' ,
'unit(AB2)' VolArg 'shr reuse' )
address 'TSO' DynArg
if RC<>0 then leave File
RC = ProcessFile() /* FREEs InDD */
if RC<>0 then leave File; end File
To my utter dismay, it dismounts the tape after each file
and I must re-mount it.
What's the ALLOCATE analogue of "RETAIN"?
This takes longer each time.
Do I need to code a DD statement in JCL with RETAIN for
each file?
Should I count my blessings because auto ops is at least
replying to the VSN messages.
Long ago, a colleague caused a tape volume to be mounted,
even across job boundaries. This is outside my operator's
and my current skill set. Is that an alternative?
<SNIP>
Yes.
MOUNT [devaddr],vol=(sl,volser)
Where devaddr is the device address to hold the tape
volser is the actual Volume Serial of the tape
I believe that this will work on an ATL -- although some others may not
like it much (particularly if you only have two heads and the system is
rather busy).
Regards,
Steve Thompson
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
