
  FUNCTION [INLINE] sfp$job_limit_chain_entry
    (    limit_name: ost$name): ^sft$limit_chain_entry;

?? PUSH (LISTEXT := ON) ??

    VAR
      current_limit_chain_entry: ^sft$limit_chain_entry,
      local_limit_name: ost$name;

{ Handle the case where the old name for the CPU time limit is specified.

    IF limit_name = avc$cp_time_limit_name THEN
      local_limit_name := avc$cpu_time_limit_name;
    ELSE
      local_limit_name := limit_name;
    IFEND;

    current_limit_chain_entry := sfv$first_job_limit_chain_entry;

  /search_for_limit_chain_entry/
    WHILE (current_limit_chain_entry <> NIL) AND
          (current_limit_chain_entry^.limit.name <> local_limit_name) DO
      current_limit_chain_entry := current_limit_chain_entry^.forward;
    WHILEND /search_for_limit_chain_entry/;
    sfp$job_limit_chain_entry := current_limit_chain_entry;

  FUNCEND sfp$job_limit_chain_entry;

*copyc avc$system_defined_limit_names
*copyc ost$name
*copyc sft$limit_chain_entry
*copyc sfv$job_routing_control_table
?? POP ??
