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
