The documentation for FDRTCOPY contains the following in its explanation of the EXP paramater of the copy command (the following is paraphrased and out of order from the manual):
EXP=JCL is the default EXP=JCL says that any EXPDT or RETPD on the output tape will be honored. If these are not present on the DD statement, the expiration date will be copied from the input file. So Russell's guess is on the money. Jeff Holst Fiserv On Wed, 7 Oct 2009 20:37:41 -0500, Russell Witt <res09...@verizon.net> wrote: >I am guessing that FDRTCOPY is attempting to copy the expiration from the >input to the output file. If BES260 is not defined to CA-1; simply remove >EXPDT=98000 from the TAPEIN DD statement. > >Russell Witt >CA 1 L2 Support Manager > >-----Original Message----- >From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu]on >Behalf Of O'Brien, David W. (NIH/CIT) [C] >Sent: Tuesday, October 06, 2009 4:31 PM >To: IBM-MAIN@bama.ua.edu >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 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
