Maintaining the Database

Administration of the CICS Feature › Batch Jobs › Maintaining the Database - APCCJRDR

Maintaining the Database - APCCJRDR

Job APCCJRDR performs the following database maintenance functions:

Saves data through IDCAMS REPRO, deletes and defines the VSAM clusters and reloads the saved data through IDCAMS REPRO.
For each VSAM cluster a JCL &-variable is used and is set to 1.
That is, that the reload for this cluster is to process. If the reload should not be processed for a cluster, the variable must be set to 0 (or any other value than 1).
The saved sequential data sets are not deleted. But if the reload job runs again, the previously saved data sets are deleted, if they still exist.

The job JCL for APCCJRDR is shown following.

...JOBCARD //* //* //* //******************************************************************** //* SAVE WITH REPRO, DELETE/DEFINE CLUSTER, LOAD WITH REPRO * //******************************************************************** //* DEFINE WHICH CLUSTER YOU WANT TO GET MANAGED * //* 0=NO FILE 1=GO GET IT * //******************************************************************** // SET GETCICF=1 CICS DATA CLUSTER -KSDSCIC- // SET GETCPPF=1 CICS PROFILE CLUSTER -RRDSCPP- // SET GETCMOF=1 CICS CHANGED MODULE CLUSTER -KSDSCMO- // SET GETDICF=1 CICS SMF DICTIONARY CLUSTER -KSDSDIC- // SET GETCSTF=1 CICS SMF DATA CLUSTER -KSDSCST- //******************************************************************** //* FILES : CICS DATA FILE * //* CICS PROFILELIST FILE * //* CICS CHANGED ONLINE MODULES FILE * //* CICS SMF DICTIONARY FILE * //* CICS SMF DATA FILE * //*------------------------------------------------------------------* //* Copyright (C) 2011 CA. All Rights Reserved. //* Copyright (C) Trilog AG. //******************************************************************** //* // IF (&GETCICF EQ 1) THEN //* //******************************************************************** //* DELETE POSSIBLY EXISTING KSDSCIC TEMPFILE //******************************************************************** //DELCICT EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=T //SYSOUT DD SYSOUT=T //SYSTSPRT DD SYSOUT=T //SYSIN DD * DELETE prefix.PMA.REPROCIC SET MAXCC=0000 /*

//********************************************************************
//* CICS CLUSTER -KSDSCIC-
//********************************************************************
//KSDSCIC1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=prefix.PMA.KSDSCIC
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=prefix.PMA.REPROCIC
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSCIC2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(DEDEFCIC)
//*
//KSDSCIC3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=prefix.PMA.REPROCIC
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(REPROCIC)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSCIC PROCESSING
//*-------------------------------------------------------------------
// IF (&GETCPPF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING RRDSCPP TEMPFILE
//********************************************************************
//DELCPPT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE prefix.PMA.REPROCPP
   SET MAXCC=0000
/*

//********************************************************************
//* CPP CLUSTER -RRDSCPP-
//********************************************************************
//KSDSCPP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=prefix.PMA.RRDSCPP
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=prefix.PMA.REPROCPP
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSCPP2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(DEDEFCPP)
//*
//KSDSCIC3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=prefix.PMA.REPROCPP
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(REPROCPP)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSCPP PROCESSING
//*-------------------------------------------------------------------
// IF (&GETCMOF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSCMO TEMPFILE
//********************************************************************
//DELCMOT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE prefix.PMA.REPROCMO
   SET MAXCC=0000
/*

//********************************************************************
//* CMO CLUSTER -KSDSCMO-
//********************************************************************
//KSDSCMO1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=prefix.PMA.KSDSCMO
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=prefix.PMA.REPROCMO
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSCMO2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(DEDEFCMO)
//*
//KSDSCMO3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=prefix.PMA.REPROCMO
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(REPROCMO)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSCMO PROCESSING
//*-------------------------------------------------------------------
// IF (&GETDICF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSDIC TEMPFILE
//********************************************************************
//DELCMOT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE prefix.PMA.REPRODIC
   SET MAXCC=0000
/*

//********************************************************************
//* DIC CLUSTER -KSDSDIC-
//********************************************************************
//KSDSDIC1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=prefix.PMA.KSDSDIC
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=prefix.PMA.REPRODIC
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSDIC2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(DEDEFDIC)
//*
//KSDSDIC3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=prefix.PMA.REPRODIC
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(REPRODIC)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSDIC PROCESSING
//*-------------------------------------------------------------------
// IF (&GETCSTF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSCST TEMPFILE
//********************************************************************
//DELCSTT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE prefix.PMA.REPROCST
   SET MAXCC=0000
/*
//********************************************************************

//********************************************************************
//* CST CLUSTER -KSDSCST-
//********************************************************************
//KSDSCST1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=prefix.PMA.KSDSCST
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=prefix.PMA.REPROCST
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSCST2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(DEDEFCST)
//*
//KSDSCST3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=prefix.PMA.REPROCST
//SYSIN DD DISP=SHR,
//         DSN=prefix.PMA.CNTL(REPROCST)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSCST PROCESSING
//*-------------------------------------------------------------------