I put this here because I was not sure where else to put it. We have an issue with VSAM. We are running on VSE/ESA. We have some files that are not defined as big enough. The code we are using is as follows:
* DELETE PROD.CYCLE1.RECORDS
// EXEC IDCAMS,SIZE=AUTO
DELETE PROD.CYCLE1.RECORDS -
CLUSTER PRG -
CAT(VSAM.USER.WORKPR USR100)
/*
/. DEF
* DEFINE PROD.CYCLE1.RECORDS
// EXEC IDCAMS,SIZE=AUTO
DEFINE CLUSTER ( -
NAME(PROD.CYCLE1.RECORDS ) -
NIXD -
FILE(PROD.0001) -
FOR(0) -
RECSZ(900 900) -
SPEED -
SHR(2) -
CYL(2650 50) -
NOREUSE -
VOLUMES(WORK01 WORK02 WORK03) ) -
DATA ( -
NAME(PROD.CYCLE1.RECORDS.@DATA) -
CISZ (6144) ) -
CAT(VSAM.USER.WORKPR USR100)
We have 2 issues. The first is it will not let us define CYL (cylindars at more than 2650 even though according to the LISRCAT report we have enough space.
The second issue is we define 3 volumes. When we do it writes to the first 2 volumes but crashes when iut tries to write to the 3rd volume even though there is enough space.
Any assistance wwould be appreciated.
Cretin
* DELETE PROD.CYCLE1.RECORDS
// EXEC IDCAMS,SIZE=AUTO
DELETE PROD.CYCLE1.RECORDS -
CLUSTER PRG -
CAT(VSAM.USER.WORKPR USR100)
/*
/. DEF
* DEFINE PROD.CYCLE1.RECORDS
// EXEC IDCAMS,SIZE=AUTO
DEFINE CLUSTER ( -
NAME(PROD.CYCLE1.RECORDS ) -
NIXD -
FILE(PROD.0001) -
FOR(0) -
RECSZ(900 900) -
SPEED -
SHR(2) -
CYL(2650 50) -
NOREUSE -
VOLUMES(WORK01 WORK02 WORK03) ) -
DATA ( -
NAME(PROD.CYCLE1.RECORDS.@DATA) -
CISZ (6144) ) -
CAT(VSAM.USER.WORKPR USR100)
We have 2 issues. The first is it will not let us define CYL (cylindars at more than 2650 even though according to the LISRCAT report we have enough space.
The second issue is we define 3 volumes. When we do it writes to the first 2 volumes but crashes when iut tries to write to the 3rd volume even though there is enough space.
Any assistance wwould be appreciated.
Cretin