
  TYPE
    pft$log_entry = record
      case entry_type: pft$log_entry_types of
      = pfc$free_log_entry =
        ,
      = pfc$normal_log_entry =
        user_id: ost$user_identification,
        access_date_time: ost$date_time,
        access_count: pft$access_count,
        last_cycle: fst$cycle_number,
      casend,
    recend;

*copyc fst$cycle_number
*copyc ost$date_time
*copyc ost$user_identification
*copyc pft$access_count
*copyc pft$log_entry_types
*copyc pft$log_index
