Any chance FDRTCOPY is attempting to propagate attributes from the input to the output volumes. If your TMS is CA-1, does replacing the EXPDT operand with ACCODE=ACANORES help at all? If not, how about adding EXPDT or RETPD to TAPEOUT?
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of O'Brien, David W. (NIH/CIT) [C] Sent: Tuesday, October 06, 2009 2:31 PM To: [email protected] Subject: Issues with FDRTCOPY and TMS I'm attempting to copy data from a 'foreign' tape to a virtual tape on my VSM. The input tape is duly designated as foreign with Expdt=98000, My problem is TMS thinks the output tape is foreign as well. JCL follows: //FDRTCOPY EXEC PGM=FDRTCOPY,REGION=0M //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //TAPEIN DD DSN=abc.def,DISP=OLD, // UNIT=FRGN3490,VOL=SER=BIS260,EXPDT=98000 //TAPEOUT DD DSN=abc.def,UNIT=ETAPE, // DISP=(NEW,CATLG),VOL=(,,,255) //SYSIN DD * COPY /* The system mounts a tape number known to TMS but I then get the following: TMS008 IEF233A M 0B6A,BIS260,,BISTC260,FDRTCOPY,abc.def IEC501A M 05F0,PRIVAT,SL,COMP,BISTC260,FDRTCOPY TMS001 IEC501A M 05F0,PRIVAT,SL,COMP,BISTC260,FDRTCOPY,BXAIR 54 IECTMS2 05F0,503002,VERIFY TAPE FROM OUTSIDE LIBRARY OR ' R 54,HELP IECTMS2-HELP 823 THE TAPE MOUNTED FOR A NON-RESIDENT/FOREIGN REQUEST MATCHES A CA-1 CONTROLLED VOLUME. ENTER 'M' TO DISMOUNT THE VOLUME, OR 'U' TO ALLOW OUTPUT PROCESSING FOR THE VOLUME. 55 IECTMS2 05F0,503002,VERIFY TAPE FROM OUTSIDE LIBRARY OR ' R 55,U IECTMS9 05F0,503002,BISTC260,TAPEOUT ,FOREIGN ,0001,CKUP.LA IEC705I TAPE ON 05F0,503002,SL,COMP,BISTC260,FDRTCOPY,MEDIA1 IEC205I TAPEOUT,BISTC260,FDRTCOPY,FILESEQ=1, COMPLETE VOLUME VOLS=503002,TOTALBLOCKS=12505 First of all my operator should not have replied U but does anyone have an idea as to why that TMS thinks 503002 is a duplicate of a known TMS tape when in fact it is the TMS 503002 being written to? Of course a query against 503002 on TMS reveals a scratch tape. Thank You, Dave O'Brien NIH Contractor ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
