
{ PURPOSE:
{   This deck contains all of the set manager keypoint constants.

  CONST
    {ENTRY/EXIT CLASS KEYPOINTS }
    {gated entry points for users}

    stk$create_set = stk$base + 1,
      {E  'stp$create_set' 'ring    ' H }
      {X  'stp$create_set' 'status  ' I20 }

    stk$purge_set = stk$base + 2,
      {E  'stp$purge_set' }
      {X  'stp$purge_set' 'status  ' I20 }

    stk$add_member_vol_to_set = stk$base + 3,
      {E  'stp$add_member_vol_to_set' }
      {X  'stp$add_member_vol_to_set' 'status  ' I20 }

    stk$remove_member_vol_from_set = stk$base + 4,
      {E  'stp$remove_member_vol_from_set' }
      {X  'stp$remove_member_vol_from_set' 'status  ' I20 }

    stk$change_access_to_set = stk$base + 5,
      {E  'stp$change_access_to_set' 'access  ' H20 }
      {X  'stp$change_access_to_set' 'status  ' I20 }

    {interfaces into sets from other functional areas }
    {calls from device management }

    stk$get_jobs_scratch_volumes = stk$base + 10,
      {E  'stp$get_jobs_scratch_volumes' }
      {X  'stp$get_jobs_scratch_volumes' }

    stk$get_volumes_in_set = stk$base + 11,
      {E  'stp$get_volumes_in_set' 'setinit ' H20 }
      {X  'stp$get_volumes_in_set' }

    stk$get_volumes_by_set_ordinal = stk$base + 12,
      {E  'stp$get_volumes_by_set_ordinal' }
      {X  'stp$get_volumes_by_set_ordinal' }

    stk$get_volumes_set_name = stk$base + 13,
      {E  'stp$get_volumes_set_name' }
      {X  'stp$get_volumes_set_name' }

    stk$is_volume_in_set = stk$base + 14,
      {E  'stp$is_volume_in_set' }
      {X  'stp$is_volume_in_set' }

    stk$disk_volume_active = stk$base + 15,
      {E  'stp$disk_volume_active' 'avtindx ' H20 }
      {X  'stp$disk_volume_active' 'status  ' I20 }

    stk$disk_volume_inactive = stk$base + 16,
      {E  'stp$disk_volume_inactive' 'setord  ' H20 }
      {X  'stp$disk_volume_inactive' 'status  ' I20 }

    stk$get_internal_volumes_set = stk$base + 17,
      {E 'stp$get_internal_volumes_set' }
      {X 'stp$get_internal_volumes_set' }

    {calls from permanent files }

    stk$get_pf_root_size = stk$base + 20,
      {E  'stp$get_pf_root_size' }
      {X  'stp$get_pf_root_size' 'status  ' I20 }

    stk$get_pf_root = stk$base + 21,
      {E  'stp$get_pf_root' }
      {X  'stp$get_pf_root' 'status  ' I20 }

    stk$store_pf_root = stk$base + 22,
      {E  'stp$store_pf_root' }
      {X  'stp$store_pf_root' 'status  ' I20 }

    stk$purge_pf_root = stk$base + 23,
      {E  'stp$purge_pf_root' }
      {X  'stp$purge_pf_root' 'status  ' H20 }

    stk$get_set_owner = stk$base + 24,
      {E  'stp$get_set_owner' }
      {X  'stp$get_set_owner' 'status  ' I20 }

    stk$set_pf_lock = stk$base + 25,
      {E  'stp$set_pf_lock' }
      {X  'stp$set_pf_lock' 'status  ' I20 }

    stk$clear_pf_lock = stk$base + 26,
      {E  'stp$clear_pf_lock' }
      {X  'stp$clear_pf_lock' 'status  ' I20 }

    {call from job management}

    stk$set_end_job = stk$base + 27,
      {E  'stp$set_end_job' }
      {X  'stp$set_end_job' 'status  ' I20 }

    {call during deadstart sequence }

    stk$initialize_sets = stk$base + 29,
      {E  'stp$initialize_sets' }
      {X  'stp$initialize_sets' 'status  ' I20 }

    stk$get_active_set_list = stk$base + 30,
      {E  'stp$get_active_set_list' 'setlis  ' I20 }
      {X  'stp$get_active_set_list' 'numset  ' I20 }

    stk$verify_all_volumes_active = stk$base + 31,
    {E 'stp$verify_all_volumes_active' }
    {X 'stp$verify_all_volumes_active' 'status  ' I20 }


    { UNUSUAL CLASS keypoints }

    stk$cant_dm_store_set_ord = stk$base,
      {U  'cant dmp$store_avt_set_ordinal' 'avtindx ' H20 }


    { DEBUG keypoints }

    stk$set_exclusive_lock = stk$base,
      {D  'set exclusive access' }

    stk$clear_exclusive_lock = stk$base + 1,
      {D  'clear exclusive access' }

    stk$ast_index_assigned = stk$base + 2,
      {D  'active set table index assigned' 'astindx ' H20 }

    stk$new_job_accessing_set = stk$base + 3,
      {D  'first pf access of sets within job' }

    stk$mel_index_assigned = stk$base + 4,
      {D  'mel index assigned - ast index V' 'status  ' I20 }

    stk$pf_root_size = stk$base + 5;
      {D  'pf_root_size' 'rootsiz ' H20 }

?? PUSH (LISTEXT := ON) ??
*copyc AMK$BASE_KEYPOINT_VALUES
?? POP ??
