View previous topic :: View next topic |
Author |
Message |
janaki Beginner
Joined: 28 Dec 2006 Posts: 2 Topics: 1
|
Posted: Thu Oct 11, 2007 7:19 am Post subject: Reg catalogs |
|
|
Hi
I want to alter a VSAM dataset by trying to catalog it from one catalog to another. But then I am facing this error
ALTER RESPACK.IODF53.CLUSTER -
NEWNAME(VISION.IODF53.CLUSTER) CATALOG(SYS1.MCAT.RESCAT)
IDC3012I ENTRY RESPACK.IODF53.CLUSTER NOT FOUND
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
IDC0532I **ENTRY RESPACK.IODF53.CLUSTER NOT ALTERED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8
ALTER RESPACK.IODF53.DATA -
NEWNAME(VISION.IODF53.DATA) CATALOG(SYS1.MCAT.RESCAT)
IDC3012I ENTRY RESPACK.IODF53.DATA NOT FOUND
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
IDC0532I **ENTRY RESPACK.IODF53.DATA NOT ALTERED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8
Can anyone please enlighten me on this error.
Thanks in advance |
|
Back to top |
|
|
CICS Guy Intermediate
Joined: 30 Apr 2007 Posts: 292 Topics: 3
|
Posted: Thu Oct 11, 2007 8:10 am Post subject: |
|
|
You have to get it into the catalog before renaming it....
Does EXPORT/IMPORT allow renaming? |
|
Back to top |
|
|
Bill Dennis Advanced
Joined: 03 Dec 2002 Posts: 579 Topics: 1 Location: Iowa, USA
|
Posted: Thu Oct 11, 2007 8:14 am Post subject: |
|
|
Use REPRO MERGECAT of IDCAMS to move catalog entries but be sure the catalog structures (ALIAS entries, etc.) will allow the cluster to be found once it's in the new catalog. Code: | //ST1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DD1 DD DISP=OLD,UNIT=dasd,VOL=SER=iodfvol
REPRO MERGECAT -
INDATASET(CATALOG.from.name) -
OUTDATASET(CATALOG.to.name) -
ENTRIES( -
VISION.IODF53.CLUSTER -
) -
FILE(DD1) |
_________________ Regards,
Bill Dennis
Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity. |
|
Back to top |
|
|
taltyman JCL Forum Moderator
Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Thu Oct 11, 2007 2:01 pm Post subject: |
|
|
I'm confused as to what you are trying to accomplish. Looks like you a trying to rename the vsam cluster and data component entries in a catalog and those entries aren't even in that catalog. But I see this statement 'I want to alter a VSAM dataset by trying to catalog it from one catalog to another' and that is confusing to me.
Are you trying to build an IODF file for a new system/lpar? |
|
Back to top |
|
|
janaki Beginner
Joined: 28 Dec 2006 Posts: 2 Topics: 1
|
Posted: Fri Oct 12, 2007 1:09 am Post subject: |
|
|
hi
I am trying to build an IODF file for a new LPAR.I am copying the contents of the existing IODF file using IDCAMS REPRO and then trying to catalog it into a new user catalog(this doesn't seem to be working out).This new user catalog will act as the master catalog for the new LPAR. |
|
Back to top |
|
|
Bill Dennis Advanced
Joined: 03 Dec 2002 Posts: 579 Topics: 1 Location: Iowa, USA
|
Posted: Fri Oct 12, 2007 7:56 am Post subject: |
|
|
Your first example shows ALTER but now you say you're using REPRO??
1. On your current system, define an ALIAS for the new LPAR catalog of "VISION"
2. Create a new IODF named 'VISION.IODFxx.CLUSTER' and it goes to the new catalog
3. REPRO into it
4. Point your new LOADxx member to that IODF
If you can't do this, use my original suggestion to move the entry from one catalog to another. _________________ Regards,
Bill Dennis
Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity. |
|
Back to top |
|
|
nevilh Beginner
Joined: 11 Aug 2004 Posts: 115 Topics: 0
|
Posted: Fri Oct 12, 2007 7:57 am Post subject: |
|
|
Try using adrdssu to dump and restore and on the restore specify new catalog . Many sites use a HLQ of sys1 for the iodf as then you can reallocate it and then do a define cluster recatalog. |
|
Back to top |
|
|
taltyman JCL Forum Moderator
Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Fri Oct 12, 2007 8:14 am Post subject: |
|
|
Code: |
//START12 JOB (6496,TECH),'AUTOJC',CLASS=T,
// MSGCLASS=T,NOTIFY=&SYSUID,REGION=0M
//*--------------------------------------------------------------------
//* COPY PRODUCTION IODEF
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* INITALIZE IODF FILE
//*--------------------------------------------------------------------
//DEFIODF EXEC PGM=IDCAMS
//RESCUE DD DISP=OLD,VOL=SER=RESCUE,UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE SYSSTEMP.SYS1.IODFDF.CLUSTER CLUSTER PURGE
SET MAXCC = 0
SET LASTCC = 0
DEFINE CLUSTER( -
NAME(SYSSTEMP.SYS1.IODFDF.CLUSTER) -
LINEAR -
TRACKS(150) -
STORCLAS(SNONSMS) -
VOLUMES(RESCUE) -
) +
DATA (NAME (SYSSTEMP.SYS1.IODFDF))
/*
//*--------------------------------------------------------------------
//* INIT IODF
//*--------------------------------------------------------------------
//INITIODF EXEC PGM=CBDMGHCP,PARM='INITIODF SIZE=1800,ACTLOG=NO'
//HCDPROF DD *
BATCH_IODF_NAME_CHECK = NO
IODF_DATA_SPACE = NO
/*
//HCDIODFT DD DSN=SYSSTEMP.SYS1.IODFDF,DISP=OLD
//HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
//*--------------------------------------------------------------------
//* COPY IODF
//*--------------------------------------------------------------------
//COPYIODF EXEC PGM=CBDMGHCP,PARM='COPYIODF'
//HCDPROF DD *
BATCH_IODF_NAME_CHECK = NO
IODF_DATA_SPACE = NO
/*
//HCDIODFS DD DSN=SYS1.IODFDF,DISP=SHR
//HCDIODFT DD DSN=SYSSTEMP.SYS1.IODFDF,DISP=OLD
//HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)
//*--------------------------------------------------------------------
//* RENAME IODF
//*--------------------------------------------------------------------
//RENIODF EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER -
SYSSTEMP.SYS1.IODFDF.CLUSTER -
NEWNM(SYS1.IODFDF.CLUSTER) -
CAT(CATALOG.MASTER.SYSS)
ALTER -
SYSSTEMP.SYS1.IODFDF -
NEWNM(SYS1.IODFDF) -
CAT(CATALOG.MASTER.SYSS)
IF LASTCC = 0 THEN -
DEFINE PATH( -
NAME(SYSSTEMP.SYS1.IODFDF.CLUSTER) -
PENT(SYS1.IODFDF.CLUSTER) ) -
CAT(CATALOG.MASTER.SYSS)
|
This is what we use to copy our IODF to our rescue lpar.
CATALOG.MAST.SYSS is the rescue master catalog and will need to be connected to your driving systems catalog. I can provide a sample of that if you need.
RESCUE is the VOLSER
DF is the IODF identifier |
|
Back to top |
|
|
taltyman JCL Forum Moderator
Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Fri Oct 12, 2007 8:18 am Post subject: |
|
|
Oops forgot the define of the alias I used in the above JOB. Here it is. Code: |
//START7 JOB (6496,TECH),'AUTOJC',CLASS=T,
// MSGCLASS=T,NOTIFY=&SYSUID
//*--------------------------------------------------
//* DELETE SYSSTEMP ALIAS
//*--------------------------------------------------
//DEFINE EXEC PGM=IDCAMS,REGION=2048K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE SYSSTEMP ALIAS
SET LASTCC=0
SET MAXCC=0
//*--------------------------------------------------
//* DEFINE SYSSTEMP ALIAS
//*--------------------------------------------------
//DEFINE EXEC PGM=IDCAMS,REGION=2048K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE ALIAS -
(NAME(SYSSTEMP) -
RELATE(CATALOG.MASTER.SYSS)) -
CATALOG(CATALOG.MASTER.SYST)
//*--------------------------------------------------
|
CATALOG.MASTER.SYST is the master cat on the driving lpar |
|
Back to top |
|
|
|
|