Still stuck. To rehash, here is the situation:
1) Orphaned DATA component entry exists in an active USERCAT
2) Cluster entry for the orphaned DATA component doesn't exist
3) Volume pointed to by the orphaned DATA component doesn't exist, so the DATA
component does not physically exist
4) USERCAT containing the DATA component entry exists and is in active use
Below is what I see for the data set within ISMF. Delete command issued from
ISMF doesn't work because this is a DATA component rather than a CLUSTER entry
(delete attempt from ISMF returns message: VSAM component name invalid for
DELETE - only
cluster name is valid).
DELETE VVR wouldn't seem to work in this case, because there is no VVDS
available, since the volume pointed to by the catalog entry doesn't actually
exist.
I have RACF READ access to STGADMIN.IGG.DLVVRNVR.NOCAT
- Ken
DATA SET LIST
Command ===>
Scroll ===> CSR
Entries 1-5 of 5
Enter Line Operators below: Data Columns 3-5
of 42
LINE ALLOC ALLOC
% NOT
OPERATOR DATA SET NAME SPACE USED
USED
---(1)---- ------------(2)------------ ---(3)--- ---(4)---
-(5)-
MY.VSAM.CANDBD.
VOLUME NOT AVAILABLE
ALTCTRLX.I0001.A001
---------- ------ -----------
BOTTOM OF DATA -----------
------ ----
> Date: Fri, 29 Jun 2012 13:08:32 -0500
> From: [email protected]
> Subject: Re: Unable to Delete Orphaned VSAM Data Components
> To: [email protected]
>
> I've ignored this thread up until now, but I'll throw in my 2 cents:
>
> 1) Use ISMF if you can. Go to the data set menu, generate a list from the
> vtoc (use the specific dsn if you want), then type DELETE next to
> the dsn. I haven't used a batch job for DELETE VVR in a long time.
>
> 2) If the catalog no longer exits, use the name of the master catalog.
>
>
> Here is the JCL I have used with some comments in it.
>
> //*
> //* DELETE AN UNCATALOGED VSAM COMPONENT
> //*
> //* IF THE CATALOG NO LONGER EXISTS, SPECIFY THE MCAT NAME OR
> //* CREATE A NEW TEST CATALOG WITH THE SAME NAME (THEN DELETE
> //* IT WHEN FINISHED). YOU MAY ALSO NEED RACF AUTHORITY TO
> //* STGADMIN.IGG.DLVVRNVR.NOCAT
> //*
> //*
> //JS010 EXEC PGM=IDCAMS
> //SYSPRINT DD SYSOUT=*
> //DD1 DD VOL=SER=PAGEA0,UNIT=SYSDA,DISP=OLD
> //SYSUDUMP DD SYSOUT=*
> //SYSIN DD *
> DELETE -
> SYS1.PAGEA0.COMMON.DATA -
> FILE(DD1) VVR
> /* CATALOG(CATALOG.MASTER.ASYS) */
> /*
>
>
> --
> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
> mailto:[email protected]
> Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
> Systems Programming expert at http://expertanswercenter.techtarget.com/
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
