
  PROCEDURE [INLINE] gfp$get_locked_fde_p (sfid: gft$system_file_identifier;
    VAR fde_p: gft$file_desc_entry_p);

?? PUSH (LISTEXT := ON) ??

   gfp$get_fde_p (sfid, fde_p);
   IF fde_p <> NIL THEN
     gfp$set_signature_lock (fde_p^.job_lock);
   IFEND;

  PROCEND gfp$get_locked_fde_p;

*copyc gfp$get_fde_p
*copyc gfp$set_signature_lock
*copyc gft$file_desc_entry_p
*copyc gft$locked_file_desc_entry_p
*copyc gft$system_file_identifier
?? POP ??
