Job APCBJRDR - Reload of Batch Online Data Cluster

Administration of the Central Component › Batch Jobs › Job APCBJRDR - Reload of Batch Online Data Cluster
Job APCBJRDR - Reload of Batch Online Data Cluster

Job APCBJRDR performs the following database maintenance functions:
It 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, which means 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 value other 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 JCL for job APCBJRDR is provided next.
//JOBCARD…
//*
//*
//*
//********************************************************************
//* SAVE WITH REPRO, DELETE/DEFINE CLUSTER, LOAD WITH REPRO          *
//********************************************************************
//* DEFINE WHICH CLUSTER YOU WANT TO GET PROCESSED                   *
//* 0=NO FILE   1=GO GET IT                                          *
//********************************************************************
// SET GETJOBF=1     JOB DATA CLUSTER            -KSDSJOB-
// SET GETEXCF=1     EXCLUSION CLUSTER           -KSDSEXC-
// SET GETALTF=1     ALERT DATA CLUSTER          -KSDSALT-
// SET GETBPMF=1     BATCH PROFILE INDEX CLUSTER -KSDSBPM-
// SET GETPROF=1     BATCH PROFILE DATA CLUSTER  -KSDSPRO-
// SET GETLMOF=1     LOAD MODULE DATA CLUSTER    -KSDSLMO-
//********************************************************************
//* FILES :      JOB FILE                                            *
//*              EXCLUSION FILE                                      *
//*              ALERT FILE                                          *
//*              BATCH PROFILE MANAGEMENT FILE                       *
//*              BATCH PROFILE FILE                                  *
//*              LOAD MODULE FILE                                    *
//*------------------------------------------------------------------*
//* Copyright (C) 2012 CA. All Rights Reserved.
//* Copyright (C) Trilog AG. 
//********************************************************************
//*
// IF (&GETJOBF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSJOB TEMPFILE
//********************************************************************
//DELJOBT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE CAMAT.PMA.REPROJOB
   SET MAXCC=0000
/*
//********************************************************************
//* JOB CLUSTER -KSDSJOB-
//********************************************************************
//KSDSJOB1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=CAMAT.PMA.KSDSJOB
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=CAMAT.PMA.REPROJOB
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSJOB2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(DEDEFJOB)
//*
//KSDSJOB3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=CAMAT.PMA.REPROJOB
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(REPROJOB)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSJOB PROCESSING
//*-------------------------------------------------------------------
// IF (&GETEXCF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSEXC TEMPFILE
//********************************************************************
//DELEXCT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE CAMAT.PMA.REPROEXC
   SET MAXCC=0000
/*
//********************************************************************
//* EXC CLUSTER -KSDSEXC-
//********************************************************************
//KSDSEXC1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=CAMAT.PMA.KSDSEXC
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=CAMAT.PMA.REPROEXC
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSEXC2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(DEDEFEXC)
//*
//KSDSEXC3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=CAMAT.PMA.REPROEXC
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(REPROEXC)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSEXC PROCESSING
//*-------------------------------------------------------------------
// IF (&GETALTF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSALT TEMPFILE
//********************************************************************
//DELALTT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE CAMAT.PMA.REPROALT
   SET MAXCC=0000
/*
//********************************************************************
//* ALT CLUSTER -KSDSALT-
//********************************************************************
//KSDSALT1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=CAMAT.PMA.KSDSALT
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=CAMAT.PMA.REPROALT
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSALT2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(DEDEFALT)
//*
//KSDSALT3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=CAMAT.PMA.REPROALT
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(REPROALT)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSALT PROCESSING
//*-------------------------------------------------------------------
// IF (&GETBPMF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSBPM TEMPFILE
//********************************************************************
//DELBPMT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE CAMAT.PMA.REPROBPM
   SET MAXCC=0000
/*
//********************************************************************
//* BPM CLUSTER -KSDSBPM-
//********************************************************************
//KSDSBPM1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=CAMAT.PMA.KSDSBPM
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=CAMAT.PMA.REPROBPM
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSBPM2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(DEDEFBPM)
//*
//KSDSBPM3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=CAMAT.PMA.REPROBPM
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(REPROBPM)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSBPM PROCESSING
//*-------------------------------------------------------------------
// IF (&GETPROF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSPRO TEMPFILE
//********************************************************************
//DELPROT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE CAMAT.PMA.REPROPRO
   SET MAXCC=0000
/*
//********************************************************************
//* PRO CLUSTER -KSDSPRO-
//********************************************************************
//KSDSPRO1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=CAMAT.PMA.KSDSPRO
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=CAMAT.PMA.REPROPRO
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSPRO2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(DEDEFPRO)
//*
//KSDSPRO3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=CAMAT.PMA.REPROPRO
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(REPROPRO)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSPRO PROCESSING
//*-------------------------------------------------------------------
// IF (&GETLMOF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSLMO TEMPFILE
//********************************************************************
//DELLMOT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE CAMAT.PMA.REPROLMO
   SET MAXCC=0000
/*
//********************************************************************
//* LMO CLUSTER -KSDSLMO-
//********************************************************************
//KSDSLMO1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=CAMAT.PMA.KSDSLMO
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=CAMAT.PMA.REPROLMO
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*
//KSDSLMO2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(DEDEFLMO)
//*
//KSDSLMO3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=CAMAT.PMA.REPROLMO
//SYSIN DD DISP=SHR,
//         DSN=CAMAT.PMA.CNTL(REPROLMO)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSLMO PROCESSING
//*-------------------------------------------------------------------