IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Copying many VTS files to a single output


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts Compare 2 files(F1 & F2) and writ... JCL & VSAM 8
No new posts TRIM everything from input, output co... DFSORT/ICETOOL 1
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
Search our Forums:

Back to Top