Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ADRSSU vs Rexx Tool to delete N number of datasets

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
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    Post subject: ADRSSU vs Rexx Tool to delete N number of datasets
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: 1703
Location: Australia

PostPosted: Wed Feb 17, 2010 4:50 am    Post subject:
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

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Feb 17, 2010 7:48 am    Post subject:
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Wed Feb 17, 2010 12:42 pm    Post subject:
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

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Wed Feb 17, 2010 1:29 pm    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Wed Feb 17, 2010 7:49 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts Need info on EIBCPOSN value in IBM FA... subratarec CICS 11 Wed Jul 12, 2017 3:45 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us