[H390-MVS] Creating IPCS dump directory in YK4- update 8

[[e-mail] [H390-MVS]]

I need some help creating an IPCS dump directory in current TK4-. I used the JCL and IDCAMS statements from Jim Morrison's Getting Started with IPCS post form 2001 but all my former life VSAM experience is after the Integrated Catalog Facility was added to MVS.

My job is:
//DUMPDIR JOB HERC01,USER=HERC01,PASSWORD=CUL8TR,CLASS=A,
// MSGLEVEL=(1,1),MSGCLASS=X
//IDCAMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE HERC01.DUMPDIR CLUSTER
SET MAXCC = 0
DEFINE CLUSTER( NAME(HERC01.DUMPDIR) UNIQUE +
SHAREOPTIONS(1) +
VOLUME(MVSRES) FILE(IPCSVOL) ) +
INDEX( NAME(HERC01.DUMPDIR.INDEX) TRACKS(1 1) ) +
DATA( NAME(HERC01.DUMPDIR.DATA) CYLINDERS(1 1) +
RECORDSIZE(256 3072) +
KEYS(128 0) +
BUFFERSPACE(X'10000') )



and my job output is:
IDCAMS SYSTEM SERVICES TIME:

DELETE HERC01.DUMPDIR CLUSTER
IDC3012I ENTRY HERC01.DUMPDIR NOT FOUND
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6
IDC0551I **ENTRY HERC01.DUMPDIR NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

SET MAXCC = 0

DEFINE CLUSTER( NAME(HERC01.DUMPDIR) UNIQUE +
SHAREOPTIONS(1) +
VOLUME(MVSRES) FILE(IPCSVOL) ) +
INDEX( NAME(HERC01.DUMPDIR.INDEX) TRACKS(1 1) ) +
DATA( NAME(HERC01.DUMPDIR.DATA) CYLINDERS(1 1) +
RECORDSIZE(256 3072) +
KEYS(128 0) +
BUFFERSPACE(X'10000') )
IDC3014I CATALOG ERROR
IDC3009I ** VSAM CATALOG RETURN CODE IS 240 - REASON CODE IS IGG0CLBX-4
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12



I cannot find any newer JCL in searching the Hercules tuenkey-mvs, H390-MVS, or hercules-390 forums or anything helpful in google searches on the IDC3009I message for return code 240.


I am assuming I missed something simple but can't figure what that would be.


Jim

[[e-mail] [H390-MVS]]

Hello Jim,

I think the problem comes from the FILE(IPCSVOL) parameter for which there is no DD statement (that is the meaning of IDC3009I-240). You should check the VSAM doc, but I think either 1) you remove the FILE parameter and the cluster will be stored on MVSRES, or 2) you remove the VOLUME parameter and the cluster will be stored on the DASD specified by a DD statement of the kind:


//IPCSVOL DD UNIT=(devtype),VOL=SER=(volser)


Hope this helps,


Rene FERLAND, Montreal







---In H390-***@yahoogroups.com, <***@...> wrote :

I need some help creating an IPCS dump directory in current TK4-. I used the JCL and IDCAMS statements from Jim Morrison's Getting Started with IPCS post form 2001 but all my former life VSAM experience is after the Integrated Catalog Facility was added to MVS.

My job is:
//DUMPDIR JOB HERC01,USER=HERC01,PASSWORD=CUL8TR,CLASS=A,
// MSGLEVEL=(1,1),MSGCLASS=X
//IDCAMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE HERC01.DUMPDIR CLUSTER
SET MAXCC = 0
DEFINE CLUSTER( NAME(HERC01.DUMPDIR) UNIQUE +
SHAREOPTIONS(1) +
VOLUME(MVSRES) FILE(IPCSVOL) ) +
INDEX( NAME(HERC01.DUMPDIR.INDEX) TRACKS(1 1) ) +
DATA( NAME(HERC01.DUMPDIR.DATA) CYLINDERS(1 1) +
RECORDSIZE(256 3072) +
KEYS(128 0) +
BUFFERSPACE(X'10000') )



and my job output is:
IDCAMS SYSTEM SERVICES TIME:

DELETE HERC01.DUMPDIR CLUSTER
IDC3012I ENTRY HERC01.DUMPDIR NOT FOUND
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6
IDC0551I **ENTRY HERC01.DUMPDIR NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

SET MAXCC = 0

DEFINE CLUSTER( NAME(HERC01.DUMPDIR) UNIQUE +
SHAREOPTIONS(1) +
VOLUME(MVSRES) FILE(IPCSVOL) ) +
INDEX( NAME(HERC01.DUMPDIR.INDEX) TRACKS(1 1) ) +
DATA( NAME(HERC01.DUMPDIR.DATA) CYLINDERS(1 1) +
RECORDSIZE(256 3072) +
KEYS(128 0) +
BUFFERSPACE(X'10000') )
IDC3014I CATALOG ERROR
IDC3009I ** VSAM CATALOG RETURN CODE IS 240 - REASON CODE IS IGG0CLBX-4
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12



I cannot find any newer JCL in searching the Hercules tuenkey-mvs, H390-MVS, or hercules-390 forums or anything helpful in google searches on the IDC3009I message for return code 240.


I am assuming I missed something simple but can't figure what that would be.


Jim

[pricgren [e-mail] [H390-MVS]]

Post by ***@yahoo.com [H390-MVS]
I think the problem comes from the FILE(IPCSVOL) parameter

As Rene says, not much point referring to a non-existent DD statement.

But also, don't forget that this is not your grandson's MVS...

Beware VSAM volume ownership!
Do you have any VSAM on MVSRES?
Perhaps it is the master catalog itself?
If yes, then the master catalog "owns" MVSRES, and no VSAM cataloged in
other catalogs is allowed there.

Presumably HERC01 is an alias of a user catalog, so anywhere that HERC01
VSAM lands will have to be a volume that already is or will become owned
by that user catalog.

Sysprogs don't like their system residence volumes owned by user
catalogs, so even if there is no VSAM on your MVSRES, I would suggest
that you locate HERC01 VSAM elsewhere.

Of course, if you're a dab hand at zapping the format-4 to clear catalog
timestamps etc. (ie. you know how to clean it all up should you have a
requirement to do so) then go ahead - after all, it's your system.
:)

Cheers,
Greg