
  PROCEDURE [XREF] cmp$check_lcu_lock_set (
     VAR status: ost$status);

*copyc ost$status
