Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Copying many VTS files to a single output

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
Gary Carter

New User


Joined: 05 Jul 2011
Posts: 5
Location: Canada

PostPosted: Tue Dec 20, 2011 8:02 pm    Post subject: Copying many VTS files to a single output
Reply with quote

Keepers of the Knowledge,

I am in the process of creating an archive of data and as part of the process I am required to copy a large number of VTS datasets to external (removable) media.

Because of the number of datasets involved and because I will have to repeat the process for multiple applications, I was hoping to find a utility that would allow me to use high-level qualifiers and wildcards to copy the datasets to one output (that could span multiple volumes).

I planned to use ADRDSSU to copy the datasets on DASD (see below), but that doesn’t help me with the VTS datasets.

Code:
//BLDARCHV JOB (ACC-INFO,,9999999,TEST),'BUILD ARCHIVE',         
//         CLASS=S,MSGCLASS=X,NOTIFY=&SYSUID                           
//*--------------------------------------------------------------------
//* ARCHIVE DATASETS WITH DIFFERENT FILE ATTRIBUTES TO
//* ONE OUTPUT FILE.
//*--------------------------------------------------------------------
//JS010    EXEC PGM=ADRDSSU                                             
//SYSPRINT DD SYSOUT=*                                                 
//ARCHV1  DD  DSN=MYHILVL1.DFDSS.ARCHIVE,                               
//             DISP=(,CATLG),                                           
//             DCB=SORCDSCB,                                           
//             UNIT=TAPE,LABEL=(1,SL,,OUT)                             
//SYSIN    DD   *                                                       
 DUMP                                              -                   
 OUTDD(ARCHV1)                                     -                     
 OPTIMIZE(4) SHARE TOLERATE(ENQFAILURE)            -                   
 DATASET(INCLUDE(MYHILVL1.**                       -                   
                 )                                 -                   
         )                                                             
//*


I poked around on the net and I saw that the FATSCOPY utility has the ability to copy datasets using generic dataset names. FATS/FATAR is available at my installation but I don’t know if I can use it or not because when I tried to access it through the panel I got the message:

“Entry required; enter one of the Tape Management Id's listed.”

Can anyone provide some insight into the use of FATSCOPY or an alternate (and hopefully simple) way of getting all that data onto external media?

Thanks in advance.
Back to top
View user's profile Send private message

Gary Carter

New User


Joined: 05 Jul 2011
Posts: 5
Location: Canada

PostPosted: Tue Dec 20, 2011 8:17 pm    Post subject:
Reply with quote

All,

I just found the following example at http://www.lascon.co.uk/d010007.htm#7

Quote:
This simple example job could be used to convert tapes to different media. It selects ALL datasets currently catalogued on 3490 tapes and copies and stacks them to fewer 3592 tapes. The MULTIFILE=YES parameter is needed to cope with tapes that contain more than one file. The moved files will be recatalogued to the new tapes by default, and the old tapes will be returned to scratch. Watch out for uncatalogued tape files, they could be accidentally deleted by this method.


Code:

//CONVERT EXEC PGM=FATSCOPY,REGION=0M
//SYSPRINT DD SYSOUT=*
//SELRPT DD SYSOUT=*
//COPYRPT DD SYSOUT=*
//TAPESUMM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPEOUT DD DSN=OUTPUT,UNIT=3592,DISP=(,KEEP)
//SYSIN DD *
COPY TMSINPUT=SCRATCH,MULTIFILE=YES
SELECT CATDSN=**,DEVTYPE=3490


I need to ensure that the input datasets are not scratched. Would TMSINPUT=KEEP retain the input?
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Incorrect output when trying to add n... monica1 PL/I & Assembler 10 Fri Jan 13, 2017 5:02 pm
No new posts High CPU consumption Job using IAM fi... aswinir JCL & VSAM 15 Thu Dec 01, 2016 8:28 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Two Selects in a single select query Rohit Umarjikar DB2 1 Fri Nov 04, 2016 8:46 pm
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us