DB2
z/OS DB2 LUW
z/OS
CICS VTAM
|
DB2 z/OS Info
|
Home |
//*******************************************
//*
DSNUTILB (REPAIR LEVEL)
//*******************************************
//UTIL0003 EXEC PGM=DSNUTILB,
// PARM=(DSN1,'REP.LEVELID')
//STEPLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
REPAIR LEVELID TABLESPACE <DB>.<TS>
/*
//UTIL0003 EXEC PGM=DSNUTILB,COND=(5,LT),
// PARM=(DSN1,'REPDBD.CPTSCPY')
//STEPLIB DD DISP=SHR, DSN=<YOUR.LOADLIB>
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
REPAIR DBD REBUILD DATABASE <DB>
/*
//UTIL0003 EXEC PGM=DSNUTILB,COND=(5,LT),
// PARM=(DSN1,'REP.DUMP')
//STEPLIB DD DISP=SHR, DSN=<YOUR.LOADLIB>
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
REPAIR OBJECT
LOCATE TABLESPACE <DBNAME>.<TSNAME>
PAGE X'01'
DUMP OFFSET 0 LENGTH 4096
/*
//********************************************
//* REPAIR
//********************************************
//JOBLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//UTIL EXEC DB2TUTIL,SYSTEM=DSN1,UID='REPAIR',UTPROC=''
//*
//**********************************************
//*
//*
//* REPAIR SET INDEX <Creator>.<IXNAME> NORCVRPEND
//SYSIN DD *
REPAIR SET TABLESPACE <DB>.<TS> NOCOPYPEND
/*
//********************************************
//* STOSPACE
//********************************************
//JOBLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//UTIL EXEC DB2TUTIL,SYSTEM=DSN1,UID='REPAIR',UTPROC=''
//SYSIN DD *
STOSPACE STOGROUP(*)
ImageCopy
//JOBLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//RBETUTIL EXEC PGM=DSNUTILB,REGION=0M,
//
PARM=(DSN1,'IC1.COPY1','')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
-- OPTIONS PREVIEW
--
LISTDEF COPYLIST
INCLUDE
TABLESPACE <DB1>%.<TS1>%
INCLUDE
TABLESPACE <DB1>%.<TS2>%
INCLUDE
TABLESPACE <DB2>%.<TS1>%
INCLUDE
TABLESPACE <DB2>%.<TS2>%
--
TEMPLATE COPYDSN
DSN
('DSN1.IC1.&DB..&TS.(+1)')
DISP (NEW,CATLG,CATLG)
MODELDCB
DB2.MODEL.PTYPGDG
EXPDT '99000'
VOLCNT 255
UNIT TAPE
STACK YES
GDGLIMIT (100)
--
COPY LIST COPYLIST
SHRLEVEL CHANGE
PARALLEL
TAPEUNITS(3)
FULL YES
COPYDDN ( COPYDSN )
/*
//***********************************************
//*
DSNUTILB (IMAGE COPY OHNE LISTDEF
//***********************************************
//DB2COPY1 EXEC PGM=DSNUTILB,COND=(5,LT),
// PARM=(DSN1,'IC.ICOPY')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//ICOPY001 DD DSN=DSN1.IC1.DB1.TS1(+1),
//
DISP=(NEW,CATLG),
//
DCB=<YOUR.MODEL>
//
UNIT=SYSDA,SPACE=(CYL,(800,800))
//SYSIN DD *
COPY TABLESPACE IC1.DB1.TS1
SHRLEVEL REFERENCE
FULL YES COPYDDN (
ICOPY001 )
/*
REORG
//***************************************************
//*
DSNUTILB (REORG/COPY/....)
//***************************************************
//UTIL0002 EXEC PGM=DSNUTILB,COND=(5,LT),
// PARM=(DSN1,'OROIP.REORGIX')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSREC DD
DSN=DSN1.REORG.DS140614.SYSREC,
//
DCB=DB2.MODEL.PTYPGDG,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=WORK,
//
SPACE=(CYL,(800,800))
//SYSUT1 DD
DSN=DSN1.REORG.DS140614.SYSUT1,
//
DCB=DB2.MODEL.PTYPGDG,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=WORK,
//
SPACE=(CYL,(800,800))
//SORTOUT DD
DSN=DSN1.REORG.DS140614.SORTOUT,
//
DCB=DB2.MODEL.PTYPGDG,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=WORK,
//
SPACE=(CYL,(800,800))
//SORTWK01 DD DISP=(NEW,DELETE),
//
UNIT=WORK,SPACE=(CYL,(400,400))
//SORTWK02 DD DISP=(NEW,DELETE),
//
UNIT=WORK,SPACE=(CYL,(400,400))
//SORTWK03 DD DISP=(NEW,DELETE),
//
UNIT=WORK,SPACE=(CYL,(400,400))
//SORTWK04 DD DISP=(NEW,DELETE),
//
UNIT=WORK,SPACE=(CYL,(400,400))
//DATAWK01 DD DISP=(NEW,DELETE),
//
UNIT=WORK,SPACE=(CYL,(400,400))
//DATAWK02 DD DISP=(NEW,DELETE),
//
UNIT=WORK,SPACE=(CYL,(400,400))
//DATAWK03 DD DISP=(NEW,DELETE),
//
UNIT=WORK,SPACE=(CYL,(400,400))
//
UNIT=WORK,SPACE=(CYL,(400,400))
//DATAWK04 DD DISP=(NEW,DELETE),
//
UNIT=WORK,SPACE=(CYL,(400,400))
//SYSIN DD *
REORG INDEX <DBNAME>.<TSNAME>
UNLOAD CONTINUE
SORTDEVT WORK
SORTNUM 04
STATISTICS REPORT YES
UPDATE ALL
SHRLEVEL CHANGE
DELAY 1200
MAXRO 300
/*
Runstats
//JOBLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//RBETUTIL EXEC PGM=DSNUTILB,REGION=0M,
//
PARM=(DSN1,'IC1.COPY1','')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE <YOURDB1>.<YOURTS1>
TABLE
ALL
INDEX
(ALL)
SHRLEVEL
CHANGE
UPDATE ALL
RUNSTATS
TABLESPACE <YOURDB1>.<YOURTS1>
TABLE
ALL
INDEX
(ALL)
SHRLEVEL
CHANGE
UPDATE ALL
/*
RUNSTATS :
//JOBLIB DD DISP=SHR,DSN=<YOUR LOADLIB>
//* RUNSTATS TABLESPACE MIT LISTDEF
//STEP030 EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DSN1,'RUNSTATS.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
LISTDEF RSLIST
INCLUDE
TABLESPACE DB%.TS%
--
RUNSTATS TABLESPACE LIST RSLIST
TABLE ALL
INDEX (ALL)
SHRLEVEL CHANGE
UPDATE(ALL)
/*
REORG :
//JOBLIB DD DISP=SHR,DSN=<YOUR LOADLIB>
//* REORG TABLESPACE MIT LISTDEF
//STEP030 EXEC PGM=DSNUTILB,
// REGION=8M,
//
PARM=(DSN1,'REORG.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSLISTD DD *
LISTDEF ROLIST
INCLUDE
TABLESPACE DB%.TS%
-- INCLUDE TABLESPACES
PARTLEVEL TABLESPACE DB%.TS%
//SYSTEMPL DD *
TEMPLATE UNLDSN
DSN('DSN1.SYSREC.&DB..&TS..P&PA.')
TEMPLATE SYSCOPY DSN('DSN1.IC1.&DB..&TS.')
//SYSIN DD *
REORG TABLESPACE LIST ROLIST
SORTDATA SORTKEYS
LOG NO
SORTDEVT WORK
COPYDDN(SYSCOPY)
UNLDDN(UNLDSN)
/*
RECOVER :
//JOBLIB DD DISP=SHR,DSN=<YOUR JOBLIB>
//STEP030 EXEC PGM=DSNUTILB,REGION=8M,
//
PARM=(DSN1,'RECOVER.TS1')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
RECOVER TABLESPACE <YOURDB>.<YOURTS>
TOCOPY <YOUR.IC.DSN>
-- TOLASTCOPY
-- TOLASTFULLCOPY
-- TOLOGPOINT X'<YOUR LOGPOINT>'
-- LOCALSITE CURRENTCOPYONLY
-- RESTOREBEFORE X'<YOUR LOGPOINT>'
REBUILD INDEX(ALL) TABLESPACE <YOURDB>.<YOURTS>
/*
REORG SYSTEM DB MIT DEL/DEF Cluster
//************************************************
//* JOB WAS BUILD WITH REXX DB2CATRO
//* TS = SYSVIEWS
//* BEISPIEL REORG SYSTEM TABLESPACE
//* MIT VERGROESERN ODER VERKLEINERN DER CLUSTER
//* 1.) IMAGE COPY
//* 2.) REORG MIT UNLOAD PAUSE
//* 3.) STOP TS UND IX
//* 4.) DEL/DEF CLUSTER
//* 5.) REORG MIT RESTART(PHASE)
//* 6.) START TS UND IX ACCESS(RW)
//* 7.) IMAGE COPY
//* 8.) DEL WORK DATASETS
//************************************************
//JOBLIB DD DISP=SHR,DSN=<YOUR>.SDSNLOAD
//*
//STEP010 EXEC PGM=DSNUTILB,REGION=100M,
// PARM=(DSN1,'UTR.SYSVIEWS')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD *
TEMPLATE COPY1
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
//SYSIN DD *
COPY TABLESPACE DSNDB06.SYSVIEWS
COPYDDN (COPY1)
//*
//STEP020 EXEC PGM=DSNUTILB,
// REGION=100M,COND=(4,LT,STEP010),
// PARM=(DSN1,'UTR.SYSVIEWS')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SYSUT1,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//SYSREC DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SYSREC,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK01 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTWK01,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK02 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTWK02,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK03 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTWK03,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK04 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTWK04,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//DATAWK01 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.DATAWK01,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//DATAWK02 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.DATAWK02,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//DATAWK03 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.DATAWK03,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//DATAWK04 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.DATAWK04,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTOUT DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTOUT,
//
DISP=(NEW,CATLG,CATLG),
//
UNIT=SYSDA,SPACE=(CYL,(100,100))
//SYSIN DD *
REORG TABLESPACE DSNDB06.SYSVIEWS
UNLOAD PAUSE
SORTDATA LOG NO
//*
//STEP030 EXEC PGM=IKJEFT01,
// REGION=100M,COND=(5,LT,STEP020)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-STOP DATABASE(DSNDB06)
SPACENAM(SYSVIEWS)
-STOP DATABASE(DSNDB06)
SPACENAM(DSNGGX02)
-STOP DATABASE(DSNDB06)
SPACENAM(DSNGGX03)
-STOP DATABASE(DSNDB06)
SPACENAM(DSNGGX04)
-STOP DATABASE(DSNDB06)
SPACENAM(DSNVVX01)
-STOP DATABASE(DSNDB06)
SPACENAM(DSNVTH01)
END
//*
//STEP040 EXEC PGM=IDCAMS,COND=(4,LT,STEP030)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE DSN1CAT.DSNDBC.DSNDB06.SYSVIEWS.I0001.A001 PURGE CLUSTER
DEFINE CLUSTER -
(NAME -
(DSN1CAT.DSNDBC.DSNDB06.SYSVIEWS.I0001.A001) -
LINEAR -
REUSE -
SHAREOPTIONS(3 3) -
CONTROLINTERVALSIZE(8192) -
VOLUMES(* * * *) -
CYLINDER (100 100) -
)
-
DATA -
(NAME -
(DSN1CAT.DSNDBD.DSNDB06.SYSVIEWS.I0001.A001) -
)
DELETE DSN1CAT.DSNDBC.DSNDB06.DSNGGX02.I0001.A001 PURGE CLUSTER
DEFINE CLUSTER -
(NAME -
(DSN1CAT.DSNDBC.DSNDB06.DSNGGX02.I0001.A001) -
LINEAR -
REUSE -
SHAREOPTIONS(3 3) -
CONTROLINTERVALSIZE(4096) -
VOLUMES(* * * *) -
CYLINDER (20 20) -
)
-
DATA -
(NAME -
(DSN1CAT.DSNDBD.DSNDB06.DSNGGX02.I0001.A001) -
)
DELETE DSN1CAT.DSNDBC.DSNDB06.DSNGGX03.I0001.A001 PURGE CLUSTER
DEFINE CLUSTER -
(NAME -
(DSN1CAT.DSNDBC.DSNDB06.DSNGGX03.I0001.A001) -
LINEAR -
REUSE -
SHAREOPTIONS(3 3) -
CONTROLINTERVALSIZE(4096) -
VOLUMES(* * * *) -
CYLINDER (20 20)
-
)
-
DATA -
(NAME -
(DSN1CAT.DSNDBD.DSNDB06.DSNGGX03.I0001.A001) -
)
DELETE DSN1CAT.DSNDBC.DSNDB06.DSNGGX04.I0001.A001 PURGE CLUSTER
DEFINE CLUSTER -
(NAME -
(DSN1CAT.DSNDBC.DSNDB06.DSNGGX04.I0001.A001) -
LINEAR -
REUSE -
SHAREOPTIONS(3 3) -
CONTROLINTERVALSIZE(4096) -
VOLUMES(* * * *) -
CYLINDER (20 20)
-
)
-
DATA -
(NAME -
(DSN1CAT.DSNDBD.DSNDB06.DSNGGX04.I0001.A001) -
)
DELETE DSN1CAT.DSNDBC.DSNDB06.DSNVVX01.I0001.A001 PURGE CLUSTER
DEFINE CLUSTER -
(NAME -
(DSN1CAT.DSNDBC.DSNDB06.DSNVVX01.I0001.A001) -
LINEAR -
REUSE -
SHAREOPTIONS(3 3) -
CONTROLINTERVALSIZE(4096) -
VOLUMES(* * * *) -
CYLINDER (20 20)
-
)
-
DATA -
(NAME -
(DSN1CAT.DSNDBD.DSNDB06.DSNVVX01.I0001.A001) -
)
DELETE DSN1CAT.DSNDBC.DSNDB06.DSNVTH01.I0001.A001 PURGE CLUSTER
DEFINE CLUSTER -
(NAME -
(DSN1CAT.DSNDBC.DSNDB06.DSNVTH01.I0001.A001) -
LINEAR -
REUSE -
SHAREOPTIONS(3 3) -
CONTROLINTERVALSIZE(4096) -
VOLUMES(* * * *) -
CYLINDER (20 20)
-
)
-
DATA -
(NAME -
(DSN1CAT.DSNDBD.DSNDB06.DSNVTH01.I0001.A001) -
)
//*
//STEP050 EXEC PGM=IKJEFT01,
// REGION=100M,COND=(4,LT,STEP040)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-START DATABASE(DSNDB06)
SPACENAM(SYSVIEWS) ACCESS(UT)
-START DATABASE(DSNDB06)
SPACENAM(DSNGGX02) ACCESS(UT)
-START DATABASE(DSNDB06)
SPACENAM(DSNGGX03) ACCESS(UT)
-START DATABASE(DSNDB06)
SPACENAM(DSNGGX04) ACCESS(UT)
-START DATABASE(DSNDB06)
SPACENAM(DSNVVX01) ACCESS(UT)
-START DATABASE(DSNDB06)
SPACENAM(DSNVTH01) ACCESS(UT)
END
//*
//STEP060 EXEC PGM=DSNUTILB,
// REGION=100M,COND=(4,LT,STEP050),
//
PARM=(DSN1,'UTR.SYSVIEWS','RESTART(PHASE)')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SYSUT1,
//
DISP=SHR
//SYSREC DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SYSREC,
//
DISP=SHR
//SORTWK01 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTWK01,
//
DISP=SHR
//SORTWK02 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTWK02,
//
DISP=SHR
//SORTWK03 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTWK03,
//
DISP=SHR
//SORTWK04 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTWK04,
//
DISP=SHR
//DATAWK01 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.DATAWK01,
//
DISP=SHR
//DATAWK02 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.DATAWK02,
//
DISP=SHR
//DATAWK03 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.DATAWK03,
//
DISP=SHR
//DATAWK04 DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.DATAWK04,
//
DISP=SHR
//SORTOUT DD DSN=DSN1.REORG.DSNDB06.SYSVIEWS.SORTOUT,
//
DISP=SHR
//SYSIN DD *
REORG TABLESPACE DSNDB06.SYSVIEWS
UNLOAD PAUSE
SORTDATA LOG NO
//*
//STEP070 EXEC PGM=IKJEFT01,
// REGION=100M,COND=(4,LT,STEP060)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN1)
-START DATABASE(DSNDB06)
SPACENAM(SYSVIEWS) ACCESS(RW)
-START DATABASE(DSNDB06)
SPACENAM(DSNGGX02) ACCESS(RW)
-START DATABASE(DSNDB06)
SPACENAM(DSNGGX03) ACCESS(RW)
-START DATABASE(DSNDB06)
SPACENAM(DSNGGX04) ACCESS(RW)
-START DATABASE(DSNDB06)
SPACENAM(DSNVVX01) ACCESS(RW)
-START DATABASE(DSNDB06)
SPACENAM(DSNVTH01) ACCESS(RW)
END
//STEP080 EXEC PGM=DSNUTILB,
//
REGION=100M,COND=(4,LT,STEP060),
//
PARM=(DSN1,'UTC.SYSVIEWS')
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD *
TEMPLATE COPY1
DSN('DSN1.IC1.&DB..&TS..D&DT..T&TI.')
//SYSIN DD *
COPY TABLESPACE DSNDB06.SYSVIEWS
COPYDDN (COPY1)
//*
//*
//*--------------------------------------------
//* CLEANUP WORK DATASETS
//*--------------------------------------------
//CLEANUP EXEC PGM=IDCAMS,COND=(5,LT,STEP080)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE (DSN1.REORG.DSNDB06.SYSVIEWS.*) SCR
SET MAXCC = 0
//*--------------------------------------------
//* END OF JOB REORG SYSVIEWS
//*--------------------------------------------
CATMAINT
//JOBLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//STEP1 EXEC PGM=DSNUTILB,PARM=(DSN1,'CATMAIN.CATMAIN'),REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
CATMAINT
/*
CATMAINT NEUE FUNKTIONEN (COOL)
DB2 muss mit ACCESS(MAINT) gestartet werden
//JOBLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//STEP1 EXEC PGM=DSNUTILB,PARM=(DSN1,'CATMAINT.OWNER'),REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
CATMAINT
UPDATE OWNER FROM ( owner_name )
TO ROLE
/*
//JOBLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//STEP1 EXEC PGM=DSNUTILB,PARM=(DSN1,'CATMAINT.SHEMA'),REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
CATMAINT UPDATE
SCHEMA
SWITCH(schema_name_1,new_schema_name_1n)
SCHEMA
SWITCH(schema_name_2,new_schema_name_2n)
/*
//JOBLIB DD DISP=SHR,DSN=<YOUR.LOADLIB>
//STEP1 EXEC PGM=DSNUTILB,PARM=(DSN1,'CATMAINT.VCAT'),REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
CATMAINT UPDATE VCAT SWITCH(vcat_name,new_vcat_name)
/*