MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Utility for copying the tape datset to DASD datset

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
Vishwakiran
Beginner


Joined: 29 Jun 2004
Posts: 11
Topics: 8
Location: Bangalore

PostPosted: Sat Dec 30, 2006 2:44 pm    Post subject: Utility for copying the tape datset to DASD datset Reply with quote

Hi,

I want to use a utility(using REXX or CLIST) to copy the tape dataset to DASD dataset. The utility needs to be getting the record length and record format from the tape and automatically assign it to dasd dataset.
This would prevent us from running a JOB for each time when we need to retrieve the tape datset.

Is this possible through CLIST. If possible could you please let me know how to achieve this ?
_________________
Regards,
Vishwakiran
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Sat Dec 30, 2006 7:51 pm    Post subject: Reply with quote

Vishwakiran,

Sort/File-aid can easily copy the tape dataset to a dasd and the DCB parameters are automatically copied from the input to output.

ex:

Code:

//STEP0100 EXEC PGM=SORT               
//SYSOUT   DD SYSOUT=*                 
//SORTIN   DD DSN=your tape dataset,   
//            DISP=SHR                 
//SORTOUT  DD DSN=your dasd dataset,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,               
//            SPACE=(CYL,(X,Y),RLSE)
//SYSIN    DD *                       
  SORT FIELDS=COPY
/*


Code:

//STEP0100 EXEC PGM=FILEAID               
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*               
//DD01     DD DSN=your tape dataset,   
//            DISP=SHR                 
//DD01O    DD DSN=your dasd dataset,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,               
//            SPACE=(CYL,(X,Y),RLSE)
//SYSIN    DD *
$$DD01 COPY
/*



Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group