
  TYPE
    put$selection_criteria_mode = (puc$created, puc$accessed, puc$modified, puc$expired);

  TYPE
    put$selection_criteria = record
      mode: put$selection_criteria_mode,
      after_date_time_selected: boolean,
      after_date_time: ost$date_time,
      before_date_time_selected: boolean,
      before_date_time: ost$date_time,
      after_time_after_before_time: boolean,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc ost$date_time
?? POP ??
