Previous Topic: Sample JCL for Scratching a VolumeNext Topic: Sample JCL for Changing the Retention Schedule


Sample JCL for Changing the Service Indicator

//TLMSINQR  JOB
//TLMSINQR  EXEC CATINQR
//CAIIPT    DD   *
UPV CAI130,SERVICE=IN,CDS=0004

This example will put volume CAI130 back into service if the CDS is the fourth data set on the volume (FILESEQ=4).

//TLMSINQR  JOB
//TLMSINQR  EXEC CATINQR
//CAIIPT    DD   *
/UPV CPX123,SERVICE=OUT,OUTDATE=03/13/1991

This example will change a volume to out-of-service and also update the destroy date field.