Examples › MERGE Examples › Example 1—Merge Selected Archive Tapes

Example 1—Merge Selected Archive Tapes

Merge the CA Disk archive tapes (but not the backup tapes) as identified by names that start with DMS.ARCH. Merge only those tapes that are less than 50 percent full of unexpired data. Also, generate a tape pull list for operations that can be used to find the needed tapes prior to actually starting the merge run. Create a duplicate copy of each new tape.

First, allocate the pull-list data set if not previously done.

//jobname JOB (acct,info),etc.
//ALLOC    EXEC PGM=IEFBR14
//TAPEPULL  DD  DSN=SAMS.DISK.MERGE.TAPES,DISP=(NEW,CATLG),
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),
//         SPACE=(TRK,(1,1)),UNIT=SYSDA

To generate the tape pull list:

//TAPEMERG  EXEC MERGE
//MERGE.TAPEPULL DD DISP=OLD,DSN=SAMS.DISK.MERGE.TAPES
//MERGE.SYSIN    DD *

MERGE SIM,TDSN=DMS.ARCH/,PERCENT=50,TAPEPULL=GEN,TYPE=TAPE

Note: SIMULATE is used since generation of the pull list is the only processing required at this time.

To use the generated list of tapes and begin the actual merge: (System defaults will dynamically allocate one input drive and two output drives, one for the primary and one for the copy.)

//jobname JOB (acct,info),etc.
//         EXEC MERGE
//MERGE.TAPEPULL DD DISP=OLD,DSN=SAMS.DISK.MERGE.TAPES
//MERGE.SYSIN    DD *

MERGE TDSN=DMS.ARCH/,PERCENT=50,TAPEPULL=USE