

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

?? PUSH (LISTEXT := ON) ??

   gfp$verify_get_fde_p (sfid, fde_p, status);
   IF status.normal THEN
     gfp$set_signature_lock (fde_p^.job_lock);
   IFEND;

  PROCEND gfp$verify_get_locked_fde_p;


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