|
View previous topic :: View next topic
|
| Author |
Message |
BlackSunday
New User
Joined: 05 Oct 2022
Posts: 3
Location: Spain
|
|
|
|
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 |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1429
Location: Bamberg, Germany
|
|
|
|
Please use Code Tags when presenting code/data 
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 |
|
|
BlackSunday
New User
Joined: 05 Oct 2022
Posts: 3
Location: Spain
|
|
|
|
| Joerg.Findeisen wrote: |
Please use Code Tags when presenting code/data
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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
