
  PROCEDURE [INLINE] osp$find_status_message_level
    (VAR status_message_level: ^ost$status_message_level);

?? PUSH (LISTEXT := ON) ??

    VAR
      ignore_object_in_current_task: boolean,
      object: ^clt$environment_object_contents;


    clp$find_environment_object (clc$eo_message_level, object,
          ignore_object_in_current_task);

    status_message_level := object;

  PROCEND osp$find_status_message_level;

*copyc ost$status_message_level
?? POP ??
*copyc clp$find_environment_object
