{dmdtkey}
{        tape device manager keypoints

  CONST

    dmk$create_tape_file = dmk$tape_base,
    {E 'dmp$create_tape_file'}
    {X 'dmp$create_tape_file' 'status' I20}

    dmk$initialize_tape = dmk$tape_base + 1,
    {E 'dmp$initialize_tape'}
    {X 'dmp$initialize_tape' 'status' I20}

    dmk$create_tmd = dmk$tape_base + 2,
    {E 'dmp$create_tmd'}
    {X 'dmp$create_tmd' 'status' I20}

    dmk$allocate_tape_subfile = dmk$tape_base + 3,
    {E 'dmp$allocate_tape_subfile'}
    {X 'dmp$allocate_tape_subfile' 'status' I20}

    dmk$select_tape_subfile = dmk$tape_base + 4,
    {E 'dmp$select_tape_subfile'}
    {X 'dmp$select_tape_subfile' 'status' I20}

    dmk$deselect_tape_subfile = dmk$tape_base + 5,
    {E 'dmp$deselect_tape_subfile'}
    {X 'dmp$deselect_tape_subfile' 'status' I20}

    dmk$get_tmd_field = dmk$tape_base + 6,
    {E 'dmp$get_tmd_field'}
    {X 'dmp$get_tmd_field' 'status' I20}

    dmk$convert_sfid_to_lun = dmk$tape_base + 7,
    {E 'dmp$convert_sfid_to_lun'}
    {X 'dmp$convert_sfid_to_lun'}

    dmk$search_avt = dmk$tape_base + 8,
    {E 'dmp$search_avt'}
    {X 'dmp$search_avt'}

    dmk$create_tir = dmk$tape_base + 9,
    {E 'dmp$create_tir'}
    {X 'dmp$create_tir' 'status' I20}

    dmk$get_tape_medium_descriptor = dmk$tape_base + 10,
    {E 'dmp$get_tape_medium_descriptor'}
    {X 'dmp$get_tape_medium_descriptor' 'status' I20}

    dmk$create_tape_message = dmk$tape_base + 11,
    {E 'dmp$create_tape_message'}
    {X 'dmp$create_tape_message' 'status' I20}

    dmk$action_operator = dmk$tape_base + 12,
    {E 'dmp$action_operator'}
    {X 'dmp$action_operator' 'status' I20}

    dmk$crack_assign_reply = dmk$tape_base + 13,
    {E 'dmp$crack_assign_reply'}
    {X 'dmp$crack_assign_reply' 'status' I20}

    dmk$advance_tape_volume = dmk$tape_base + 14,
    {E 'dmp$advance_tape_volume'}
    {X 'dmp$advance_tape_volume' 'status' I20}

    dmk$close_tape_volume = dmk$tape_base + 15,
    {E 'dmp$close_tape_volume'}
    {X 'dmp$close_tape_volume' 'status' I20}

    dmk$get_tape_status = dmk$tape_base + 16,
    {E 'dmp$get_tape_status'}
    {X 'dmp$get_tape_status' 'status' I20}

    dmk$activate_tape = dmk$tape_base + 17,
    {E 'dmp$activate_tape'}
    {X 'dmp$activate_tape' 'status' I20}

    dmk$validate_external_vsn = dmk$tape_base + 18,
    {E 'dmp$validate_external_vsn'}
    {X 'dmp$validate_external_vsn' 'status' I20}

    dmk$select_tape = dmk$tape_base + 19,
    {E 'dmp$select_tape'}
    {X 'dmp$select_tape' 'status' I20}

    dmk$validate_assign_reply = dmk$tape_base + 20,
    {E 'dmp$validate_assign_reply'}
    {X 'dmp$validate_assign_reply' 'status' I20}

    dmk$assign_tape = dmk$tape_base + 21,
    {E 'dmp$assign_tape'}
    {X 'dmp$assign_tape' 'status' I20}

    dmk$create_tape_window = dmk$tape_base + 22,
    {E 'dmp$create_tape_window'}
    {X 'dmp$create_tape_window' 'status' I20}

    dmk$destroy_tape_window = dmk$tape_base + 23,
    {E 'dmp$destroy_tape_window' }
    {X 'dmp$destroy_tape_window' 'status' I20}

    dmk$destroy_tape_file = dmk$tape_base + 24,
    {E 'dmp$destroy_tape_file'}
    {X 'dmp$destroy_tape_file' 'status' I20}

    dmk$destroy_tmd = dmk$tape_base + 25,
    {E 'dmp$destroy_tmd' }
    {X 'dmp$destroy_tmd' 'status' I20}

    dmk$reserve_tape = dmk$tape_base + 26,
    {E 'dmp$reserve_tape' }
    {X 'dmp$reserve_tape' 'status' I20}

    dmk$release_tape = dmk$tape_base + 27,
    {E 'dmp$release_tape' }
    {X 'dmp$release_tape' 'status' I20}

    dmk$acquire_tape_resource = dmk$tape_base + 28,
    {E 'dmp$acquire_tape_resource' }
    {X 'dmp$acquire_tape_resource' 'status' I20}

    dmk$return_tape_resource = dmk$tape_base + 29,
    {E 'dmp$return_tape_resource' }
    {X 'dmp$return_tape_resource' 'status' I20}

    dmk$create_stt = dmk$tape_base + 30,
    {E 'dmp$create_stt' }
    {X 'dmp$create_stt' 'status' I20}

    dmk$swap_tape = dmk$tape_base + 31,
    {E 'dmp$swap_tape' }
    {X 'dmp$swap_tape' 'status' I20}

    dmk$tape_condition_handler = dmk$tape_base + 32,
    {E 'dmp$tape_condition_handler' }
    {X 'dmp$tape_condition_handler' 'status' i20}

    dmk$reset_tape_volume = dmk$tape_base + 33;
    {E 'dmp$reset_tape_volume' }
    {X 'dmp$reset_tape_volume' 'status' I20}

?? PUSH (LISTEXT := ON) ??
*copyc amk$base_keypoint_values
?? POP ??
