
  TYPE
    amt$get_lock_next_keyed_record = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      key_location: ^cell,
      wait_for_lock: ost$wait_for_lock,
      unlock_control: amt$unlock_control,
      lock_intent: amt$lock_intent,
      record_length: ^amt$max_record_length,
      file_position: ^amt$file_position,
      wait: ost$wait,
    recend;

*copyc amt$file_position
*copyc amt$lock_intent
*copyc amt$max_record_length
*copyc ost$wait_for_lock
*copyc amt$working_storage_length
*copyc amt$unlock_control
*copyc ost$wait
