Contents
- Displaying the contents of a catalog
- Defining an user catalog with an alias
- Defining a master catalog
- Creating a catalog backup
- Defining a VVDS (VSAM volume data set)
- Defining an alias
- Deleting an alias
- Deleting an user catalog
- Deleting an user catalog with RECOVERY
- Deleting an user catalog with FORCE
Displaying the contents of a catalog [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT ALL CAT(cat.name)
/*Defining an user catalog with an alias [▲ Top]
And of course connecting to the master catalog.
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE UCAT( -
NAME(ucat.name) -
VOLUME(volser) -
CYL(5,1) -
ICFCATALOG -
ECSHARING -
)
/*
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE ALIAS( -
NAME(aliasname) -
RELATE(ucat.name) -
)
/*
//STEP3 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT CONNECT -
OBJECTS(( -
ucat.name -
DEVICETYPE(3390) -
VOLUMES(volser) -
)) -
CATALOG(mcat.name)
/*Defining a mster catalog [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE MCAT ( -
ICFCATALOG -
NAME(mcat.name) -
VOL(volser) -
CYL(10 1) -
FREESPACE(10 10) -
SHR(3 4) -
STRNO(3) -
) -
DATA ( -
CISZ(4096) -
BUFND(4) -
) -
INDEX( -
BUFNI(4) -
)
/*Creating a catalog backup [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//BACKUP DD DISP=(,CATLG),DSN=backup.cat.name,
// SPACE=(CYL,(20,5),RLSE)
//SYSIN DD *
EXPORT cat.name -
OUTFILE(BACKUP) -
TEMPORARY
/*Defining a VVDS (VSAM volume data set) [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER( -
NAME(SYS1.VVDS.Vvolser) -
TRACKS(10 10) -
VOLUMES(volser) -
NONINDEXED -
)
/*Defining an alias [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE ALIAS( -
NAME(aliasname) -
RELATE(ucat.name) -
)
/*using system symbols with SYMBOLICRELATE
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE ALIAS( -
NAME(aliasname) -
SYMBOLICRELATE(ucat.&symbol..name) -
)
/*Deleting an alias [▲ Top]
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE aliasname -
ALIAS -
CATALOG(mcat.name)
/*Deleting an user catalog [▲ Top]
The user catalog must be empty.
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT ucat.name -
DISCONNECT
/*
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ucat.name UCAT
/*Deleting an user catalog with RECOVERY [▲ Top]
Deletes a user catalog even if it is not empty.
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT ucat.name -
DISCONNECT
/*
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ucat.name UCAT -
RECOVERY
/*Deleting an user catalog with FORCE [▲ Top]
//*
//* ***************************************************************** *
//* *
//* Attention! *
//* The FORCE option will also delete the alias to the catalog and *
//* all datasets which are cataloged in this user catalog *
//* *
//* ***************************************************************** *
//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT ucat.name -
DISCONNECT
/*
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ucat.name UCAT -
FORCE
/*
