In this example, two data sets are scratched: SET1 and A.B.C.D.E are scratched from volume 222222. Both data sets are uncataloged.

  //SCRDSETS JOB  ...
  //STEP1    EXEC PGM=IEHPROGM
  //SYSPRINT DD  SYSOUT=A
  //DD1      DD  UNIT=disk,VOLUME=SER=111111,DISP=OLD
  //DD2      DD  UNIT=disk,DISP=OLD,VOLUME=SER=222222
  //SYSIN    DD  *
        SCRATCH  DSNAME=SET1,VOL=disk=222222
        UNCATLG  DSNAME=SET1
        SCRATCH  DSNAME=A.B.C.D.E,VOL=disk=222222
        UNCATLG  DSNAME=A.B.C.D.E
  /*

The utility control statements are discussed below:

• The first SCRATCH statement specifies that SET1, which resides on volume 222222, is scratched.
• The first UNCATLG statement specifies that SET1 is uncataloged.
• The second SCRATCH statement specifies that A.B.C.D.E, which resides on volume 222222, is scratched.
• The second UNCATLG statement specifies that A.B.C.D.E is uncataloged.