  PROCEDURE [INLINE] dfp$release_task_queue_entry
    (    p_queue_interface_table: dft$p_queue_interface_table;
         queue_index: dft$queue_index;
         queue_entry_index: dft$queue_entry_index;
     VAR status: ost$status);

    VAR
      release_status: dft$release_queue_entry_status;

    dfp$release_queue_entry (p_queue_interface_table, queue_index,
          queue_entry_index, release_status);
    IF release_status = dfc$rqes_entry_released THEN
      status.normal := TRUE;
    ELSE
      osp$set_status_abnormal (dfc$file_server_id, dfe$release_q_entry_error,
            '', status);
      osp$append_status_integer (osc$status_parameter_delimiter, $integer(release_status),
            10, FALSE, status);
    IFEND;

  PROCEND dfp$release_task_queue_entry;
?? PUSH (LISTEXT := ON) ??
*copyc dfd$driver_queue_types
*copyc dfe$error_condition_codes
*copyc dft$queue_index
*copyc dfp$release_queue_entry
*copyc osp$append_status_integer
*copyc osp$set_status_abnormal
*copyc ost$status
?? POP ??

