DB2 z/OS DB2 LUW
z/OS CICS VTAM
z/OS Info
Home
IDCAMS:
BACKUP Catalog
//EXPORT EXEC PGM=IDCAMS,REGION=0M
//SYSPRINT DD SYSOUT=*
//OUT01 DD DSN=<YOUR.DSN>,
// DCB=(<YOUR.MODEL>),
// SPACE=(CYL,(10,10)),
// DISP=(,CATLG,UNCATLG),
// VOL=SER=WORK01,UNIT=3390,
// BLKSIZE=32760
//SYSIN DD *
EXPORT CAT.USER1.DB2 -
OUTFILE(OUT01) -
TEMPORARY
/*
DISCONNECT A CATALOG
//EXPORT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT <YOUR.USER.CAT> -
DISCONNECT
/*
Connect a Catalog
//*------------------------------------------
//* IMPORT CONNECT
//*------------------------------------------
//CONNECT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT CONNECT -
OBJECTS -
((<YOUR.USER.CAT> -
DEVICETYPE(3390) -
VOLUMES(<YOURVOL>) -
)) -
DELETE A USER CATALOG
//STEP001 EXEC PGM=IDCAMS
....
EXPORT <YOUR.USER.CAT> -
DISCONNECT
...
//*
//STEP002 EXEC PGM=IDCAMS
//FIL1 DD VOL=SER=<YOURVOL>,UNIT=SYSALLDA,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE <YOUR.USER.CAT> -
FILE(FIL1) -
USERCATALOG -
FORCE
SET MAXCC = 0
//*
DECOLLECT
//STEPA10 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DCOLLECT DD DSN=<YOUR.DSN>,
// DISP=(NEW,CATLG,DELETE),
// UNIT=WORK,
// SPACE=(CYL,(100,100))
*
//SYSIN DD *
DCOLLECT -
OUTFILE(DCOLLECT) -
NODATAINFO -
VOLUMES( * )
/* END OF DCOLLECT COMMAND
DEFINE ALIAS
//DEFALIAS EXEC PGM=IDCAMS
/* DEFINE A ALIAS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF ALIAS(REL(<YOUR.USER.CAT>) NAME(<ALIASNAME>)) -
CAT(<YOUR.MASTER.CAT> )
//
DELETE ALIAS
//DELALIAS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL (<ALIASNAME>) ALIAS CAT(<YOUR.MASTER.CAT> )
/*
RECATALOG
VSAM DSN
//STEP1 EXEC PGM=IDCAMS
/* RECATALOG A VSAM DATASET
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE NVSAM (NAME( -
<VSAM.DATASET.NAME> -
) -
DEVICETYPES(3390) -
VOLUME(<YOURVOL>) -
RECATALOG -
)
RECATALOG
N
VSAM DSN
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE NVSAM (NAME( -
<NVSAM.DATASET.NAME> -
) -
DEVICETYPES(3390) -
VOLUME(<YOURVOL>) -
RECATALOG -
)
/*
RECATALOG
PAGESPACE
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE PAGESPACE -
( NAME(<VSAM.PAGESPACE.NAME>) -
RECATALOG -
VOLUME((<YOURVOL>) -
) -
CATALOG(<YOURCAT>)
/*
DELETE VVR
//DELVVR EXEC PGM=IDCAMS
//DD1 DD DISP=SHR,UNIT=3390,VOL=SER=<YOURVOL>
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE <YOUR.VSAM.DATASET>.DATA -
FILE(DD1) -
VVR
/*
ALTER DSName
//STEP2 EXEC PGM=IDCAMS
//* RENAME DSN
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER 'SYS1.LINKLIB' NEWNAME('SYS1.LINKLIB.ALT')
ALTER 'SYS1.LINKLIB.NEU' NEWNAME('SYS1.LINKLIB')
/*
LISTCAT
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTC ALL -
LEVEL(SYS1) -
CAT(.<YOURCAT>)
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTC ALL LEVEL(SYS1) -
CAT(<YOURCAT>)
PRINT A VVDS
//PRNTVVDS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//VVDS DD DISP=SHR,
// DSN=SYS1.VVDS<YOURVOL>,
// UNIT=SYSDA,
// VOL=SER=<YOURVOL>,
// AMP=AMORG
//SYSIN DD *
PRINT INFILE(VVDS)
/*
REPRO
//REPRO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DDIN DD DISP=(OLD,DELETE),DSN=<YOUR.IDATASET>
//DDOUT DD DISP=SHR,DSN=<YOUR.IDATASET>
//SYSIN DD *
REPRO INFILE(DDIN) -
OUTFILE(DDOUT) -
REUSE
//*
VERIFY
//VERIFY2 EXEC PGM=IDCAMS,REGION=1024K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
VERIFY DATASET (<YOUR.DATASET>)
/*
DELETE/DEFINE a user catalog
//*---------------------------------------------------
//* DELETE/DEFINE CAT.USER1.<catname>
//*---------------------------------------------------
//STEP0010 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT <your.user.catalog> -
DISCONNECT
/*
//STEP0020 EXEC PGM=IDCAMS
//FIL1 DD VOL=SER=<YOURVOL>,UNIT=3390,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE <your.user.catalog> -
FILE(FIL1) -
USERCATALOG -
FORCE
SET MAXCC = 0
//*
//STEP0030 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE USERCATALOG -
(NAME(<your.user.catalog> -
CYL(5 1) -
VOL(<YOURVOL>) -
CISZ(4096) -
STRNO(30) -
BFND(5) -
BFNI(5) -
FSPC(15 15) -
RECSZ(4086 32400) -
ICFCAT)
//*----------------------------------------------------
//* IMPORT CONNECT IN MASTERCATALOG
//*----------------------------------------------------
//STEP0040 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT CONNECT -
OBJECTS -
(( -
<your.user.catalog> -
DEVICETYPE(3390) -
VOLUMES(<YOURVOL>) -
))
/*
ALLOCATE COMMON PAGE DATA SET
//ALCVSAM EXEC PGM=IDCAMS,COND=(4000,LT)
//SYSPRINT DD SYSOUT=*
//PAGECOMM DD UNIT=3390,VOL=SER=OSPAGE,DISP=OLD
//PAGEPLPA DD UNIT=3390,VOL=SER=OSPAGE,DISP=OLD
//SYSIN DD *
/* -------------------------------------------
/* ALLOCATE COMMON PAGE DATA SET
/* -------------------------------------------
DEFINE PAGESPACE( -
FILE(PAGECOMM) -
NAME(PAGE.<VOSPAGE>.COMMON) -
CYLINDERS(50) -
VOLUME(<OSPAGE>) ) -
CATALOG(CAT.MASTER.<YOURCAT>)
/* ----------------------------
/* ALLOCATE PLPA PAGE DATA SET
/* ----------------------------
DEFINE PAGESPACE( -
FILE(PAGEPLPA) -
NAME(PAGE.<VOSPAGE>.PLPA) -
CYLINDERS(150) -
VOLUME(<OSPAGE>) ) -
CATALOG(CAT.MASTER. <YOURCAT>)
DEFINE A GDG BASE
//DEFGDG EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG (<your.gdg.base> ) -
NOEMPTY SCRATCH LIMIT(005))
Alter GDG Limit
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
ALTER <your.gdg.base> LIMIT (10)
/*
ALTER THE VOLSER
//ALTER1 EXEC PGM=IDCAMS,REGION=6144K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE SYS1.ISF.SISFLOAD NOSCRATCH
DEF NVSAM (NAME(SYS1.ISF.SISFLOAD ) DEVT(0000) VOL(&SYSR2))
/*
DEFINE NVSAM
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE NVSAM (NAME(<YOUR.DSN>) -
VOLUMES(XXXXXX) -
DEVT(3390) -
)
/*
Recatalog NONVSAM DS
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DELETE TEST1.A NOSCRATCH cat('YOUR.CAT')
DEFINE NONVSAM - /* redefines TEST1.A into the BCS */
(NAME(TEST1.A) -
DEVICETYPE(3390)-
VOLUMES(XXXXXX) -
RECATALOG -
) -
cat('YOUR.CAT')
/*