This Knowledge Article describes a technique that utilizes the MADS (Multiple Area Data Sets) feature of DEDBs to move an area data set to a different DASD volume (or volumes) without having to take the area offline.  This may be useful if an area data set needs to be extended due to data volume, but there is insufficient free space available on the current (or last if multiple) DASD volume to accommodate the extension; and, the area cannot be taken offline at the present time to perform this activity.
 

Legacy ID:KA427318

Use the sample JCL and MTO commands listed below to move a Fast Path area data set to a new DASD volume without incurring an online outage.

JOB 1 OF 3:
//add jobcard, etc.
//*
//*********************************************************************
//* ADD SECONDARY ADS TO DBRC FOR SPECIFIED AREA.
//*********************************************************************
//INITADS  EXEC PGM=DSPURX00
//STEPLIB  DD DSN=???.RESLIB,DISP=SHR
//DFSRESLB DD DSN=???.RESLIB,DISP=SHR
//IMS      DD DSN=???.DBDLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=P
//SYSIN    DD *
  INIT.ADS ADDN(2ndADSdd) ADSN(2ndADS.DB.data.set.name) -
           AREA(areaname) DBD(DBDname)
/*
//*
//  IF INITADS.RC = 0 THEN
//*********************************************************************
//* DELETE/DEFINE SECONDARY AREA DATABASE DATA SET.
//*********************************************************************
//DELDEF   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE (2ndADS.DB.data.set.name) PURGE CLUSTER
  DEFINE CLUSTER (NAME(2ndADS.DB.data.set.name) -
  Additional control cards to create secondary area DB data set.
/*
//  ENDIF
//*
//  IF DELDEF.RC <= 8 THEN
//*********************************************************************
//* CREATE NEW ADS.
//*********************************************************************
//INITMADS EXEC IMSFPUTL,DBD=DBDname
//STEPLIB  DD DSN=???.RESLIB,DISP=SHR
//DFSRESLB DD DSN=???.RESLIB,DISP=SHR
//SYSIN    DD *
TYPE   CREATE
AREA   areaname
DDNAME 2ndADSdd
GO
/*
//*
//  ENDIF
//*
//  IF INITMADS.FPU.RC = 0 THEN
//*********************************************************************
//* COMPARE NEW ADS TO ORIGINAL.
//*********************************************************************
//COMPMADS EXEC IMSFPUTL,DBD=DBDname
//STEPLIB  DD DSN=???.RESLIB,DISP=SHR
//DFSRESLB DD DSN=???.RESLIB,DISP=SHR
//SYSIN    DD *
TYPE   COMPARE
AREA   areaname
DDNAME origADSdd
DDNAME 2ndADSdd
GO
/*
//  ENDIF
//

At this point, the area has two identical area DB data sets (both of which are online).

Before running job #2, issue the following MTO command to deallocate the original area DB data set from the online system:
/STO ADS origADSdd

JOB 2 OF 3:
//add jobcard, etc.
//*
//*********************************************************************
//* DELETE/DEFINE ORIGINAL ADS TO NEW VOLUME.                          
//*********************************************************************
//DELDEF   EXEC PGM=IDCAMS                                             
//SYSPRINT DD SYSOUT=*                                                 
//SYSIN    DD *
  DELETE (origADS.DB.data.set.name) PURGE CLUSTER
  DEFINE CLUSTER (NAME(origADS.DB.data.set.name) -
  Additional control cards to create original area DB data set.  Make
  sure this data sets gets allocated on the desired volume(s).
/*
//*
//  IF DELDEF.RC = 0 THEN
//*********************************************************************
//* RECREATE ORIGINAL ADS.                                                   
//*********************************************************************
//INITMADS EXEC IMSFPUTL,DBD=DBDname
//STEPLIB  DD DSN=???.RESLIB,DISP=SHR
//DFSRESLB DD DSN=???.RESLIB,DISP=SHR
//SYSIN    DD *
TYPE   CREATE
AREA   areaname
DDNAME origADSdd
GO
/*
//  ENDIF
//*
//  IF INITMADS.FPU.RC = 0 THEN
//*********************************************************************
//* COMPARE ORIGINAL ADS TO SECONDARY ADS.
//*********************************************************************
//COMPMADS EXEC IMSFPUTL,DBD=DBDname
//STEPLIB  DD DSN=???.RESLIB,DISP=SHR
//DFSRESLB DD DSN=???.RESLIB,DISP=SHR
//SYSIN    DD *
TYPE   COMPARE
AREA   areaname
DDNAME 2ndADSdd
DDNAME origADSdd
GO
/*
//  ENDIF
//

At this point, the area has two identical area DB data sets also except that the original area DB data set should now be on the desired volume.

Before running job #3, issue the following MTO command to deallocate the secondary area DB data set from the online system:
/STO ADS 2ndADSdd                                                      

JOB 3 OF 3 (Cleanup):
//add jobcard, etc.
//*
//*********************************************************************
//* DELETE THE SECONDARY ADS FROM DBRC.
//*********************************************************************
//DLETADS  EXEC PGM=DSPURX00
//STEPLIB  DD DSN=???.RESLIB,DISP=SHR
//DFSRESLB DD DSN=???.RESLIB,DISP=SHR
//IMS      DD DSN=???.DBDLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=P
//SYSIN    DD *
  DELETE.ADS ADDN(2ndADSdd) AREA(areaname) DBD(DBDname)
/*
//*
//  IF DLETADS.RC = 0 THEN
//*********************************************************************
//* DELETE SECONDARY AREA DATABASE DATA SET.
//*********************************************************************
//DELETE   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE (2ndADS.DB.data.set.name) PURGE CLUSTER
//  ENDIF
 

1. Fast Path Online Reorg/EP