Gil, I can't help with your question about ALLOCATE equivalents, but I think you should be able to have your operator simply issue a MOUNT command to permanently mount the tape on a drive. Check the system commands manual. S/he would have to either do an UNLOAD or VARY OFFLINE to get the tape unmounted.
Rex -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Paul Gilmartin Sent: Friday, August 14, 2009 4:44 PM To: [email protected] 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? -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
