DB2 z/OS DB2 LUW
z/OS CICS VTAM

DB2 z/OS Info

//*******************************************
//*           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)
/*