MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Reg catalogs

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
janaki
Beginner


Joined: 28 Dec 2006
Posts: 2
Topics: 1

PostPosted: Thu Oct 11, 2007 7:19 am    Post subject: Reg catalogs Reply with quote

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
View user's profile Send private message
CICS Guy
Intermediate


Joined: 30 Apr 2007
Posts: 292
Topics: 3

PostPosted: Thu Oct 11, 2007 8:10 am    Post subject: Reply with quote

You have to get it into the catalog before renaming it....
Does EXPORT/IMPORT allow renaming?
Back to top
View user's profile Send private message
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA

PostPosted: Thu Oct 11, 2007 8:14 am    Post subject: Reply with quote

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
View user's profile Send private message
taltyman
JCL Forum Moderator
JCL Forum Moderator


Joined: 02 Dec 2002
Posts: 310
Topics: 8
Location: Texas

PostPosted: Thu Oct 11, 2007 2:01 pm    Post subject: Reply with quote

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
View user's profile Send private message
janaki
Beginner


Joined: 28 Dec 2006
Posts: 2
Topics: 1

PostPosted: Fri Oct 12, 2007 1:09 am    Post subject: Reply with quote

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
View user's profile Send private message
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA

PostPosted: Fri Oct 12, 2007 7:56 am    Post subject: Reply with quote

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
View user's profile Send private message
nevilh
Beginner


Joined: 11 Aug 2004
Posts: 115
Topics: 0

PostPosted: Fri Oct 12, 2007 7:57 am    Post subject: Reply with quote

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
View user's profile Send private message
taltyman
JCL Forum Moderator
JCL Forum Moderator


Joined: 02 Dec 2002
Posts: 310
Topics: 8
Location: Texas

PostPosted: Fri Oct 12, 2007 8:14 am    Post subject: Reply with quote

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
View user's profile Send private message
taltyman
JCL Forum Moderator
JCL Forum Moderator


Joined: 02 Dec 2002
Posts: 310
Topics: 8
Location: Texas

PostPosted: Fri Oct 12, 2007 8:18 am    Post subject: Reply with quote

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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group