
?? PUSH (LISTEXT := ON) ??
*copyc ost$signature_lock
*copyc OST$STATUS
*copyc OSP$CLEAR_JOB_SIGNATURE_LOCK
?? POP ??

  PROCEDURE [INLINE] iip$clear_lock (VAR lock: ost$signature_lock;
    VAR status: ost$status);

    osp$clear_job_signature_lock (lock);

  PROCEND iip$clear_lock;
