Delete is fine.
MVS 3.8 uses CVOL and VSAM catalogs.
You may not have the needed catalog defined.
UNIQUE is required to get space outside a dataspace.
On Thu, Mar 21, 2024 at 3:24?PM rcigola via groups.io
<rcigola@...> wrote:
Hi guys, I am trying to allocate a VSAM file, this is the jcl :
//HERC02CP JOB (IDCAMS),'PERFORM IDCAMS ',CLASS=A,NOTIFY=&SYSUID,
// REGION=8000K,TIME=1440,MSGCLASS=X,MSGLEVEL=(1,1)
//
//* CREATE VSAM DATASET
//*
//
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
DELETE HERC02.VSAM.EXAMPLE1
SET MAXCC = 0
DEFINE CLUSTER -
(NAME(HERC02.VSAM.EXAMPLE1) INDEXED -
VOLUMES(VSAM01) -
RECORDSIZE(80 80) -
KEYS(10 0) -
TRACKS(50 15) -
FREESPACE(5 5) -
CISZ(4096) -
REUSE -
) -
DATA (NAME (HERC02.VSAM.EXAMPLE1.DATA)) -
INDEX (NAME (HERC02.VSAM.EXAMPLE1.INDEX))
/*
but I get this error when I try to allocate a VSAM :
IDCAMS SYSTEM SERVICES TIME: 15:45:21
DELETE HERC02.VSAM.EXAMPLE1
IDC3012I ENTRY HERC02.VSAM.EXAMPLE1 NOT FOUND
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6
IDC0551I **ENTRY HERC02.VSAM.EXAMPLE1 NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8
SET MAXCC = 0
DEFINE CLUSTER -
(NAME(HERC02.VSAM.EXAMPLE1) INDEXED -
VOLUMES(VSAM01) -
RECORDSIZE(80 80) -
KEYS(10 0) -
TRACKS(50 15) -
FREESPACE(5 5) -
CISZ(4096) -
REUSE -
) -
DATA (NAME (HERC02.VSAM.EXAMPLE1.DATA)) -
INDEX (NAME (HERC02.VSAM.EXAMPLE1.INDEX))
IDC3033I VOLUME RECORD NOT FOUND IN CATALOG
IDC3009I ** VSAM CATALOG RETURN CODE IS 248 - REASON CODE IS IGG0CLBX-0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
the VSAM01 is a 3380-E disk created with :
dasdinit -a vsam01.382 3380-E VSAM01 then I initialized with this job :
//HERC02CP JOB (ICKDSF),'PERFORM ICKDSF13',CLASS=A,NOTIFY=&SYSUID,
// REGION=8000K,TIME=1440,MSGCLASS=X,MSGLEVEL=(1,1)
//*
//* INITIALIZE A DEVICE OTHER THAN 3340 OR 3350 DASD VOLUME
//*
//ICKDSF EXEC PGM=ICKDSF13,REGION=6096K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INIT UNITADDRESS(382) NOVERIFY VOLID(VSAM01) OWNER(HERCULES) -
VTOC(0,1,80)
/*
//
and I see the volume on 3.4 and I allocated a PD dataset without effort.
does anyone have any clue why I am getting this error ?
Thanks
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
