Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to copy tape to tape?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
spcichk

New User


Joined: 06 Jul 2005
Posts: 6

PostPosted: Mon Feb 09, 2009 10:58 pm    Post subject: How to copy tape to tape?
Reply with quote

Hi,

I need some help about sample JOB/JCL or utility for copy tape (multi files) to another tape (~clone tape).




Help pls,
ThankYou.
Back to top
View user's profile Send private message

Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Mon Feb 09, 2009 11:04 pm    Post subject:
Reply with quote

Do you want it cloned to the same VOLSER or is a different VOLSER on the output OK?
Back to top
View user's profile Send private message
spcichk

New User


Joined: 06 Jul 2005
Posts: 6

PostPosted: Mon Feb 09, 2009 11:53 pm    Post subject:
Reply with quote

Different VOLSER on output.
Can i use IEBCOPY or IEBGENER?
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Tue Feb 10, 2009 12:21 am    Post subject: Re: How to copy tape to tape?
Reply with quote

You can also use IDCAMS REPRO.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7993
Location: Bellevue, IA

PostPosted: Tue Feb 10, 2009 12:22 am    Post subject:
Reply with quote

IEBCOPY handles PDS and PDSE files -- not sequential tapes.

IEBGENER may (or may not) be able to do the copy -- it depends on what created the original file. DF/DSS, for example, specifically says the COPYDUMP facility is the only approved way to copy a DF/DSS dump data set.

IDCAMS REPRO could be used instead of IEBGENER for most files (except DF/DSS dumps).
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Feb 10, 2009 12:42 am    Post subject:
Reply with quote

Hello,

Do not double-post the same question in multiple parts of the forum (even if the wording is slightly changed).

For whatever reason you did not mention (this time) that the tape is a db2 backup. . .
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Tue Feb 10, 2009 2:19 am    Post subject:
Reply with quote

Standard copy utilities will not copy multiple files on the tape automatically. You'd need a copy step for each file, with VOL=REF=, LABEL=, and UNIT=AFF= on the output DD to stack on the same tape.
Back to top
View user's profile Send private message
Debabrata Pruseth

New User


Joined: 11 Dec 2008
Posts: 59
Location: Pune , India

PostPosted: Tue Feb 10, 2009 1:04 pm    Post subject:
Reply with quote

If you are using FILEAID then you can copy multiple files in a single STEP in JCL. I tested the below JCL

Code:

//STEP030  EXEC PGM=FILEAID                                             
//DD01     DD DSN=DKAR.CP000000.IHUK.FFT.AMPH2.G140.G0001V00,DISP=SHR   
//DD02     DD DSN=DKAR.CP000000.IHUK.FFT.AMPH2.G140.G0001V00,DISP=SHR   
//DD01O    DD DSN=&SYSUID..CP000000.IHUK.FFT.AMPH21,                   
//            DISP=(NEW,CATLG,DELETE),                                 
//            UNIT=TAPE,                                               
//            VOL=(,,,25),                                             
//            LABEL=(1,SL,EXPDT=99000),                                 
//            SPACE=(TRK,(750,300),RLSE),                               
//            DCB=(SYS1.DSCB,RECFM=FB,LRECL=0,BLKSIZE=0)               
//DD02O    DD DSN=&SYSUID..CP000000.IHUK.FFT.AMPH22,                   
//            DISP=(NEW,CATLG,DELETE),                                 
//            UNIT=AFF=DD01O,                                           
//            VOL=(,,,25),                                             
//            LABEL=(1,SL,EXPDT=99000),                                 
//            SPACE=(TRK,(750,300),RLSE),                               
//            DCB=(SYS1.DSCB,RECFM=FB,LRECL=0,BLKSIZE=0)               
//SYSOUT   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSDBOUT DD SYSOUT=*                                                 
//SYSIN    DD *                                                         
$$DD01     COPYALL   
$$DD02     COPYALL   
/*                   



It copies tape file DD01 to DD01O and DD02 to DD02O . To make sure that all the output tape files are created on the same tape for DD01O give the required VOL=REF=, LABEL=, and UNIT=AFF=. For all subsequent output files like DD02O just mention UNIT=AFF=DD01O. This will ensure that DD02O is created on the same tape as DD01O.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Feb 10, 2009 1:19 pm    Post subject:
Reply with quote

Quote:
For all subsequent output files like DD02O just mention UNIT=AFF=DD01O. This will ensure that DD02O is created on the same tape as DD01O.

This will ensure that DD02O uses the same output (physical or virtual) unit as DD01O, not nessecarily the same tape.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 1 Mon Jan 02, 2017 11:16 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us