z/OS V1R6.0 DFSMS Access Method Services for Catalogs

Merge Selected Entries (Split) from a User Catalog intoAnother User Catalog: Example 4This example shows how selected entries from an integrated catalog facility usercatalog are merged into another integrated catalog facility user catalog that isempty. This function effectively splits a catalog into two catalogs. However, theMERGECAT parameter allows the target catalog to be empty or nonempty.//MERGE76 JOB ...//STEP1 EXEC PGM=IDCAMS//DD1 DD VOL=SER=VSER01,UNIT=DISK,DISP=OLD// DD VOL=SER=VSER02,UNIT=DISK,DISP=OLD// DD VOL=SER=VSER03,UNIT=DISK,DISP=OLD//SYSPRINT DD SYSOUT=A//SYSIN DD *REPRO -INDATASET(USERCAT4) -OUTDATASET(USERCAT5) -ENTRIES(VSAMDATA.*) -MERGECAT -FILE(DD1)/*The REPRO command moves selected entries from the source catalog, USERCAT4,and merges them into the empty target catalog, USERCAT5. All the entries movedare no longer accessible in the source catalog.vvvvvINDATASET identifies the source catalog, USERCAT4.OUTDATASET identifies the target catalog, USERCAT5ENTRIES specifies a generic name, VSAMDATA.*. All the names of the entriescataloged in the source catalog that satisfy the generic name are selected to bemerged.MERGECAT specifies that entries from the source catalog are to be merged withentries of the target catalog.FILE specifies the ddname of a DD statement that describes all the volumes thatcontain VVDS entries for all the entries that are being merged.Copy a Catalog: Example 5In this example, a catalog is copied to illustrate the catalog copying procedure.//COPYCAT JOB ...//STEP1 EXEC PGM=IDCAMS//SYSPRINT DD SYSOUT=A//SYSIN DD *DEFINE USERCATALOG -(NAME(COPYUCAT) -ICFCATALOG -FOR(365) -CYLINDERS(20 10) -VOLUME(338000) )/*//STEP2 EXEC PGM=IDCAMS//SYSPRINT DD SYSOUT=A//SYSIN DD *REPRO NOMERGECAT -INDATASET(MYCAT) -OUTDATASET(COPYUCAT)EXPORT -MYCAT -DISCONNECT/*//STEP3 EXEC PGM=IDCAMS//SYSPRINT DD SYSOUT=AREPROChapter 30. REPRO 321