How do I use RSVP to find invalid DSORGs?

Products

• RSVP

Issue/Introduction

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

 

                                     

Environment

Release:
Component: RSVP

Resolution

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 RSVP User Guide