
  TYPE
    sft$audit_control = record
      locked: boolean,
      operation: sft$audited_operation,
      forward: ^sft$audit_control,
      selection_criteria: sft$audit_selection_criteria,
    recend;

*copyc sft$audit_selection_criteria
*copyc sft$audited_operation

