/* Deleting an in-use object lock */

FIND rtb.rtb_object
  WHERE rtb.rtb_object.wspace-id = "<wspace-id>"
    AND rtb.rtb_object.obj-type = "PCODE"
    AND rtb.rtb_object.object = "<object-name>" NO-LOCK.

FOR EACH rtb.rtb_in-use
  WHERE rtb.rtb_in-use.obj-rowid = STRING(ROWID(rtb.rtb_object)):
  DELETE rtb.rtb_in-use.
END.