
  PROCEDURE [INLINE] tmp$get_xcb_access_status
    (    ijle_p: ^jmt$initiated_job_list_entry;
         ijl_ordinal: jmt$ijl_ordinal;
     VAR inhibit_access: boolean);

?? PUSH (LISTEXT := ON)  ??

{  The purpose of this procedure is to return whether or not the xcb of the specified
{  job can be accessed.  If the job is swapped but io has not yet been initiated,
{  an ajl entry will be assigned.  If an ajl entry exists then the in use count will be
{  incremented.  It is the responsibility of the caller to release the ajl entry.
{
{  NOTE:  The caller must have tmv$ptl_lock set.

    VAR
      ajlo: jmt$ajl_ordinal;

    IF (ijle_p^.swap_status > jmc$inhibit_xcb_access) OR
          (ijle_p^.entry_status = jmc$ies_job_terminating) THEN
      inhibit_access := TRUE;
    ELSE
      inhibit_access := FALSE;
      jmp$lock_ajl_with_lock (ijle_p, ijl_ordinal, ajlo);
    IFEND;

  PROCEND tmp$get_xcb_access_status;

*copyc jmt$ajl_ordinal
*copyc jmt$initiated_job_list_entry
*copyc jmp$lock_ajl_with_lock
?? POP ??
