
  FUNCTION [INLINE] sfp$last_job_limit_chain_entry: ^sft$limit_chain_entry;

?? PUSH (LISTEXT := ON) ??
    VAR
      current_limit_chain_entry: ^sft$limit_chain_entry;

    IF sfv$first_job_limit_chain_entry = NIL THEN
      sfp$last_job_limit_chain_entry := NIL;
    ELSE
      current_limit_chain_entry := sfv$first_job_limit_chain_entry;

    /find_end_of_limit_chain/
      WHILE current_limit_chain_entry^.forward <> NIL DO
        current_limit_chain_entry := current_limit_chain_entry^.forward;
      WHILEND /find_end_of_limit_chain/;
      sfp$last_job_limit_chain_entry := current_limit_chain_entry;
    IFEND;

  FUNCEND sfp$last_job_limit_chain_entry;

*copyc sft$limit_chain_entry
*copyc sfv$job_routing_control_table
?? POP ??
