
  PROCEDURE [INLINE] tmp$get_taskid_from_task_queue
    (    task_queue: tmt$task_queue_link;
     VAR taskid: ost$global_task_id);

?? PUSH (LISTEXT := ON) ??
    taskid.index := task_queue.head;
    taskid.seqno := tmv$ptl_p^ [task_queue.head].sequence_number;
  PROCEND tmp$get_taskid_from_task_queue;
?? POP ??
