I would simply change the ENTRIES line to say LEVEL, and then run this.
Once you copy the entries, then you need to quickly define the alias.
Here's a sample job I've run to move aliases that mistakenly made it
into the master catalog:
//MERGC1 EXEC PGM=IDCAMS,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INDATASET(CATALOG.MASTER.VCDCCP8) -
OUTDATASET(CATALOG.USERCAT1) -
LEVEL(CN00) -
MERGECAT
//*******************************************************
//IDCAMS EXEC PGM=IDCAMS,REGION=4M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF ALIAS(NAME(CN00) REL(CATALOG.USERCAT1))
C. Todd Burrell
Lead z/OS Systems Programmer
ITSO
(404) 723-2017 (Cell)
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of John Kington
Sent: Wednesday, February 27, 2008 8:43 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: CATALOG QUESTION - CORRECT AN ALIAS PROBLEM
Ernie,
> Good Morning Gentle Readers,
>
> I am working on a problem regarding a TSO alias which was not
> created but for some unexplicable reason I find about 15 dsns have
> been cataloged in the MCAT. My question is how can I fix this problem
> - have the dsns created in the proper UCAT. I looked at the option of
> using REPRO MERGECAT in the IDCAMS doc. Is that the correct decision?
> My plan is to define the alias in the proper UCAT and then execute the
> following jcl.
>
> //STEP1 EXEC PGM=IDCAMS,REGION=2048K,TIME=1440
> //SYSPRINT DD SYSOUT=*
> //SYSIN DD *
> REPRO -
> INDATASET(SYS1.SHR.MCAT) -
> OUTDATASET(MBC.CSTMCAT) -
> ENTRIES(CTPRX23) -
> MERGECAT
> /*
>
> Will this do the job? Am I missing something? I would appreciate
> any suggestions or comments.
>
> Thanks in advance.
>
I would remove the alias, rename the 15 datasets to a different hlq,
redefine the alias and then rename the 15 datasets back to the original
name. Mergecat would be overkill for what you need to do.
If you can not remove the alias, I would recatalog them if you know
where they are and try a delete noscratch using the master catalog in
the
catalog() parameter.
Regards,
John
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
