Can TSO read Virtual tape using IKJEFT01 to FTP
I am attempting to do an FTP using IKJEFT01 and getting errors that tape mount
not possible.
I have AUTOTAPEMOUNT set to true.
It works when using pgm=ftp rather than ftping thru batch tso.
My question is, Is it possible for a tso session to read a Virtual Tape? I
have tried
many different ways and googled but not finding what I need. Below is the step
I am executing and below that is the Rexx. This was as close as I could get to
getting the tape to actually mount but then I got abend 1102 ERROR IN FTP, RC
= 27000
basically stating not able to mount tape and autotapemount not used even though
I have
autotapemount set to true in my TCPPARMS member. Any help would be appreciated.
The reason we are using rexx is because ftp fails from time to time and we are
coding the ftp
to be passed a second time when rc not =0. So if you know of another way to
retry that would
help too.
//STEP0010 EXEC PGM=IKJEFT01
//TAPEDD DD DISP=SHR,DSN=MOE.PSD.COMBINED.DISPEXTR.NEW
//STEPLIB DD DSN=JBH.PROD.LOADLIB,DISP=SHR
//SYSEXEC DD DSN=JBH.PROD.SYSDEV.CLIST,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSIN DD *
EX 'DATA.SET.HERE(MEMBER)'
Here is what I have in member
TRACE ?ALL
ADDRESS TSO
ALLOC FI(SYSFTPD) DA('SYS2.TCPIP.PRD3.TCPPARMS(FTPDATA)') SHR REUSE
EXECIO * DISKR SYSFTPD (FINIS
L1 = PUT //DD:TAPEDD ICQ_DISPATCH_BIN.TXT
QUEUE 'x\ xxx'
QUEUE 'binary'
QUEUE L1
/*QUEUE 'QUIT'*/
QUEUE ''
FTP FTPTEST (EXIT
/*FTP 10.69.3.86 (EXIT */
IF RC ¬= 0 THEN DO
sleep (60)
NEWSTACK
QUEUE 'jbh01\piddwftp udb07pd'
QUEUE L1
/*QUEUE 'QUIT'*/
QUEUE ''
--
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
Re: Can TSO read Virtual tape using IKJEFT01 to FTP
The TSO Userid needs mount authority
Edouard A. Myers
Senior Information Technology Specialist
Office of the Chief Technology Officer
DC Government
222 Massachusetts Ave, NW, Suite 200
Washington, DC 20001
Phone : 202-727-4017
Fax: 202-727-3880
Email: edouard.my...@dc.gov
Website: http://www.octo.dc.gov
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Cynthia Davis
Sent: Tuesday, February 23, 2010 4:14 PM
To: IBM-MAIN@bama.ua.edu
Subject: Can TSO read Virtual tape using IKJEFT01 to FTP
I am attempting to do an FTP using IKJEFT01 and getting errors that tape mount
not possible.
I have AUTOTAPEMOUNT set to true.
It works when using pgm=ftp rather than ftping thru batch tso.
My question is, Is it possible for a tso session to read a Virtual Tape? I
have tried
many different ways and googled but not finding what I need. Below is the step
I am executing and below that is the Rexx. This was as close as I could get to
getting the tape to actually mount but then I got abend 1102 ERROR IN FTP, RC
= 27000
basically stating not able to mount tape and autotapemount not used even though
I have
autotapemount set to true in my TCPPARMS member. Any help would be appreciated.
The reason we are using rexx is because ftp fails from time to time and we are
coding the ftp
to be passed a second time when rc not =0. So if you know of another way to
retry that would
help too.
//STEP0010 EXEC PGM=IKJEFT01
//TAPEDD DD DISP=SHR,DSN=MOE.PSD.COMBINED.DISPEXTR.NEW
//STEPLIB DD DSN=JBH.PROD.LOADLIB,DISP=SHR
//SYSEXEC DD DSN=JBH.PROD.SYSDEV.CLIST,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSIN DD *
EX 'DATA.SET.HERE(MEMBER)'
Here is what I have in member
TRACE ?ALL
ADDRESS TSO
ALLOC FI(SYSFTPD) DA('SYS2.TCPIP.PRD3.TCPPARMS(FTPDATA)') SHR REUSE
EXECIO * DISKR SYSFTPD (FINIS
L1 = PUT //DD:TAPEDD ICQ_DISPATCH_BIN.TXT
QUEUE 'x\ xxx'
QUEUE 'binary'
QUEUE L1
/*QUEUE 'QUIT'*/
QUEUE ''
FTP FTPTEST (EXIT
/*FTP 10.69.3.86 (EXIT */
IF RC ¬= 0 THEN DO
sleep (60)
NEWSTACK
QUEUE 'jbh01\piddwftp udb07pd'
QUEUE L1
/*QUEUE 'QUIT'*/
QUEUE ''
--
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
--
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
Re: Can TSO read Virtual tape using IKJEFT01 to FTP
Your TSO id must be allowed MOUNT authority in order to mount a tape (virtual or real), even in batch. This is a RACF thing for TSO. PERMIT MOUNT CLASS(TSOAUTH) ACCESS(READ) ID(myid) -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- 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
Re: Can TSO read Virtual tape using IKJEFT01 to FTP
In the old days you have the ACCOUNT function in TSO that you could set MOUNT.
In today's environment, I think that is controlled in the TSO Segment of your
security product.
So I would check with your security admins to see if your TSO Segment has MOUNT
capability.
Lizette
I am attempting to do an FTP using IKJEFT01 and getting errors that tape mount
not possible.
I have AUTOTAPEMOUNT set to true.
It works when using pgm=ftp rather than ftping thru batch tso.
My question is, Is it possible for a tso session to read a Virtual Tape? I
have tried
many different ways and googled but not finding what I need. Below is the step
I am executing and below that is the Rexx. This was as close as I could get to
getting the tape to actually mount but then I got abend 1102 ERROR IN FTP, RC
= 27000
basically stating not able to mount tape and autotapemount not used even
though I have
autotapemount set to true in my TCPPARMS member. Any help would be
appreciated.
The reason we are using rexx is because ftp fails from time to time and we are
coding the ftp
to be passed a second time when rc not =0. So if you know of another way to
retry that would
help too.
//STEP0010 EXEC PGM=IKJEFT01
//TAPEDD DD DISP=SHR,DSN=MOE.PSD.COMBINED.DISPEXTR.NEW
//STEPLIB DD DSN=JBH.PROD.LOADLIB,DISP=SHR
//SYSEXEC DD DSN=JBH.PROD.SYSDEV.CLIST,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSIN DD *
EX 'DATA.SET.HERE(MEMBER)'
Here is what I have in member
TRACE ?ALL
ADDRESS TSO
ALLOC FI(SYSFTPD) DA('SYS2.TCPIP.PRD3.TCPPARMS(FTPDATA)') SHR REUSE
EXECIO * DISKR SYSFTPD (FINIS
L1 = PUT //DD:TAPEDD ICQ_DISPATCH_BIN.TXT
QUEUE 'x\ xxx'
QUEUE 'binary'
QUEUE L1
/*QUEUE 'QUIT'*/
QUEUE ''
FTP FTPTEST (EXIT
/*FTP 10.69.3.86 (EXIT */
IF RC ¬= 0 THEN DO
sleep (60)
NEWSTACK
QUEUE 'jbh01\piddwftp udb07pd'
QUEUE L1
/*QUEUE 'QUIT'*/
QUEUE ''
--
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
Re: Can TSO read Virtual tape using IKJEFT01 to FTP
From: Lizette Koehler stars...@mindspring.com To: IBM-MAIN@bama.ua.edu Sent: Tue, February 23, 2010 4:49:31 PM Subject: Re: Can TSO read Virtual tape using IKJEFT01 to FTP In the old days you have the ACCOUNT function in TSO that you could set MOUNT. In today's environment, I think that is controlled in the TSO Segment of your security product. So I would check with your security admins to see if your TSO Segment has MOUNT capability. Lizette SNIP- Ahh the mount authority... we had a terrible time with this and the MSS (3850 for all you newbies). In order to mount a volume tso users had to be given MOUNT the problem with that as I explained to management there is no difference to MVS whether it is a disk mount or a tape mount.. Only a few systems people had it after a big fight and we had to be extra careful a tapemount wasn't requested. This caused no end of confusion to the operators. The other issue was that the MSS was not to fast about mounting volumes and it tied up Q$ for a long time causing others to wait. We had more stand alones involving sysiefsdq4 (close anyway) that out IBM rep got a name for himself back in boulder. Ed -- 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
