I am answering for Brad.
The entry has no disk volume associated with it, since it was created to tape.
So there is no disk, no dates, no tape information, no MVS catalog connection;
only an entry under the gdg base.
If you go into 3.4 and display it – you have to type the whole dataset name -,
this is what I get:
Command - Enter "/" to select action Message Volume
Tracks % XT Device Dsorg Recfm Lrecl Blksz Created Referred
-------------------------------------------------------------------------------
PTP.DP.TRMS.ARCH999.X3.G0308V00
Nothing.
I tried iehprogm and got the following for an uncatlg:
UNCATLG DSNAME=PTP.DP.TRMS.ARCH999.X3.G0308V00
IEH210I YOUR REQUEST CANNOT BE SERVICED....
IT IS INVALID --OR-- IT IS NOT PROPER WITHIN YOUR PRESENT CATALOG STRUCTURE
... UNUSUAL END
And for a scratch:
SCRATCH DSNAME=PTP.DP.TRMS.ARCH999.X3.G0308V00
IEH205I INFORMATION IN CONTROL STATEMENT IS NOT SUFFICIENT
THE REQUESTED PROGRAM FUNCTION HAS NOT BEEN CALLED ... UNUSUAL END
I am sure it requires a Disk volume entry.
We tried the renaming, but get:
IEC614I RENAME FAILED - RC 008, DIAGNOSTIC INFORMATION IS (040842CD),
IKJACCNT,S10173,PTP.DP.TRMS.ARCH999.X3.H0308V00
Judith Nelson | Senior Systems Programmer
Sammons® Financial Group Member Companies
One Sammons Plaza | Sioux Falls, SD 57193
Phone: (605) 373-2321
[email protected]<mailto:[email protected]>
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Jackson, Rob
Sent: Thursday, July 5, 2018 9:59 AM
To: [email protected]
Subject: Re: [External] Re: remove bad GDG entry from GDG base
Did you try IEHPROGM?
What happens if you create a different dataset and rename it to the messed up
GDS?
First Tennessee Bank
Mainframe Technical Support
-----Original Message-----
From: IBM Mainframe Discussion List
<[email protected]<mailto:[email protected]>> On Behalf Of
Wissink, Brad
Sent: Thursday, July 05, 2018 10:51 AM
To: [email protected]<mailto:[email protected]>
Subject: Re: [External] Re: remove bad GDG entry from GDG base
[External Email]
Trying to delete the GDG entry results in;
DELETE PTP.DP.TRMS.ARCH999.X3.G0308V00 NONVSAM NOSCRATCH PURGE
IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I ** DEFAULT
SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I LASTCC=8
Trying to create the data set results in;
DEFINE NONVSAM(NAME(PTP.DP.TRMS.ARCH999.X3.G0308V00) DEVT(3390) VOL(Z1SW01))
IDC3013I DUPLICATE DATA SET NAME+
IDC0014I LASTCC=12
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEH-8
Brad Wissink| Sr. Systems Programmer
Sammons® Financial Group Member Companies
4350 Westown Pkwy | West Des Moines | IA 50266 Phone 515-267-2735 | ext. 33735
| Cell: 515-231-1511
[email protected]<mailto:[email protected]> |
www.SammonsFinancialGroup.com<http://www.SammonsFinancialGroup.com>
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Mike Schwab
Sent: Thursday, July 05, 2018 9:40 AM
To: [email protected]<mailto:[email protected]>
Subject: [External] Re: remove bad GDG entry from GDG base
Create a dummy by specific number then delete?
On Thu, Jul 5, 2018 at 9:27 AM Brad Wissink
<[email protected]<mailto:[email protected]>> wrote:
>
> We need to remove a GDG entry from a GDG base, but the catalog entry doesn't
> exist. What happened was that during the creation of the GDG
> (PTP.DP.TRMS.ARCH999.X3.G0308V00) the user catalog filled up and could not
> extend. We received IEC331I 020-000..... error message on this. We
> corrected the catalog space issue, but the PTP.DP.TRMS.ARCH999.X3 GDG base
> has the G0308V00 GDG associated with it, but there is no catalog entry for
> G0308V00. if you do a LISTCAT ALL ENTRY(PTP.DP.TRMS.ARCH999.X3) this is what
> you get.
>
> GDG BASE ------ PTP.DP.TRMS.ARCH999.X3
> IN-CAT --- TAPE.USER.CAT
> HISTORY
> DATASET-OWNER-----(NULL) CREATION--------2017.248
> RELEASE----------------2 LAST ALTER------2018.184
> ATTRIBUTES
> LIMIT-----------------999 SCRATCH NOEMPTY LIFO NOPURGE
> EXTENDED
> ASSOCIATIONS
> NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0001V00
> NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0002V00
> .......
> NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0307V00
> NONVSAM--PTP.DP.TRMS.ARCH999.X3.G0308V00
> ........
> NONVSAM ---- PTP.DP.TRMS.ARCH999.X3.G0307V00
> IN-CAT --- TAPE.USER.CAT
> HISTORY
> DATASET-OWNER-----(NULL) CREATION--------2018.172
> RELEASE----------------2 EXPIRATION------0000.000
> VOLUMES
> VOLSER------------A58863 DEVTYPE------X'78048081'
> FSEQN------------------1
> ASSOCIATIONS
> GDG------PTP.DP.TRMS.ARCH999.X3
> ATTRIBUTES
> IDC3012I ENTRY PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT FOUND+ IDC1566I **
> PTP.DP.TRMS.ARCH999.X3.G0308V00 NOT LISTED IDC0014I LASTCC=4 IDC3009I
> ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
>
> Doing a LISTCAT All ENTRY(PTP.DP.TRMS.ARCH999.X3.G0308V00) gets
>
> IDC3901I ERROR QUALIFYING PTP.DP.TRMS.ARCH999.X3.G0308V00 IDC3902I **
> DEFAULT SERVICE ROUTINE ERROR CODE 20, LOCATE ERROR CODE 8 IDC0014I
> LASTCC=4
>
> Is there anyway to delete the unwanted GDG entry from the GDG base without
> have to delete and rebuild the GDG base?
>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to [email protected]<mailto:[email protected]> with the
> message: INFO IBM-MAIN
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected]<mailto:[email protected]> with the message:
INFO IBM-MAIN
The information contained in this message is confidential, protected from
disclosure and may be legally privileged. If the reader of this message is not
the intended recipient or an employee or agent responsible for delivering this
message to the intended recipient, you are hereby notified that any disclosure,
distribution, copying, or any action taken or action omitted in reliance on it,
is strictly prohibited and may be unlawful. If you have received this
communication in error, please notify us immediately by replying to this
message and destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected]<mailto:[email protected]> with the message:
INFO IBM-MAIN FIRST TENNESSEE
Confidentiality notice:
This e-mail message, including any attachments, may contain legally privileged
and/or confidential information. If you are not the intended recipient(s), or
the employee or agent responsible for delivery of this message to the intended
recipient(s), you are hereby notified that any dissemination, distribution, or
copying of this e-mail message is strictly prohibited. If you have received
this message in error, please immediately notify the sender and delete this
e-mail message from your computer.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected]<mailto:[email protected]> with the message:
INFO IBM-MAIN
The information contained in this message is confidential, protected from
disclosure and may be legally privileged. If the reader of this message is not
the intended recipient or an employee or agent responsible for delivering this
message to the intended recipient, you are hereby notified that any disclosure,
distribution, copying, or any action taken or action omitted in reliance on it,
is strictly prohibited and may be unlawful. If you have received this
communication in error, please notify us immediately by replying to this
message and destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
