Weekly, I run this job against all my catalogs: //STEP010 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * EXAMINE NAME(CATALOG.SBPBC.USERCAT) INDEXTEST DATATEST /*
Since I started this about a year or so ago, I have not had one problem with any catalog. Thanks, George Rodriguez Specialist, Systems Programmer Network & Technical Services (561) 357-7652 (office) (561) 707-3496 (mobil) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL. 33406-5869 Rated "A" by the Florida Department of Education 2005, 2006, 2007 & 2008 -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Richard Peurifoy Sent: Friday, May 15, 2009 10:55 AM To: IBM-MAIN@bama.ua.edu Subject: Re: USERCAT Error (Out of Space) Richard Peurifoy wrote: > George Rodriguez wrote: >> From all the responses that I've gotten, it seems a product is "highly" >> recommended. To answer some of the questions asked or implied ... No I >> have not exceed the alias limit ... in fact there will only be 15 alias' >> defined after all is said and done. The original catalog was defined >> only with a primary space or 230 tracks (no secondary allocation). I do >> have a window already scheduled for 7:00 am Sunday morning. >> >> Yes, after all is said and done, I will run an examine to make sure >> everything is ok... > > I don't have a "product", so I do this with IDCAMS. I have never > had a problem. > > You should check Managing catalogs > > http://publibz.boulder.ibm.com/epubs/pdf/dgt2c160.pdf. > > If you want to re-org the catalog do something like this > (note this is from memory, you should verify this): > > > //CATREORG JOB > //* > //REORG EXEC PGM=IDCAMS > //* > //OUT DD DSN=unload.name, > // UNIT=SYSDA, > // SPACE=( > // DISP=(NEW,CATLG) > //SYSPRINT DD SYSOUT=* > //SYSIN DD * > > ALTER CATALOG.catname LOCK > /* */ > IF MAXCC = 0 THEN + > EXPORT catname - > OUTFILE(OUT) - > TEMPORARY > /* */ > IF MAXCC = 0 THEN + > IMPORT INFILE(OUT) - > OUTDATASET(catname) - > ALIAS - > CATALOG(mstcat) > /* */ > IF MAXCC = 0 THEN + > ALTER CATALOG.catname UNLOCK > > > If you want to make the catalog bigger, you need to delete > reallocate it in the middle ot this. > > 1. ALTER catdsname LOCK > 2. EXPORT catdsname OUTFILE(EXPDD) TEMPORARY > 3. DELETE catdsname RECOVERY USERCATALOG > 4. DEFINE USERCATALOG (many parameters) > 5. IMPORT INDATASET(backupdsn) OUTDATASET(catdsname) ALIAS UNLOCK > INTOEMPTY > > > > > WARNING PRIVLEDGED TASK CAN BYPASS LOCK > You may want to review IBM info APAR II13354 on moving catalogs. > I forgot to mention that you should use diagnose and examine on the old catalog before you start to make sure there are no existing problems. -- Richard ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ----------------------------------------- Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html