How do I use RSVP to find invalid DSORGs?

Document ID : KB000044265
Last Modified Date : 14/02/2018
Show Technical Document Details

Question:

Can I have a sample RSVP to produce a list of invalid DSORGs on volumes in the environment?

Answer:

You can execute this command string from the ISPF option 6 TSO command screen or use the ASM2CMDU proc to execute the command string and generate a hard copy report. Be sure to allocate the DD for the $RSTRANS file:

//$RSTRANS DD  DISP=SHR,DSN=yourhlq.RSTRANS

The statements used to delete the invalid dsorg files will be generated and placed in the $RSTRANS file to be executed in another step after the report has been reviewed. 

$RSVP VOL(ALL) -                                                       
HEADING1('1    LIST OF FILES ON ALL VOLUMES THAT DO NOT HAVE A -       
VALID DSORG') -                                                        
HEADING2('0 AND ARE AT LEAST 1 DAY OLD ===ALLOCATION IN TRACKS==') -   
TRK CL SORT(VOLUME) BLIST(ACTION1) -                                   
IF(DSORG NE PO) AND1(DSORG NE IS) AND2(DSORG NE DA) AND3(DSORG NE VS) -
AND4(DSORG NE PS) AND5(CAT EQ C) AND6(CREDT LE *-1) -                  
ACTION('DEL ''') COM('''') -                                           
PRINT(NEW (DSNAME VOLUME CAT DSORG LMJOB CREDT LSTUS LMTIM ALLOC -     
UNUSED TIME))         

Note that we check for files that are at least 1 day old so they are not being actively utilized.

Additional Information:

You can find more detailed information and samples in the CA RSVP User Guide