|
|
| Author |
Message |
eashwar
New User
Joined: 21 May 2005
Posts: 26
Location: Bangalore
|
|
|
|
| can any body plz explain the procedurre how to copy files from Tape to disk? before telling that tell me what are the cobl stmts required to read a tape and a dasd .........with examples if possible |
|
| Back to top |
|
 |
References
|
|
 |
kkumarv
New User
Joined: 13 May 2005
Posts: 21
Location: Bangalore/India
|
|
|
|
First use TMS utilty to find out the vol ser of the tape file. Such as give the tape file name in tms, it would show you details about that tape file like vol ser ,lrec etc.
Then use IDCAMS utilty to copy from tape to dasd, as tape file are big file so you can use count, skip option to specify the range ,as require by you.
example shown below copy from tape to a dasd gdg.
| Code: |
//WIPVK1 JOB ('3000-000000-07-Z-00000000000'),
// 'SHIMER BOX 71 ',MSGCLASS=H,CLASS=7,NOTIFY=WIPVK
//*JOBPARM S=SYSA
//*ROUTE PRINT U204
//STEP0 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//MAIN1 DD DSN=TRD.DMK.FEIN.DUNS.G0025V00,
// UNIT=CTAPE,VOL=SER=328889
//MAIN2 DD DSN=WIPVK.DUNUS2.UNMATCH(+1),
// DISP=(,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(500,500),RLSE),DATACLAS=COMPRESS,
// DCB=(LRECL=338,BLKSIZE=32448,RECFM=FB)
//SYSIN DD *
REPRO -
INFILE(MAIN1) -
OUTFILE(MAIN2) -
SKIP(00) -
COUNT(20)
/* |
cheers!!!
Kumar |
|
| Back to top |
|
|
vidyasaraswathi
Active User
Joined: 10 May 2005
Posts: 74
|
|
|
|
Hi,
You can copy a tape file to DASD by using SORT utility also.
For example,
//PS010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=tapefile,DISP=SHR
//SORTOUT DD DSN=diskfile,
// DISP=(NEW,CATLG,DELETE),
// UNIT=WORK,SPACE=(TRK,(5000,1000),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
/*
This will copy data from tapefile to diskfile.
Thanks and Regards,
Vidya Bhat |
|
| Back to top |
|
|
|
|
|
