 TYPE
    cmt$maintenance_activity = record
      case access: mst$access_type of
      = msc$dedicated_access =
        dedicated_accessor: cmt$job_ownership,
      = msc$concurrent_access =
        concurrent_access_count : integer,
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$job_ownership
*copyc mst$access_type
?? POP ??
