IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ADRSSU vs Rexx Tool to delete N number of datasets
IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
santosh.ambaprasad

New User


Joined: 08 Mar 2009
Posts: 16
Location: London
PostPosted: Wed Feb 17, 2010 4:39 am
 Reply with quote
As I saw in Rexx Tool Needed to delete N number of dataset Why don't you use ADRSSU?
Code:

//STEP01  EXEC PGM=ADRDSSU,REGION=4096K
//SYSPRINT DD SYSOUT=*
//DUMPD DD DSN=TEST.DUMP1,
// UNIT=DISK,DISP=(NEW,DELETE,DELETE),
// SPACE=(TRK,(10,10),RLSE)
//SYSIN DD *
DUMP DS(INCLUDE( -
abc122b.xyzt.* -
) -
OUTDD(DUMPD)
//*
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Wed Feb 17, 2010 4:50 am
 Reply with quote
Hi,

I hope you haven't spent almost 4 years to come up with something that does NOT even address the issue.


Gerry
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Wed Feb 17, 2010 7:48 am
 Reply with quote
Hello,

When posting a suggestion/solution, the code posted should be test run to confirm that it does what was requested.

It is also best to reply to currently active topics that have not already been answered.
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA
PostPosted: Wed Feb 17, 2010 10:58 am
 Reply with quote
Why to waste effort to write REXX?
Why not just use IEFBR14 step
Code:

//STEP0010 EXEC PGM=IEFBR14                               
//DD01   DD DSN=abc122b.xyzt.a765,DISP=(MOD,DELETE,DELETE)
//DD02   DD DSN=abc122b.xyzt.b765,DISP=(MOD,DELETE,DELETE)
//DD03   DD DSN=abc122b.xyzt.c765,DISP=(MOD,DELETE,DELETE)
//DD04   DD DSN=abc122b.xyzt.a785,DISP=(MOD,DELETE,DELETE)
//DD05   DD DSN=abc122b.xyzt.b785,DISP=(MOD,DELETE,DELETE)
//DD06   DD DSN=abc122b.xyzt.c785,DISP=(MOD,DELETE,DELETE)
//DD07   DD DSN=abc122b.xyzt.a795,DISP=(MOD,DELETE,DELETE)
//DD08   DD DSN=abc122b.xyzt.b795,DISP=(MOD,DELETE,DELETE)
//DD09   DD DSN=abc122b.xyzt.c795,DISP=(MOD,DELETE,DELETE)
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Wed Feb 17, 2010 12:42 pm
 Reply with quote
Sambhaji wrote:
Why to waste effort to write REXX?
Why not just use IEFBR14 step

Because using REXX you can just have something like below to cover a vast number of datasets in a few, or less, control statements rather than one DD for every dataset.
Code:
//DELETES  DD *
ABC123.DEF.**
//EXCLUDES DD *
ABC123.DEF.H*

I did post a REXX code for this some many moons ago, and is probably still out lurking in the dark corridors of the forum. And unlike DFdss (ADRDSSU) will handle both tape and migrated datasets.

In fact, it can handle ONLY tape, or migrated, or DASD datasets, or any conbination thereof.

Also, using IEFBR14 for migrated datasets - why recall them before deleting them, why waste the time and resource. Almost the same with tapes, why mount them just to uncatalog them ?
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
PostPosted: Wed Feb 17, 2010 1:29 pm
 Reply with quote
It's a recursive thread, link in first post links to this thread itself... icon_biggrin.gif
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
PostPosted: Wed Feb 17, 2010 7:49 pm
 Reply with quote
Anuj Dhawan wrote:
It's a recursive thread, link in first post links to this thread itself... icon_biggrin.gif
Sorry 'bout that, my bad, all fixed...... icon_redface.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 

Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts DELETE SPUFI DB2 1
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us