
  FUNCTION [INLINE] osp$status_condition_code
    (    identifier: ost$status_identifier;
         number: ost$status_condition_code): ost$status_condition_code;

?? PUSH (LISTEXT := ON) ??

    VAR
      condition_code: ost$status_condition_code,
      code_breakdown: record
        identifier: ost$status_identifier,
        number: ost$status_condition_number,
      recend;

    IF number <= osc$max_status_condition_number THEN
      code_breakdown.identifier := identifier;
      code_breakdown.number := number;
      #UNCHECKED_CONVERSION (code_breakdown, condition_code);
      osp$status_condition_code := condition_code;
    ELSE
      osp$status_condition_code := number;
    IFEND;

  FUNCEND osp$status_condition_code;

*copyc ost$status_condition_code
*copyc ost$status_condition_number
*copyc ost$status_identifier
?? POP ??
