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
 

 

JCL to copy Tape to Tape, Tapes already exist

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

New User


Joined: 29 Dec 2008
Posts: 37
Location: india

PostPosted: Thu Oct 08, 2009 7:53 am    Post subject: JCL to copy Tape to Tape, Tapes already exist
Reply with quote

Hi,

I need a JCL to copy One Tape drive to another Tape drive.

Its production dataset so I can not make test runs.

Input File is spread across multiple volumes. All got copied to Output tape except two.

Now I want to copy rest of the volumes from input tape to Output tape.

I used a JCL earlier, thinking that it will be copying all the volumes for input dataset to output dataset. Here is the JCL I used earlier to copy all the Volumes to output dataset.


//JS10 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=Input.dataset.TAPE.G0193V00,
// DISP=SHR
//SYSUT2 DD DSN=Input.dataset.TAPE.VTS.G0193V00,
// DISP=(NEW,CATLG,DELETE),
// UNIT=VTSTAPE,
//* VOL=SER=VOLSER,
// SPACE=(CYL,(200,200),RLSE),
// DCB=(*.SYSUT1)
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=*

But two of the volumes of Input datasets are not copied to Output dataset( sorry i dont know the reason for this). Now the Output dataset exist and I want to copy rest of the volumes to output dataset. Volumes which were copied successfuly are already scratched so I cannot delete the Output dataset and create it again or else data will be lost.

Thanks for your efforts and cooperation.
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Oct 08, 2009 9:54 am    Post subject:
Reply with quote

Hi,

how do you know all but 2 tapes didn't get copied ?

What happened when the job ran ?

Can you show us the output from original run ?

There no such thing as copying from one tape drive to another tape drive.

Why do you need to specify space if it's been written to tape ?

Do you want to append the remaining 2 volumes to the failed output file ?


Gerry
Back to top
View user's profile Send private message
kapil dev arora

New User


Joined: 29 Dec 2008
Posts: 37
Location: india

PostPosted: Thu Oct 08, 2009 10:41 am    Post subject:
Reply with quote

1) I had a list of tapes related to the dataset name.
for e.g. Input.dataset.TAPE.G0193V00, VOLSER =
C31894
C36571
C38201
C38576
C38894

C38964
C39028
C39151

Except those in Red (C38576
,C38894) everything got copied using th JCL i mentioned earlier.

2) Job ran successfully with cc=0000. and Output dataset is cataloged.

3)
JESMSLG
======
JOBNAME STEPNAME RET-CODE EXCP CONN TCB SRB CLO
CPYDA8 JS10 CC=0000 488K 1079K 551181 .07 54

JESYSMSG Display:
============
IEF285I Input.dataset.TAPE.G0193V00 KEPT
IEF285I VOL SER NOS= C31894,C36571,C38201,C39028,C38964,
IEF285I VOL SER NOS= C39151.
IGD108I Input.dataset.TAPE.VTS.G0193V00 CATALOGED, DDNAME=SYSUT2
VOLUME SERIAL NUMBERS =
U30250
===============================

SYSPRINT Display:
********************************* TOP OF DATA *************
DATA SET UTILITY - GENERATE
IEB352I WARNING: ONE OR MORE OF THE OUTPUT DCB PARMS COPIED FROM INPUT

PROCESSING ENDED AT EOD
******************************** BOTTOM OF DATA **********

4) Please let me know why cant we copy tape drive to tape drive. I am already doing dataset copy from one kind of tape( which will be scratched later) to a new tape( type : VTS ). please correct me here.

5) Without space parameter job was not running fine.

6) yes, I want to append the other two volumes to the output dataset without harming dataset and already present data there.

I hope I am clear. Please let me know If I missing anything or did not answered correctly to any quetion.

Thanks for your Support.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Oct 08, 2009 11:28 am    Post subject:
Reply with quote

Hi,

are you sure those 2 volumes belong to the input dataset ?

The job you ran only retained the following volumes

Code:
IEF285I Input.dataset.TAPE.G0193V00 KEPT
IEF285I VOL SER NOS= C31894,C36571,C38201,C39028,C38964,
IEF285I VOL SER NOS= C39151.
, this means the other 2 volumes are not catalogued as part of the input dataset.

Also I would change from IEBGENER to perform the copy function, use SORT. it's much quicker.

A tape drive is a device where tapes are mounted on, the tape is where the data is written to.

Gerry
Back to top
View user's profile Send private message
kapil dev arora

New User


Joined: 29 Dec 2008
Posts: 37
Location: india

PostPosted: Thu Oct 08, 2009 2:37 pm    Post subject:
Reply with quote

I checked Volumes are available for the dataset. Please tell me a way to copy them to output dataset so that older data is not affected.

Thanks.
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: Thu Oct 08, 2009 2:39 pm    Post subject:
Reply with quote

What did you use to check, the catalog or the TMS.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Oct 08, 2009 2:40 pm    Post subject:
Reply with quote

Hi,


can you run a LISTCAT for this dataset and show the output.


Gerry
Back to top
View user's profile Send private message
kapil dev arora

New User


Joined: 29 Dec 2008
Posts: 37
Location: india

PostPosted: Thu Oct 08, 2009 3:09 pm    Post subject:
Reply with quote

Expat,

I ran a job to copy these volumes to a new dataset( just to check their existence)

//JS10 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=input.dataset..G0155V00,
// DISP=SHR,UNIT=CTAPE,
// VOL=SER=(C32236,C36628)
//SYSUT2 DD DSN=output.dataset.vts.G0155V00,
// DISP=(NEW,CATLG,DELETE),
// UNIT=VTSTAPE,
//* VOL=SER=VOLSER,
// SPACE=(CYL,(200,200),RLSE),
// DCB=(*.SYSUT1)
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=*

It completed with cc=0000. So I though these volumes are present. Please correct if I am wrong.

Gerry,

Listcat checks catalog entries and is throwing error saying " dataset is mentioned OLD or SHR but not found." TMS i did not checked.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Oct 08, 2009 3:16 pm    Post subject:
Reply with quote

Hi,

this is really getting ugly.

What do these volumes have to do with this thread ?

Why not list the job and output from the LISTCAT run ?

Gerry
Back to top
View user's profile Send private message
kapil dev arora

New User


Joined: 29 Dec 2008
Posts: 37
Location: india

PostPosted: Thu Oct 08, 2009 3:32 pm    Post subject:
Reply with quote

Sorry but tese are the volumes I that I need to copy to output file. These volumes are on CTAPE and I need to copy them to VTS tape.

Input file was spread across multiple volumes and is need to be copied to to ouput file(on VTS tape). A part of the input file got copied(3 out of 5 volumes) rest I need to.

I think there is smthing I dont know or not able to explain.

Thanks for your support.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Oct 08, 2009 3:42 pm    Post subject:
Reply with quote

Hi,

why have you decided to change the dataset name ?

If you are accessing the volumes via the catalog, which your original JCL showed ie. you did not hard code the volumes, I cannot see how 2 volumes can be missed.
The output from your run showed the dataset comprises of 6 volumes and not 8.

That's the importance of running a LISTCAT.

If you are having problems with the LISTCAT, just run the following
Code:
//STEP1    EXEC PGM=IEFBR14       
//DD1      DD DSN=dsname,DISP=SHR

then show the output.


Gerry
Back to top
View user's profile Send private message
Bill Dennis

Active Member


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

PostPosted: Sat Oct 10, 2009 7:59 pm    Post subject:
Reply with quote

The first file was named xxxx.G0193V00 and now you refer to xxxx.G0155V00. These are two different files. Do you intend to combine them into one output file?

If so, name the original SYSUT2 file again with DISP=(MOD,CATLG) to append the data on the first file.
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 0 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