Copy a Catalog: Example 4
In 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=A
//SYSIN DD *
LISTCAT NAMES CAT(COPYUCAT)
/*
//STEP4 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEFINE ALIAS -
(NAME(MYCAT) -
RELATE(COPYUCAT) )
/*