  PROCEDURE [XREF] ocp$define_program (parameter_list: clt$parameter_list;
    VAR status: ost$status);

