{ COMMON DECK amk$access_method }

{  This common deck defines constants for use with keypoints }
{ in AMP$ procedures. }

  CONST
    amk$access_method = amk$base + 1,
    {E 'amp$access_method' }
    {X 'amp$access_method' }

    amk$add_to_file_description = amk$base + 2,
    {E 'amp$add_to_file_description' }
    {X 'amp$add_to_file_description' }

    amk$advanced_access_methods = amk$base + 3,
    {E 'amp$advanced_access_methods' }
    {X 'amp$advanced_access_methods' }

    amk$check_record = amk$base + 4,
    {E 'amp$check_record' }
    {X 'amp$check_record' }

    amk$close = amk$base + 5,
    {E 'fsp$close' }
    {X 'fsp$close' }

    amk$copy_file = amk$base + 8,
    {E 'fsp$copy_file' }
    {X 'fsp$copy_file' }

    amk$delete_key = amk$base + 9,
    {E 'amp$delete_key' }
    {X 'amp$delete_key' }

    amk$fetch = amk$base + 11,
    {E 'amp$fetch' }
    {X 'amp$fetch' }

    amk$fetch_access_information = amk$base + 12,
    {E 'amp$fetch_access_information' }
    {X 'amp$fetch_access_information' }

    amk$fetch_fap_pointer = amk$base + 13,
    {E 'amp$fetch_fap_pointer' }
    {X 'amp$fetch_fap_pointer' }

    amk$file = amk$base + 14,
    {E 'amp$file' }
    {X 'amp$file' }

    amk$flush = amk$base + 15,
    {E 'amp$flush' }
    {X 'amp$flush' }

    amk$get_direct = amk$base + 16,
    {E 'amp$get_direct' }
    {X 'amp$get_direct' }

    amk$get_file_attributes = amk$base + 17,
    {E 'amp$get_file_attributes' }
    {X 'amp$get_file_attributes' }

    amk$get_key = amk$base + 18,
    {E 'amp$get_key' }
    {X 'amp$get_key' }

    amk$get_next = amk$base + 19,
    {E 'amp$get_next' }
    {X 'amp$get_next' }

    amk$get_next_key = amk$base + 20,
    {E 'amp$get_next_key' }
    {X 'amp$get_next_key' }

    amk$get_partial = amk$base + 21,
    {E 'amp$get_partial' }
    {X 'amp$get_partial' }

    amk$get_segment_pointer = amk$base + 22,
    {E 'amp$get_segment_pointer' }
    {X 'amp$get_segment_pointer' }

    amk$open = amk$base + 25,
    {E 'amp$open' }
    {X 'amp$open' }

    amk$putrep = amk$base + 26,
    {E 'amp$putrep' }
    {X 'amp$putrep' }

    amk$put_direct = amk$base + 27,
    {E 'amp$put_direct' }
    {X 'amp$put_direct' }

    amk$put_key = amk$base + 28,
    {E 'amp$put_key' }
    {X 'amp$put_key' }

    amk$put_next = amk$base + 29,
    {E 'amp$put_next' }
    {X 'amp$put_next' }

    amk$put_partial = amk$base + 30,
    {E 'amp$put_partial' }
    {X 'amp$put_partial' }

    amk$replace_key = amk$base + 32,
    {E 'amp$replace_key' }
    {X 'amp$replace_key' }

    amk$return = amk$base + 33,
    {E 'amp$return' }
    {X 'amp$return' }

    amk$rewind = amk$base + 34,
    {E 'amp$rewind' }
    {X 'amp$rewind' }

    amk$seek_direct = amk$base + 35,
    {E 'amp$seek_direct' }
    {X 'amp$seek_direct' }

    amk$set_file_instance_abnormal = amk$base + 37,
    {E 'amp$set_file_instance_abnormal' }
    {X 'amp$set_file_instance_abnormal' }

    amk$set_local_name_abnormal = amk$base + 38,
    {E 'amp$set_local_name_abnormal' }
    {X 'amp$set_local_name_abnormal' }

    amk$set_segment_eoi = amk$base + 39,
    {E 'amp$set_segment_eoi' }
    {X 'amp$set_segment_eoi' }

    amk$set_segment_position = amk$base + 40,
    {E 'amp$set_segment_position' }
    {X 'amp$set_segment_position' }

    amk$skip = amk$base + 42,
    {E 'amp$skip' }
    {X 'amp$skip' }

    amk$skip_tape_marks = amk$base + 43,
    {E 'amp$skip_tape_marks' }
    {X 'amp$skip_tape_marks' }

    amk$start = amk$base + 44,
    {E 'amp$start' }
    {X 'amp$start' }

    amk$store = amk$base + 45,
    {E 'amp$store' }
    {X 'amp$store' }

    amk$store_fap_pointer = amk$base + 46,
    {E 'amp$store_fap_pointer' }
    {X 'amp$store_fap_pointer' }

    amk$validate_caller_privilege = amk$base + 48,
    {E 'amp$validate_caller_privilege' }
    {X 'amp$validate_caller_privilege' }

    amk$write_end_partition = amk$base + 49,
    {E 'amp$write_end_partition' }
    {X 'amp$write_end_partition' }

    amk$write_tape_mark = amk$base + 50,
    {E 'amp$write_tape_mark' }
    {X 'amp$write_tape_mark' }

    amk$abandon_key_definitions = amk$base + 52,
    {E 'amp$abandon_key_definitions' }
    {X 'amp$abandon_key_definitions' }

    amk$abort_file_parcel = amk$base + 53,
    {E 'amp$abort_file_parcel' }
    {X 'amp$abort_file_parcel' }

    amk$apply_key_definitions = amk$base + 54,
    {E 'amp$apply_key_definitions' }
    {X 'amp$apply_key_definitions' }

    amk$begin_file_parcel = amk$base + 55,
    {E 'amp$begin_file_parcel' }
    {X 'amp$begin_file_parcel' }

    amk$check_nowait_request = amk$base + 56,
    {E 'amp$check_nowait_request' }
    {X 'amp$check_nowait_request' }

    amk$commit_file_parcel = amk$base + 57,
    {E 'amp$commit_file_parcel' }
    {X 'amp$commit_file_parcel' }

    amk$create_key_definition = amk$base + 58,
    {E 'amp$create_key_definition' }
    {X 'amp$create_key_definition' }

    amk$create_nested_file = amk$base + 59,
    {E 'amp$create_nested_file' }
    {X 'amp$create_nested_file' }

    amk$delete_key_definition = amk$base + 60,
    {E 'amp$delete_key_definition' }
    {X 'amp$delete_key_definition' }

    amk$delete_nested_file = amk$base + 61,
    {E 'amp$delete_nested_file' }
    {X 'amp$delete_nested_file' }

    amk$find_record_space = amk$base + 62,
    {E 'amp$find_record_space' }
    {X 'amp$find_record_space' }

    amk$get_key_definitions = amk$base + 63,
    {E 'amp$get_key_definitions' }
    {X 'amp$get_key_definitions' }

    amk$get_lock_keyed_record = amk$base + 64,
    {E 'amp$get_lock_keyed_record' }
    {X 'amp$get_lock_keyed_record' }

    amk$get_lock_next_keyed_record = amk$base + 65,
    {E 'amp$get_lock_next_keyed_record' }
    {X 'amp$get_lock_next_keyed_record' }

    amk$get_nested_file_definitions = amk$base + 66,
    {E 'amp$get_nested_file_definitions' }
    {X 'amp$get_nested_file_definitions' }

    amk$get_next_primary_key_list = amk$base + 67,
    {E 'amp$get_next_primary_key_list' }
    {X 'amp$get_next_primary_key_list' }

    amk$get_primary_key_count = amk$base + 68,
    {E 'amp$get_primary_key_count' }
    {X 'amp$get_primary_key_count' }

    amk$get_space_used_for_key = amk$base + 69,
    {E 'amp$get_space_used_for_key' }
    {X 'amp$get_space_used_for_key' }

    amk$lock_file = amk$base + 70,
    {E 'amp$lock_file' }
    {X 'amp$lock_file' }

    amk$lock_key = amk$base + 71,
    {E 'amp$lock_key' }
    {X 'amp$lock_key' }

    amk$select_key = amk$base + 72,
    {E 'amp$select_key' }
    {X 'amp$select_key' }

    amk$select_nested_file = amk$base + 73,
    {E 'amp$select_nested_file' }
    {X 'amp$select_nested_file' }

    amk$separate_key_groups = amk$base + 74,
    {E 'amp$separate_key_groups' }
    {X 'amp$separate_key_groups' }

    amk$unlock_file = amk$base + 75,
    {E 'amp$unlock_file' }
    {X 'amp$unlock_file' }

    amk$unlock_key = amk$base + 76,
    {E 'amp$unlock_key' }
    {X 'amp$unlock_key' }

    amk$replace_previous_record = amk$base + 77,
    {E 'amp$replace_previous_record' }
    {X 'amp$replace_previous_record' }

    amk$get_label = amk$base + 78,
    {E 'amp$get_label' }
    {X 'amp$get_label' }

    amk$put_label = amk$base + 79,
    {E 'amp$put_label' }
    {X 'amp$put_label' }

    amk$close_volume = amk$base + 80,
    {E 'amp$close_volume' }
    {X 'amp$close_volume' }

    amk$erase_tape_block = amk$base + 81,
    {E 'amp$erase_tape_block' }
    {X 'amp$erase_tape_block' }

    amk$fetch_nested_file_attrib = amk$base + 82;
    {E 'amp$fetch_nested_file_attrib' }
    {X 'amp$fetch_nested_file_attrib' }

?? PUSH (LISTEXT := ON) ??
*copyc osk$keypoints
?? POP ??





