{
{                           common deck dmdlofi
{

  TYPE
    dmt$access_kind = (dmc$read_access, dmc$write_access),
    dmt$lock_file_status = (dmc$file_locked_for_caller, dmc$file_already_busy),
dmt$write_lock = (dmc$no_write_lock,dmc$write_lock,dmc$write_flush_lock),
    dmt$locked_file = record
      case required: boolean of
      = TRUE =
        locks: dmt$access_kind,
        read_lock_count: 0 .. 0ff(16),
        write_lock: dmt$write_lock,
      = FALSE =
        ,
      casend,
    recend;
