
  CONST

    ptk$page_fault_segment = ptk$performance_base + 0,
      {R 'Page Fault Segment' 'segment' H12}

    ptk$page_fault_p_segment = ptk$performance_base + 1,
      {R 'Page Fault P Register' 'Segment' H12}

    ptk$page_fault_p_lower_offset = ptk$performance_base + 2,
      {R 'Page Fault P Lower Offset' 'Offset' H20}

    ptk$page_fault_gtid = ptk$performance_base + 3,
      {R 'Page Fault GTID' 'GTID' H20}

    ptk$page_fault_lower_offset = ptk$performance_base + 4,
      {R 'Page Fault Lower Offset' 'Offset' H20}

    ptk$page_fault_pfti = ptk$performance_base + 5,
      {R 'Page Fault Page Frame Table Index' 'PFTI' I20}

    ptk$page_fault_status = ptk$performance_base + 6,
      {R 'Page Fault Status' 'Status' I20}

    ptk$page_assigned_pfti = ptk$performance_base + 7,
      {R 'Page Assigned to queue' 'PFTI' I20}

    ptk$page_assigned_queue = ptk$performance_base + 8,
      {R 'Page Assign to queue' 'Queue' I20}

    ptk$new_job_name_1 = ptk$performance_base + 9,
      {R 'First part of job name'}

    ptk$new_job_name_2 = ptk$performance_base + 10,
      {R 'Second part of job name'}

    ptk$ajl_for_swap_out = ptk$performance_base + 11,
      {R 'AJL for job being swapped out' 'AJL' I20}

    ptk$pfti_for_swapout = ptk$performance_base + 12,
      {R 'PFTI for job being swapped out' 'PFTI' I20}

    ptk$swapin_job_name_1 = ptk$performance_base + 13,
      {R 'First part of job name at swapin'}

    ptk$swapin_job_name_2 = ptk$performance_base + 14,
      {R 'Second part of job name for swapin'}

    ptk$pfti_for_swapin = ptk$performance_base + 15,
      {R 'PFTI for Swapin' 'PFTI' I20}

    ptk$page_fault_p_upper_offset = ptk$performance_base + 16,
      {R 'Page Fault P register upper offset' 'offset' H20}

    ptk$page_fault_upper_offset = ptk$performance_base + 17,
      {R 'Page Fault upper offset' 'offset' H20}

    ptk$page_assigned_ijl = ptk$performance_base + 18,
      {R 'Page assigned to job' 'IJL' I20}

    ptk$page_fault_ijl = ptk$performance_base + 19,
      {R 'Page Fault for job' 'IJL' I20}

    ptk$aging_segment = ptk$performance_base + 20,
      {R 'Job aging' 'segment' H20}

    ptk$aging_page_number = ptk$performance_base + 21,
      {R 'Job aging page in segment' 'Page' I20}

    ptk$aging_ijl_ordinal = ptk$performance_base + 22,
      {R 'Job aging for job' 'IJL' I20}

    ptk$command_name = ptk$performance_base + 23,
      {R 'Command being processed' 'command' A6}

    ptk$command_ijl = ptk$performance_base + 24,
      {R 'Command for job' 'IJL' I20}

    ptk$aging_job_fixed = ptk$performance_base + 25,
      {R 'Aging job fixed' '# pages' I20}

    ptk$aging_modified_pages = ptk$performance_base + 26,
      {R 'Aging modified pages' '# Pages' I20}

    ptk$aging_pages_removed = ptk$performance_base + 27,
      {R 'Aging pages removed' '# Pages' I20}

    ptk$swapping_segment = ptk$performance_base + 30,
      {R 'Swapping segment' 'Segment' H20}

    ptk$swapping_job_fixed = ptk$performance_base + 31,
      {R 'Swapping pages in job fixed' '# Pages' I20}

    ptk$swapping_modified_pages = ptk$performance_base + 32,
      {R 'Swapping modified pages count' '# Pages' I20}

    ptk$swapping_removed_pages = ptk$performance_base + 33,
      {R 'Pages Removed at swapping' '# Pages' I20}

    ptk$swapping_ijl_ordinal = ptk$performance_base + 34,
      {R 'swapping IJL ordinal' 'IJL' I20}

    ptk$swapping_page_number = ptk$performance_base + 35,
      {R 'swapping page number' 'Page #' I20}

    ptk$allocate_gtid = ptk$performance_base + 40,
      {R 'Allocate GTID' 'GTID' H20}

    ptk$allocate_segment = ptk$performance_base + 41,
      {R 'Allocate in segment'  'segment' H20}

    ptk$allocate_lower_offset = ptk$performance_base + 42,
      {R 'Allocate at lower offset' 'offset' H20}

    ptk$allocate_p_segment = ptk$performance_base + 43,
      {R 'Allocate from P register'  'offset' H20}

    ptk$allocate_p_lower_offset = ptk$performance_base + 44,
      {R 'Allocate from P register lower offset' 'offset' H20}

    ptk$allocate_length = ptk$performance_base + 45,
      {R 'Allocation length' 'bytes' I20}

    ptk$allocate_upper_offset = ptk$performance_base + 46,
      {R 'Allocate in upper offset' 'offset' H20}

    ptk$allocate_p_upper_offset = ptk$performance_base + 47,
      {R 'Allocate from P upper offset' 'offset' H20}

    ptk$stack_p_segment = ptk$performance_base + 50,
      {R 'P register in stack' 'Segment' H20}

    ptk$stack_p_upper_offset = ptk$performance_base + 51,
      {R 'P register in stack offset' 'Lower' H20}

    ptk$stack_p_lower_offset = ptk$performance_base + 52,
      {R 'P register in stack offset' 'Lower' H20}

    ptk$stack_tos_segment = ptk$performance_base + 53,
      {R 'Top of stack' 'Segment' H20}

    ptk$stack_tos_upper_offset = ptk$performance_base + 54,
      {R 'Top of stack Upper offset' 'offset' H20}

    ptk$stack_tos_lower_offset = ptk$performance_base + 55,
      {R 'Top of stack Lower offset' 'offset' H20}

    ptk$stack_esa_segment = ptk$performance_base + 56,
      {R 'End save area segment' 'segment' H20}

    ptk$stack_esa_upper_offset = ptk$performance_base + 57,
      {R 'End save area upper offset' 'offset' H20}

    ptk$stack_esa_lower_offset = ptk$performance_base + 58,
      {R 'End save area lower offset' 'offset' H20}

    ptk$end_of_stack_trace = ptk$performance_base + 59,
      {R 'End of stack Trace' }

    ptk$stack_ijl_ordinal = ptk$performance_base + 60,
      {R 'Processing stack for IJL' 'IJL' I20}

    ptk$disk_unit = ptk$performance_base + 61,
      {R 'Disk unit and cylinder' H20}

    ptk$disk_allocation_address = ptk$performance_base + 62,
      {R 'Disk allocation mau address' 'mau addr' H20}

    ptk$disk_mau_offset = ptk$performance_base + 63,
      {R 'Disk mau offset'  'offset' H20}

    ptk$disk_transfer_length = ptk$performance_base + 64,
      {R 'Disk transfer length'  'length' I20}

    ptk$disk_mau_preset = ptk$performance_base + 65,
      {R 'MAU Preset' 'mau' H20}

    ptk$disk_sfid = ptk$performance_base + 66,
      {R 'SFID for disk request' 'sfid' H20}

    ptk$disk_byte_address = ptk$performance_base + 67,
      {R 'Byte offset of transfer' 'offset' H20}

    ptk$disk_function = ptk$performance_base + 68,
      {R 'Function issued to disk' 'function' H20}

    ptk$disk_ijlo = ptk$performance_base + 69,
      {R 'Ijl ordinal for request' 'ijl' I20}

    ptk$disk_task_id = ptk$performance_base + 70,
      {R 'Task id for disk request' 'task id' H20}

    ptk$disk_aste = ptk$performance_base + 71,
      {R 'Aste for disk request' 'aste' H20}

    ptk$disk_request_info = ptk$performance_base + 72,
      {R 'Disk Request info' '   ' H20}

    ptk$free_gtid = ptk$performance_base + 73,
      {R 'Free GTID' 'GTID' H20}

    ptk$free_segment = ptk$performance_base + 74,
      {R 'Free in segment'  'segment' H20}

    ptk$free_lower_offset = ptk$performance_base + 75,
      {R 'Free at lower offset' 'offset' H20}

    ptk$free_p_segment = ptk$performance_base + 76,
      {R 'Free from P register'  'offset' H20}

    ptk$free_p_lower_offset = ptk$performance_base + 77,
      {R 'Free from P register lower offset' 'offset' H20}

    ptk$free_length = ptk$performance_base + 78,
      {R 'Free length' 'bytes' I20}

    ptk$free_upper_offset = ptk$performance_base + 79,
      {R 'Free in upper offset' 'offset' H20}

    ptk$free_p_upper_offset = ptk$performance_base + 80,
      {R 'Free from P upper offset' 'offset' H20}

    ptk$upper_limit = ptk$performance_base + 99;

*copyc amk$base_keypoint_values
*copyc osk$keypoint_class_codes
