JCL to copy Tape to Tape, Tapes already exist

kapil dev arora · New User Joined: 29 Dec 2008 Posts: 37 Location: india

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.

gcicchet · Posted: Thu Oct 08, 2009 9:54 am

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

kapil dev arora · New User Joined: 29 Dec 2008 Posts: 37 Location: india

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.

gcicchet · Posted: Thu Oct 08, 2009 11:28 am

Hi,

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

The job you ran only retained the following volumes

kapil dev arora · New User Joined: 29 Dec 2008 Posts: 37 Location: india

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.

expat · Posted: Thu Oct 08, 2009 2:39 pm

What did you use to check, the catalog or the TMS.

gcicchet · Posted: Thu Oct 08, 2009 2:40 pm

Hi,

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

Gerry

kapil dev arora · New User Joined: 29 Dec 2008 Posts: 37 Location: india

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.

gcicchet · Posted: Thu Oct 08, 2009 3:16 pm

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

kapil dev arora · New User Joined: 29 Dec 2008 Posts: 37 Location: india

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.

gcicchet · Posted: Thu Oct 08, 2009 3:42 pm

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

Bill Dennis · Posted: Sat Oct 10, 2009 7:59 pm

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.