  PROCEDURE [INLINE] dfp$extract_client_job_id
    (    queue_entry_location: dft$rpc_queue_entry_location;
     VAR client_job_id: dft$client_job_id);

    VAR
      p_queue_interface_table: dft$p_queue_interface_table,
      p_rpc_buffer_header: ^dft$rpc_buffer_header,
      p_send_buffer: dft$p_command_buffer,
      p_send_buffer_header: ^dft$buffer_header,
      queue_entry_loc_int: dft$rpc_queue_entry_loc_int;

    dfp$convert_qel_ext_to_int (queue_entry_location, queue_entry_loc_int);
    dfp$get_qit_p_from_direct_index (queue_entry_loc_int.queue_directory_index,
          p_queue_interface_table);
    p_send_buffer := p_queue_interface_table^.queue_directory.
          cpu_queue_pva_directory [queue_entry_loc_int.queue_index].
          p_cpu_queue^.queue_entries [queue_entry_loc_int.queue_entry_index].
          p_send_buffer;

    RESET p_send_buffer;
    NEXT p_send_buffer_header IN p_send_buffer;
    NEXT p_rpc_buffer_header IN p_send_buffer;
    client_job_id := p_rpc_buffer_header^.client_job_id;
  PROCEND dfp$extract_client_job_id;

?? PUSH (LISTEXT := ON) ??
*copyc dfp$convert_queue_entry_loc
*copyc dfp$get_qit_p_from_direct_index
*copyc dft$cpu_queue
*copyc dft$rpc_queue_entry_location
*copyc dft$rpc_queue_entry_loc_int
*copyc dfd$driver_queue_types
*copyc dft$rpc_buffer_header
?? POP ??
