
  PROCEDURE [INLINE] gfp$mtr_get_locked_fde_p
    (    sfid: gft$system_file_identifier;
         ijle_p: ^jmt$initiated_job_list_entry;
     VAR fde_p: gft$locked_file_desc_entry_p);

?? PUSH (LISTEXT := ON) ??

    gfp$mtr_get_fde_p (sfid, ijle_p, fde_p);
*if $true(gfc$monitor_interlocks)
    IF gfc$monitor_interlocks THEN
      mtp$set_interlock (fde_p^.monitor_lock);
    IFEND;
*ifend

  PROCEND gfp$mtr_get_locked_fde_p;

*copyc gfp$mtr_get_fde_p
*copyc gft$locked_file_desc_entry_p
*copyc gft$system_file_identifier
*copyc jmt$initiated_job_list_entry
*if $true(gfc$monitor_interlocks)
*copyc gfc$monitor_interlocks
*copyc mtp$set_interlock
*ifend
?? POP ??
