
{ PURPOSE:
{   This is the monitor mode procedure to change the entry status of a job.  The caller
{   of procedure must set the PTL lock if the entry status change is a SWAPPED/NOT SWAPPED
{   transition because the swapped job counts will be changed.

  PROCEDURE [INLINE] jmp$change_ijl_entry_status
    (    ijle_p: ^jmt$initiated_job_list_entry;
         new_entry_status: jmt$ijl_entry_status);

    VAR
      old_entry_status: jmt$ijl_entry_status;

    old_entry_status := ijle_p^.entry_status;

    jmv$ijl_entry_status_statistics [old_entry_status] [new_entry_status] :=
          jmv$ijl_entry_status_statistics [old_entry_status] [new_entry_status] + 1;

    ijle_p^.entry_status := new_entry_status;

    IF (old_entry_status <= jmc$ies_swapin_in_progress) AND
          (new_entry_status > jmc$ies_swapin_in_progress) THEN
      jmp$increment_swapped_job_count (ijle_p);

    ELSEIF (old_entry_status > jmc$ies_swapin_in_progress) AND
          (new_entry_status <= jmc$ies_swapin_in_progress) THEN
      jmp$decrement_swapped_job_count (ijle_p);
    IFEND;

  PROCEND jmp$change_ijl_entry_status;
