Logging out a member in CCF, user gets "CCF INTERNAL ERROR". User browses the USERID.USERID.CCF.MSGS dataset for further details on the error. Error message dataset contains "SYSMAST FILE IS OUT OF SPACE".
Resolution:
//IDCAMS1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER( -
NAME(new.vsam.bkup) -
VOL(vols01 vols02) -
CONTROLINTERVALSIZE(nnnn) -
RECORDSIZE(xxxx xxxx) -
REUSE -
NUMBERED -
SHAREOPTION(4 4) -
CYLINDERS(z z) -
)
/*
//MASTER DD DSN=original.vsam,DISP=SHR
//OSJOB DD DUMMY
//BACKUP DD DSN=new.vsam.bkup,DISP=SHR
//SYSPRINT DD SYSOUT=*
//INDEX DD SYSOUT =*
//LIST DD SYSOUT=*
//SYSIN DD *
-OPT BKUPDISK,COMPRESS=FULL,BLOCKS=yyyyy
/*
//IDCAMS1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//LIBDD1 DD DISP=SHR,DSN=original.vsam
//SYSIN DD *DELETE original.vsam
//
//IDCAMS1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER( -
NAME(original.vsam) -
VOL(vols01 vols02) -
CONTROLINTERVALSIZE(nnnn) -
RECORDSIZE(xxxx xxxx) -
REUSE -
NUMBERED -
SHAREOPTION(4 4) -
CYLINDERS(z z) -
)
/*
//MASTER DD DSN=new.vsam.bkup,DISP=SHR
//OSJOB DD DUMMY
//BACKUP DD DSN=original.vsam,DISP=SHR
//SYSPRINT DD SYSOUT=*
//INDEX DD SYSOUT =*
//LIST DD SYSOUT=*
//SYSIN DD *
-OPT BKUPDISK,COMPRESS=FULL,BLOCKS=yyyyy
/*
//IDCAMS1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//LIBDD1 DD DISP=SHR,DSN=new.vsam.bkup
//SYSIN DD *
DELETE new.vsam.bkup
//