
  PROCEDURE [XREF] clp$f_set_substitution_mark
    (    substitution_mark: string (1));
