
{NOTE:
{ This stuff is not really used. It came from an idea to recover from PTL Locks
{ but the "class" field was always overwritten by subsequent locks and therefore
{ meaningless. More would have to be done to make it work.

  CONST
    mtc$null = 0,
    mtc$ignore = 1,
    mtc$reissue = 2,
    mtc$fixup_ajl = 3,
    mtc$bad_task = 4,
    mtc$bad_job = 5,
    mtc$abandon = 6;

  CONST
    mtc$sc_delete_ajl = 1,
    mtc$sc_unlock_ajl = 2,
    mtc$sc_plt_scan = 4,
    mtc$sc_queue_link_fixup = 5,
    mtc$sc_abort_ajl = 6,
    mtc$sc_job_exiting = 7,
    mtc$sc_creating_task = 8,
    mtc$sc_exiting_task = 9,
    mtc$sc_adjust_st_locks = 10,


    mtc$sc_end = 20;



  TYPE

    mtt$ptl_recovery_info = record
      class: 0 .. 0ff(16),
      taskid: ost$global_task_id,
      ijl_p: ^jmt$initiated_job_list_entry,
      xcb_p: ^ost$execution_control_block,
      ptl_p: ^tmt$primary_task_list_entry,
      ptlo: ost$task_index,
      ajl_ord: jmt$ajl_ordinal,
      subcode: 0 .. 0ff(16),
    recend;

*copyc ost$global_task_id
*copyc jmt$initiated_job_list_entry
*copyc ost$execution_control_block
*copyc tmt$primary_task_list
*copyc jmt$ajl_ordinal

