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 'xxxxx\xxxxxxxx xxxxxxx' 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