Example 1: Reorganizing the HISTORY data set

This example contains JCL for reorganizing the HISTORY data set.

In this example, a backup copy of the HISTORY data set is created in Step 1, and then the data set is reorganized in Step 2. The HISTORY data set entries are listed out before and after the reorganization to make sure that the contents of the data set are not changed logically.

DISP=OLD must be used for the HISTORY DD statement.

Subsections:

Step 1: Making a backup copy of the HISTORY data set

The following JCL example makes a backup copy of the HISTORY data set.

Figure 1. DB Historical Data Analyzer example 1: Reorganizing the HISTORY data set (Step 1)
//*********************************************
//** DEFINE BACKUP HISTORY DATA SET          **
//*********************************************
//DEFINE   EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=A
//SYSIN    DD  *
  DELETE (HIST.HISTORY.BACKUP) CLUSTER
  SET MAXCC = 0
  DEFINE CLUSTER (NAME(HIST.HISTORY.BACKUP) -
                  INDEXED KEYS(23,0) UNIQUE SHAREOPTIONS(3 3) -
                  VOL(IMSDBT) CYLINDERS(2,1) -
                  RECORDSIZE(240,240) -
                  CONTROLINTERVALSIZE(4096)) -
         DATA    (NAME(HIST.HISTORYD.BACKUP)) -
         INDEX   (NAME(HIST.HISTORYI.BACKUP))
/*
//COPY     EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD  SYSOUT=A
//INFILE   DD  DISP=OLD,DSN=HIST.HISTORY
//OUTFILE  DD  DISP=OLD,DSN=HIST.HISTORY.BACKUP
//SYSIN    DD  *
  REPRO  INFILE(INFILE)  OUTFILE(OUTFILE)
/*

Step 2: Reorganizing the HISTORY data set

The following JCL example reorganizes the HISTORY data set.

Figure 2. DB Historical Data Analyzer example 1: Reorganizing the HISTORY data set (Step 2)
//*********************************************
//** REORGANIZE HISTORY DATA SET             **
//*********************************************
//REORG    EXEC  PGM=FABGHIST,COND=(0,LT)
//STEPLIB  DD DSN=HPS.SHPSLMD0,DISP=SHR
//HISTORY  DD DSN=HIST.HISTORY,DISP=OLD
//HISTPRT  DD SYSOUT=A
//HISTMSG  DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//HISTIN   DD  *
 PROC TYPE=LIST      ** LIST CONTENTS BEFORE REORG
 ENDPROC
 PROC TYPE=REORG     ** REORGANIZE HISTORY DS
 ENDPROC
 PROC TYPE=LIST      ** LIST CONTENTS AFTER REORG
 ENDPROC
/*