need a jcl to copy records form tape to ps

rohit jaiswal · Posted: Thu Mar 16, 2006 12:55 pm

hi

1) can any one send me the jcl to copy a tape dataset to ps i need it urgently.

2)can anyone say how to see prpperties of a tape dataset.i gave an 'S' bfore it but didnt get any info.

kousalya26 · New User Joined: 06 Jul 2005 Posts: 21 Location: chennai

Hi,

1) To copy records from tape to DASD, you can use
a) execute the sort utility with SYSIN card as SORT FIELDS=COPY to copy the whole file to DASD or appropriate INCLUDE/OMIT COND if you want to copy selected records.
b) see this also :- ibmmainframes.com/viewtopic.php?t=6451&highlight=

2) To see the information of tape datasets, we use TI before the dataset name. Iam not sure if its dependent on the shop but you can try that.

sorry if it doesnt work out !

Thanks & Regards,
kousalya

rohit jaiswal · Posted: Thu Mar 16, 2006 2:54 pm

thanks Kousalya for the help
if possible can u send me the jcl to copy it

thanooz · New User Joined: 28 Jun 2005 Posts: 99

hi rohiat,

//jobname JOB
// CLASS=B,MSGCLASS=H,REGION=33M,NOTIFY=userid
//REPRO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INFIL DD DSN=tapedataset, DISP=SHR
//OUTFIL DD DSN=outputdata set,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=1400,BLKSIZE=0,RECFM=FB),
// UNIT=(SYSDA,5),
// SPACE=(CYL,(20,20),RLSE)
//SYSIN DD *
REPRO -
INFILE(INFIL) -
OUTFILE(OUTFIL)
/*
//SYSOUT DD SYSOUT=*
//SYUDUMP DD SYSOUT=*
//SYSIN DD DUMMY
//

I think it will help's u

thak's
thanooz.

rohit jaiswal · Posted: Thu Mar 16, 2006 4:00 pm

thanks for the help thanooz.
but can u help me for the following

// DCB=(LRECL=1400,BLKSIZE=0,RECFM=FB),

in my case i dont have the info abt the tape i mean its lrecl, blksize,etc in this case how to find out this data.
i used S,TI and TMS in front of the dataset but no use.i think it doesnt work in my shop.

can u pls explain me
// UNIT=(SYSDA,5) waht does it mean

thanooz · New User Joined: 28 Jun 2005 Posts: 99

hi rohit,

small change in above code,

//jobname JOB
// CLASS=B,MSGCLASS=H,REGION=33M,NOTIFY=userid
//REPRO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INFIL DD DSN=tapedataset, DISP=SHR
//OUTFIL DD DSN=outputdata set, DISP=shr
//SYSIN DD *
REPRO -
INFILE(INFIL) -
OUTFILE(OUTFIL)
/*
//SYSOUT DD SYSOUT=*
//SYUDUMP DD SYSOUT=*
//SYSIN DD DUMMY
//

thank's,
thanooz.

thanooz · New User Joined: 28 Jun 2005 Posts: 99

hi rohit

If you want to allocate the file on multiple vols [unit=(sysda,n)] .

This will help's u.

thak's
thanooz.

rohit jaiswal · Posted: Thu Mar 16, 2006 4:57 pm

can u be a bit more clear on it

thanooz · New User Joined: 28 Jun 2005 Posts: 99

hi rohit,

if you creating a new data set,if u want more space for that data set ,it is not avialable in one volueme ,u can specify no.of volumes has to take and allocate your data set.maximum u can specify that number is 20.

If you want more details u can search in this site .It is already explained.

Thank's
thanooz.

martin9 · Posted: Thu Mar 16, 2006 8:29 pm

hy rohit,

make any IEBGENER job,
where SYSUT1 is your tape dataset,
and SYSUT2 is your dasd dataset.
to get all parameter of SYSUT1, try
on DD SYSUT2 LIKE=tape.dataset.name then
you should get the measures of this.

or you look in RMM (Recoverable Media Manager)
to find out the measures of that tape dataset.

martin9

rohit jaiswal · Posted: Fri Mar 17, 2006 10:13 am

Martin can u br more clear on it i didnot get u

nitin.jain · New User Joined: 04 May 2005 Posts: 1 Location: delhi

Hi,

This can be done by IDCAMS utility. You just put the tape file as input & ps file as output in repro control statement.

martin9 · Posted: Fri Mar 17, 2006 5:50 pm

hy,

if you give parameter LIKE on a DD-card,
means you inherit the parameters like
size, space and so on from that dataset
you specified in the LIKE parameter.
therefore you are not forced to code them implicitly.

if you now use IEBGENER or IDCAMS like nitin mentioned
before, is just a question of taste. you can do this in
both ways.

RMM is the Recoverable Media Manager, which manages
the tape entries on your tape roboter. if you are now looking
for the tape file, there are also the measures of that dataset.
i.e. RECFM,LRECL,BLKSIZE ....

martin9

aru_bec · New User Joined: 23 Dec 2005 Posts: 19 Location: Bangalore

Hi Mohit,

I think it's not possible to view the properties of data set by using 'I'. U can use following code to copy the Tape dataset.

//COPY EXEC PGM=IEBGENER

//SYSUT1 DD DSN=tapedatasetname, DISP=SHR
//SYSUT2 DD DSN=newdatasetname, DISP=(NEW,KEEP,DELETE),
// DCB=*.SYSUT1, UNIT=SYSDA,VOL=(,,,10),
// SPACE=(CYL,(100,10))
//SYSPRINT DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//SYSIN DD DUMMY

Hope this helps,

Regards,
Arvind

martin9 · Posted: Fri Mar 17, 2006 7:53 pm

hy all together,

RMM is the utility to do this,
try in your tso session the commnand RMM,
if you have SMS installed with all components,
you should be able to access it.

with 3.4 datasetlist function (I) it is not possible...

but pls, if you need 10 volumes, give at the end
RLSE to free the reserved space not needed,
your space manager will be happier about.

martin9

prasanth_thavva · New User Joined: 28 Jul 2005 Posts: 86 Location: Chennai

hi martin9,

LIKE inherits the properties of specified dataset...
LIKE=X.Y.Z <--will take the properties of x.y.z
but UNIT=(SYSDA,5)<--when ever space abend like SB37 we will resolve like this..is just temporary fix...

Please drop info on RMM and how to do it step by step if it is available in our shop,,, please let me know...

Thanks and Regards,
venkata Prasanth

ranga_subham · New User Joined: 01 Jul 2005 Posts: 51

Hi,

I have a tape dataset with following details: