
{ This procedure is called when we need access to the job fixed of a job that
{ may or may not have an ajl assigned.

  PROCEDURE [INLINE] jmp$lock_ajl
    (    ijle_p: ^jmt$initiated_job_list_entry;
         ijlo: jmt$ijl_ordinal;
     VAR ajlo: jmt$ajl_ordinal);

    VAR
      ajl_ordinal: jmt$ajl_ordinal,
      status: syt$monitor_status;

    tmp$set_lock (tmv$ptl_lock{, mtc$ignore});
    ajl_ordinal := ijle_p^.ajl_ordinal;
    IF ajl_ordinal = jmc$null_ajl_ordinal THEN
      jmp$assign_ajl_with_lock (ijle_p^.job_fixed_asid, ijlo, jmc$lock_ajl, TRUE {MUST_ASSIGN},
            ajlo, status);
    ELSE
      jmv$ajl_p^ [ajl_ordinal].in_use := jmv$ajl_p^ [ajl_ordinal].in_use + jmc$lock_ajl;
      ajlo := ajl_ordinal;
    IFEND;
    tmp$clear_lock (tmv$ptl_lock);

  PROCEND jmp$lock_ajl;

?? PUSH (LISTEXT := ON) ??
*copyc jmc$ajl_caller
*copyc jmc$null_ajl_ordinal

*copyc jmp$assign_ajl_with_lock
*copyc tmp$clear_lock
*copyc tmp$set_lock

*copyc jmv$ajl_p
*copyc tmv$ptl_lock
?? POP ??

