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

volume mass delete RMM


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
BlackSunday

New User


Joined: 05 Oct 2022
Posts: 3
Location: Spain

PostPosted: Wed Oct 05, 2022 4:05 pm
Reply with quote

Hi there!!! i've got some doubts about how to do a volumes mass delete with RMM. Those volumes are not in a range like 200000 to 299999 for example

Can i do it though the RMM panels??

If not, i think that i've to do it in a JCL to execute an IKJEFT01 and pass a TSO RMM command in a SYSIN but i don't know how to make the SYSIN. I've tried with a ICEMAN/SORT with this two files

file1:
RMM DELETEVOLUME

file2 (list of volumes):
XXXXXX
YYYYYY
ZZZZZZ
...

but i didn't get what i want

sysin:
RMM DELETEVOLUME XXXXXX
RMM DELETEVOLUME YYYYYYY
RMM DELETEVOLUME ZZZZZZ
...

This is my code

//PASO05 EXEC PGM=ICEMAN,COND=(4,LT)
//SORTJNF1 DD DSN=SGU9631.DATA.SYSIN,
// DISP=SHR
//SORTJNF2 DD DSN=RMM.PRODPLEX.HSKP.EXTRACT.COPY.SGU9631.SCR,
// DISP=SHR
//SORTOUT DD DSN=SGU9631.DATA.SYSTSYN,
// DISP=(NEW,CATLG,DELETE),UNIT=3390,
// SPACE=(TRK,(1,1),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(1,12,A),SORTED
JOINKEYS FILES=F2,FIELDS=(1,7,A),SORTED
REFORMAT FIELDS=(F1:1,12,F2:1,7)
MERGE FIELDS=COPY
OUTFIL FILES=OUT,SAVE

If i execute this, the RC is 16 because the records length are not the same

Thanks in advance for the answers and sorry for my english!!!
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 940
Location: Bamberg, Germany

PostPosted: Wed Oct 05, 2022 4:14 pm
Reply with quote

Please use Code Tags when presenting code/data icon_exclaim.gif

In DFRMM it doesn't matter if the range is contiguous or not. To remove the volumes they have to be in SCRATCH status, that is more important. To remove them from DFRMM CDS and eject them from the robot, you would use:
Code:
RMM DV <vol> REMOVE
Back to top
View user's profile Send private message
BlackSunday

New User


Joined: 05 Oct 2022
Posts: 3
Location: Spain

PostPosted: Wed Oct 05, 2022 6:49 pm
Reply with quote

Joerg.Findeisen wrote:
Please use Code Tags when presenting code/data icon_exclaim.gif

In DFRMM it doesn't matter if the range is contiguous or not. To remove the volumes they have to be in SCRATCH status, that is more important. To remove them from DFRMM CDS and eject them from the robot, you would use:
Code:
RMM DV <vol> REMOVE


Hi Joerg, thanks for your reply

All the volumes are scratch, of course. Thanks for the note

Sorry, but i can't edit my post and now my partner has told me that we have to delete some files from a scratch volumes. That files still remains in the cartridges because they had not expired (maybe because a SMS managment class) and haven't been accesed to them since a few years and they are not necesary in the installation.

So... I tried to create a the following SYSTSYN

RMM DELETEDATASET aaa.bbbbbb.cccccc VOLUME (XXXXXX)
RMM DELETEDATASET aaa.bbbbbb.cccccc VOLUME (YYYYYY)
RMM DELETEDATASET aaa.bbbbbb.cccccc VOLUME (ZZZZZZ)
...

from two files like these

file1:
RMM DELETEDATASET aaa.bbbbbb.cccccc VOLUME

file2 (list of volumes, about one thousand and something):
(XXXXXX)
(YYYYYY)
(ZZZZZZ)
...

with this SORT

Code:

//PASO05 EXEC PGM=SORT,COND=(4,LT)                           
//IN1      DD DSN=SGU9631.DATA.RMMCOMMA,                     
//            DISP=SHR                                       
//IN2      DD DSN=RMM.PRODPLEX.HSKP.EXTRACT.COPY.SGU9631.SCR,
//            DISP=SHR                                       
//SORTOUT  DD DSN=SGU9631.DATA.SYSTSYN,                     
//            DISP=(NEW,CATLG,DELETE),UNIT=3390,             
//            SPACE=(TRK,(1,1),RLSE)                         
//SYSOUT   DD SYSOUT=*                                       
//SYSIN    DD *                                             
  JOINKEYS F1=IN1,FIELDS=(1,55,A),SORTED,NOSEQCK             
  JOINKEYS F2=IN2,FIELDS=(1,8,A),SORTED,NOSEQCK             
  REFORMAT FIELDS=(F1:1,55,F2:1,8)                           
  OPTION COPY                                               


The RC is 16 'cause the fields hasn't the same length. I'm beggining to think that this isn't the correct way to do
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Mass JCL release via IDZ tool(eclipse... CA Products 1
No new posts Delete file row if blanks in the firs... DFSORT/ICETOOL 5
No new posts Easy way to delete selected members f... IBM Tools 12
No new posts Define default volume for DSN storage... JCL & VSAM 8
No new posts Copy a PDS to a new PDS - why do I ne... TSO/ISPF 8
Search our Forums:

Back to Top