

  PROCEDURE [INLINE] gfp$lock_fde (fde_p: gft$file_desc_entry_p);


?? PUSH (LISTEXT := ON) ??

   gfp$set_signature_lock (fde_p^.job_lock);
  PROCEND gfp$lock_fde;


*copyc gfp$set_signature_lock
*copyc gft$file_desc_entry_p
?? POP ??
