Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Tape To Disk

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
eashwar

New User


Joined: 21 May 2005
Posts: 26
Location: Bangalore

PostPosted: Tue May 24, 2005 1:54 am    Post subject: Tape To Disk
Reply with quote

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
View user's profile Send private message

kkumarv

New User


Joined: 13 May 2005
Posts: 20
Location: Bangalore/India

PostPosted: Tue May 24, 2005 10:42 am    Post subject: Re: Tape To Disk
Reply with quote

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
View user's profile Send private message
vidyasaraswathi

New User


Joined: 10 May 2005
Posts: 72

PostPosted: Wed Jun 01, 2005 10:35 am    Post subject: Re: Tape To Disk
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts JES2 job size field matching Windows ... SRICOBSAS All Other Mainframe Topics 4 Tue Sep 05, 2017 5:49 pm
No new posts Length of Tape file Mohan Kothakota JCL & VSAM 9 Thu Apr 20, 2017 10:24 pm
No new posts TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts stacking files on a tape Pedro JCL & VSAM 7 Wed Aug 17, 2016 11:11 pm
No new posts Reading selected volumes of a multi-v... RickBig JCL & VSAM 6 Wed Jul 13, 2016 7:26 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us