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
