Can I have a sample RSVP to produce a list of invalid DSORGs on volumes in the environment?
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 -
Note that we check for files that are at least 1 day old so they are not being actively utilized.
You can find more detailed information and samples in the RSVP User Guide