Hi Chuck - This was an excellent suggestion. I had not considered using a TSO-submitted job to prove/disprove the TSO MOUNT authority issue. I do not have TSO MOUNT authority and yet, as you would expect, I was in act able to get a tape mounted using TSO in batch and your sample REXX program.
Larre Larry, I just created a REXX exec to read a tape, submitted it to batch and it requested, mounted and read the tape as expected and the EXECIO ended with a return code of zero. So, mounting tapes is possible in TSO/Batch. However, having said that, I am JES2 not JES3. Chuck The REXX: /* rexx */ "alloc fi(tapefile) da('S01CH.PRDC0904.SYS002') SHR" "execio 10 diskr tapefile (stem taprecs. fini)" say rc The Tape: ----------------------------- CA 1 TAPE INQUIRY ---------------------------- Data Set Name . . . : S01CH.PRDC0904.SYS002 General Data Creation Information Volume Serial. . . : 321526 Date . . . . . . : 2014/247 Alternate Volume . : Time . . . . . . : 09:02:00 Media type . . . : 3590-128X Jobname . . . . : S01CHUNL Record Format. . . : VB Program . . . . : IDMSBCF Record Length. . . : 32756 Last Used Information Block Size . . . : 32760 Date . . . . . . : 2015/091 Number of blocks . : 12320 Time . . . . . . : 13:51:00 Percent utilized . : 0 Jobname . . . . : S01CHTSO Batch ID/Hook ID . : CLOSE IO Expiration Information Status . . . . . : ACTIVE Expire Date. . . : CATALOG File / Volume Set Vault Management Information Base Volume. . . . : 321526 Outcode. . . . . : Sequence Number. . : 1 Slot . . . . . : 0000000 Total Files in Set : 1 Outdate. . . . . : Secondary volumes: USER DATA: The job: //S01CHTSO JOB (99CH,8310,,9000),'REXX', TYPRUN=SCAN, // CLASS=A,MSGCLASS=X,USER=S01CH // JCLLIB ORDER=S01CH.INCLUDE.JCLLIB /*JOBPARM LINES=999999 /*JOBPARM PAGES=999999 //* // INCLUDE MEMBER=TSOBATCH //ISPPROF DD DISP=SHR,DSN=S01CH.BATCH.IPO2.ISPPROF //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * profile plang(enu) slang(enu) %testtape The output: ACF0C038 ACF2 LOGONID ATTRIBUTES HAVE REPLACED DEFAULT USER ATTRIBUTES READY profile plang(enu) slang(enu) READY %testtape 0 READY END Charles (Chuck) Hardee Senior Systems Engineer/Database Administration EAS Information Technology Thermo Fisher Scientific 300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com | www.thermofisher.com WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this e-mail or the information herein by anyone other than the intended recipient, or an employee or agent of a system responsible for delivering the message to the intended recipient, is prohibited. If you are not the intended recipient, please inform the sender and delete all copies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN