
  PROCEDURE [INLINE] jsp$clear_relink_lock;

    VAR
      jmv$null_ijl_ordinal: [XREF] jmt$ijl_ordinal;

    jsv$ijl_relink_lock.lock := FALSE;
    jsv$ijl_relink_lock.lock_owner := jmv$null_ijl_ordinal;

  PROCEND jsp$clear_relink_lock;

?? PUSH (LISTEXT := ON) ??
*copyc jst$ijl_lock
?? POP ??
