If your RCDS is full

In this situation, you have received the DWW1605I DWWCONx is full informational message and you want to increase the size of your RCDSs before all the RCDSs become full.

The following two jobs show how you can:
  • Create temporary VSAM data sets with more space than the original data sets.
  • Use the AMS REPRO command to copy the old VSAM data sets to the temporary data sets.
  • Check the results of the REPRO.
  • Delete the original VSAM data sets.
  • Rename the temporary VSAM data sets to the original names.
The AMS commands to create new temporary data sets and how to copy the information in the old VSAM data sets to the temporary data sets:
Figure 1. Increasing the size of the RCDS (steps 1 and 2)

//DEFCLUS1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE CLUSTER               -
      (NAME(DWW.DWWTEMP1)      -
       VOLUMES(TSOL01)         -
       CYLINDERS(100 30)       -
       LINEAR                  -
       SHR(3 3))

    DEFINE CLUSTER                               -
       (NAME('DWW.DWWTEMP2')                     -
        VOLUMES(TSO007)                          -
        CYLINDERS(100 30)                        -
        LINEAR                                   -
        SHR(3 3))

    DEFINE CLUSTER                               -
       (NAME('DWW.DWWTEMP3')                     -
        VOLUMES(TSOL02)                          -
        CYLINDERS(75 30)                         -
        LINEAR                                   -
        SHR(3 3))

   REPRO                                         -
     INDATASET('DWW.DWWCON1')                    -
     OUTDATASET('DWW.DWWTEMP1')

   REPRO                                         -
     INDATASET('DWW.DWWCON2')                    -
     OUTDATASET('DWW.DWWTEMP2')

   REPRO                                         -
     INDATASET('DWW.DWWCON3')                    -
     OUTDATASET('DWW.DWWTEMP3')
 /*

Verify that all the AMS REPRO steps are successful before proceeding.

This example shows the AMS commands to delete the original data sets and rename the new data sets.
Figure 2. Increasing the size of the RCDS (steps 4 and 5)

//DEFCLUS2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE 'DWW.DWWCON1'
  DELETE 'DWW.DWWCON2'
  DELETE 'DWW.DWWCON3'

    ALTER                                         -
     'DWW.DWWTEMP1'                              -
     NEWNAME('DWW.DWWCON1')

   ALTER                                         -
     'DWW.DWWTEMP1.DATA'                         -
     NEWNAME('DWW.DWWCON1.DATA')

   ALTER                                         -
     'DWW.DWWTEMP2'                              -
     NEWNAME('DWW.DWWCON2')

   ALTER                                         -
     'DWW.DWWTEMP2.DATA'                         -
     NEWNAME('DWW.DWWCON2.DATA')

   ALTER                                         -
     'DWW.DWWTEMP3'                              -
     NEWNAME('DWW.DWWCON3')

   ALTER                                         -
     'DWW.DWWTEMP3.DATA'                         -
     NEWNAME('DWW.DWWCON3.DATA')
 /*

You must rename the cluster and the data components of the data sets.