Volume Master File Inquiry and Update › VMF Inquiry/Update Commands › UPV Command—Update Volume Information › Sample JCL for Scratching a Volume

Sample JCL for Scratching a Volume

//TLMSINQR  JOB
//TLMSINQR  EXEC CATINQR
//CAIIPT    DD   *
UPV CAI130,SCRATCH=YES,CDS=0004
//

This example will scratch volume CAI130 and any additional continuation volumes under the following conditions: if CAI130 is the base volume (VOLSEQ=1) and if the CDS is the fourth data set on the volume (FILESEQ=4). Scratching volumes sets the expiration date for all data sets on all scratched volumes to the current date.