Administration of the IMS Feature › Batch Jobs › Maintaining the Database - APCIJRDR

Maintaining the Database - APCIJRDR

Job APCIJRDR 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.That is, the reload for this cluster should be processed. 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 job JCL for APCIJRDR 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 GETIMSF=1     IMS DATA CLUSTER           -KSDSIMS-
// SET GETIPPF=1     IMS PROFILE CLUSTER        -RRDSIPP-// SET GETIMOF=1     IMS CHANGED MODULE 
CLUSTER -KSDSIMO-
//********************************************************************
//* FILES :      IMS DATA FILE                                       *
//*              IMS PROFILELIST FILE                                *
//*              IMS CHANGED ONLINE MODULES FILE                     *
//*------------------------------------------------------------------*
//* Copyright (C) 2011 CA. All Rights Reserved.
//* Copyright (C) Trilog AG. 
//********************************************************************
//*
// IF (&GETIMSF EQ 1) THEN
//*

//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSIMS TEMPFILE
//********************************************************************
//DELIMST  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE prefix.PMA.REPROIMS
   SET MAXCC=0000
/*
//********************************************************************
//* IMS CLUSTER -KSDSIMS-
//********************************************************************
//KSDSIMS1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=prefix.KSDSIMS
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=prefix.PMA.REPROIMS
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*-------
//KSDSIMS2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=prefix.CNTL(DEDEFIMS)
//*-------

//KSDSIMS3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=prefix.PMA.REPROIMS
//SYSIN DD DISP=SHR,
//         DSN=prefix.CNTL(REPROIMS)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSIMS PROCESSING

// IF (&GETIPPF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING RRDSIPP TEMPFILES

//DELIPPT  EXEC PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   SET MAXCC=0000
/*
//********************************************************************
//* IMS CLUSTER -RRDSIPP-
//********************************************************************
//KSDSIPP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD     DD DISP=SHR,
//            DSN=prefix.RRDSIPP
//OUTDD    DD DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,10)),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            UNIT=SYSDA,
//            DSN=prefix.PMA.REPROIPP
//SYSIN    DD *
  REPRO INFILE(INDD) OUTFILE(OUTDD)
/*
//*-------
//KSDSIPP2 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN DD DISP=SHR,
//         DSN=prefix.CNTL(DEDEFIPP)
//*-------
//KSDSIPP3 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DISP=OLD,
//             DSN=prefix.PMA.REPROIPP
//SYSIN DD DISP=SHR,
//         DSN=prefix.CNTL(REPROIPP)
//*
// ENDIF
//*
//*-------------------------------------------------------------------
//* END OF KSDSIPP PROCESSING
//*-------------------------------------------------------------------
// IF (&GETIMOF EQ 1) THEN
//*
//********************************************************************
//* DELETE POSSIBLY EXISTING KSDSIMO TEMPFILES
//********************************************************************

//SYSPRINT  DD  SYSOUT=T
//SYSOUT    DD  SYSOUT=T
//SYSTSPRT  DD  SYSOUT=T
//SYSIN     DD  *
   DELETE prefix.PMA.REPROIMO

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