MVSFORUMS.com

[Eaglenut]

We sometimes encounter issues on our mvs system where we get uncataloged SMS vsam files. In the past, I delete these via ISMF.
Is there a way to delete these in a batch job?

Thanks,
D.

[kolusu]

Eaglenut,

You can delete the uncataloged dataset using 3.4 in ISPF but make sure that you supply the volume serial.

You can also use IEFBR14 with DISP=(MOD,DELETE) and the VOL=SER= coded.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[Eaglenut]

Yea, I tried that, and it didn't work.. I also tried using ADRDSSU with catlg eq no,
and had no luck. I was hoping there was some ISMF batch processing, other than naviquest, to delete the datasets. (I couldn't get IDCAMS to work either)

[kolusu]

Eaglenut,

Can you post the error messages ?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[Eaglenut]

These are the errors from IDCAMS and ADRDSSU. For the IDCAMS, I tried to delete one SMS uncataloged dataset from vol=ser=VOL001

For ADRDSSU, I tried to delete all uncataloged SMS datasets from vol=ser=VOL001

Just as an FYI, I was told by some senior sys pgmrs that they didn't think there was a way to delete uncataloged SMS vsam datasets in batch, only using the ISMF panels. That's why I thought I'd see if anyone else had some ideas.

IDCAMS Error:
DELETE (VSAM.DSN) PURGE SCRATCH -
FILE(DEL01)
DC3012I ENTRY VSAM.DSN NOT FOUND
DC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
DC0551I ** ENTRY VSAM.DSN NOT DELETED
DC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
ADRDSSU Error:
//SYSIN DD *
DUMP DATASET(INCLUDE(**) -
BY((CATLG,EQ,NO))) -
INDDNAME(VOL001) -
OUTDDNAME(OUT1)-
DELETE PURGE

ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP '
ADR109I (R/I)-RI01 (01), 2004.351 13:33:15 INITIAL SCAN OF USER CONTROL STATEMENTS COMPLETED.
ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
ADR006I (001)-STEND(01), 2004.351 13:33:15 EXECUTION BEGINS
ADR730W (001)-FDSDU(01), CLUSTER VSAM.DSN.TWO IS OPEN
ADR972E (001)-FDSDU(01), CLUSTER VSAM.DSN.THREE ON VOLUME VOL001 IS NOT SUPPORTED BY PHYSICAL DATASET DUMP
ADR972E (001)-FDSDU(01), CLUSTER VSAM.DSN.FOUR ON VOLUME VOL001 IS NOT SUPPORTED BY PHYSICAL DATASET DUMP
ADR402E (001)-AUTH (04), AUTHORIZATION CHECK FAILED FOR DATA SET VSAM.DSN.FIVE, ON VOLUME VOL001, 14-008-042, IN
CATALOG CAT.XXX
ADR402E (001)-AUTH (04), AUTHORIZATION CHECK FAILED FOR DATA SET VSAM.DSN.SIX, ON VOLUME VOL001, 14-008-042, IN
CATALOG CAT.XXX

[kolusu]

eaglenut,

Try this job.

[Eaglenut]

No go.. got this error this time.

DUMP DATASET(INCLUDE(**) -
BY((DSORG EQ VSAM) -
(CATLG EQ NO))) -
LOGINDDNAME(DASD1) -
OUTDDNAME(TAPE) -
DELETE PURGE
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP '
ADR109I (R/I)-RI01 (01), 2004.351 15:25:35 INITIAL SCAN OF USER CONTROL STATEMENTS COMPLETED.
ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
ADR006I (001)-STEND(01), 2004.351 15:25:35 EXECUTION BEGINS
ADR732E (001)-FDSCO(01), DATA SET VSAM.FILE.ONE WAS NOT SELECTED BECAUSE IT WAS NOT CATALOGED

[nevilh]

Have you tried using an IDCAMS job to define recatalog the cluster and the delete it?
Depending on how the uncatalog was done, this may work

[nevilh]

Soory the previos post shoul dhave read.
Have you tried using an IDCAMS job to define recatalog the cluster and then trying to delete it?
Depending on how the uncatalog was done, this may work

[nevilh]

Its Friday and I am having problems co-ordinating my fingers sorry for the typing errors in the above posts

[Eaglenut]

I've figured out a workaround.. I'll run and FDR report on uncat datasets, and
write the output to a DSN. Then I'll write something to read the o/p to create
IDCAMS delete cards. (I figured out the IDCAMS delete..
DELETE VSAM.FILE.ONE FILE(DEL01) VVR
Thanks for the help and ideas though!

[bablack]