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:
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.

The example below 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.


Information Information

Feedback


Timestamp icon Last updated: Friday, 7 February 2014


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic///dwwig/dwwig000113.html