The SCRATCH statement deletes  the  Current  Record  and  all  following
  records in an RMS sequential file.

  Example

  SCRATCH #4%