On Wed, Dec 23, 2015 at 11:09 AM, Mainframe Mainframe <
[email protected]> wrote:
> Hello ,
> Hope you are doing good. we have system in sysplex and
> for different version z/OS system in sysplex we have different master
> catalog.
> Now i created IODF from one z/OS system and its catalog under this system
> master catalog. But to access this same IODF from different system, I want
> to catalog this IODF on other system master catalog as well.
>
> So, I am using below JCL
>
>
> //RECAT JOB (654),'MAINFRAME',CLASS=A,
> // MSGCLASS=A,NOTIFY=&SYSUID
> //S1 EXEC PGM=IDCAMS
> //SYSPRINT DD SYSOUT=*
> //SYSIN DD *
> DEFINE CLUSTER(NAME(SYS1.IODF05.WORK1.CLUSTER) -
> VOLUME(PTF001) -
> RECATALOG -
> ) CAT(ZOS13.MASTER.CATALOG)
> /*
>
The problem is that the above uses the IDCAMS default VSAM type of
"INDEXED". That is, you're saying it is a KSDS data set. Which it is not.
It is a LINEAR data set. Which means that you need the LINEAR keyword.
//RECAT JOB (654),'MAINFRAME',CLASS=A,
// MSGCLASS=A,NOTIFY=&SYSUID
//S1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PTF001 DD DISP=OLD,UNIT=SYSALLDA,VOL=SER=PTF001
//SYSIN DD *
DEFINE CLUSTER(NAME(SYS1.IODF05.WORK1.CLUSTER) -
VOLUME(PTF001) -
LINEAR FILE(PTF001) -
RECATALOG -
) CAT(ZOS13.MASTER.CATALOG)/*
Note the addition of the LINEAR keyword and the FILE(PTF001) on the
inserted line. I'm not totally sure that the FILE(PTF001) and DD are
required, but that's how I do it and it works for me.
>
> and output is as below
>
> IDCAMS SYSTEM SERVICES TIME:
> 09:31:59
>
> DEFINE CLUSTER(NAME(SYS1.IODF05.WORK1.CLUSTER) -
> VOLUME(PTF001) -
> RECATALOG -
> ) CAT(ZOS13.MASTER.CATALOG)
> IDC3014I CATALOG ERROR
> IDC3009I ** VSAM CATALOG RETURN CODE IS 86 - REASON CODE IS IGG0CLEY-6
> IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
>
> IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12
>
>
> I checked for this IDC3009I code in manual, but not much information I
> could find to solve this .
>
> Any suggestion will help me .
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Computer Science is the only discipline in which we view adding a new wing
to a building as being maintenance -- Jim Horning
Schrodinger's backup: The condition of any backup is unknown until a
restore is attempted.
Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be.
He's about as useful as a wax frying pan.
10 to the 12th power microphones = 1 Megaphone
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
