PROCEDURE delete_expired_files (
  output_disposition, odi: any of
      key
        (discard_all_output, dao),(discard_standard_output, dso),
        (printer, p),(wait_queue, wt, wq)
      keyend
      file
    anyend = puv$delete_expired_files, printer
  status)

  "The purpose of this procedure is to initiate a batch job
  "to delete all the currently expired files.

  JOB job_name=delete_expired_files job_class=system output_disposition=output_disposition
    SYSTEM_OPERATOR_UTILITY capability=system_administration
      TASK RING=3
        BACKUP_PERMANENT_FILES backup_file=$null list=$output
          set_list_options cycle_display_options=(size, modification_date_time, expiration_date)
          sort_users
          include_cycles selection_criteria=expired before=$now
          delete_all_files
        QUIT
      TASKEND
    END_SYSTEM_OPERATOR_UTILITY
  JOBEND

PROCEND delete_expired_files
