
{ PURPOSE:
{   This is the job mode procedure to change the entry status of a job.  The only type of change
{   allowed is from one swapped status to another, so the swapped job count does not have to be
{   changed (swapped job count CANNOT be changed in job mode).

  PROCEDURE [INLINE] jmp$jm_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;

  PROCEND jmp$jm_change_ijl_entry_status;
