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