
{ COMMON DECK CMXSICS }

?? PUSH (LISTEXT := ON) ??
*copyc CLP$CONVERT_INTEGER_TO_STRING
*copyc OSP$SET_STATUS_ABNORMAL
*copyc OSP$APPEND_STATUS_PARAMETER
*copyc CMT$CHANNEL_ORDINAL
*copyc CMT$CHANNEL_TYPE
*copyc CMC$CONDITION_LIMITS
?? POP ??

  PROCEDURE [inline] cmp$set_illegal_channel_status (illegal_channel_number:
    integer;
        condition: ost$status_condition;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      str: ost$string,
      local_status: ost$status;

    clp$convert_integer_to_string (illegal_channel_number, 10, TRUE, str,
          local_status);
    osp$set_status_abnormal (cmc$configuration_management_id, condition, str.
          value (1, str.size), status);

    clp$convert_integer_to_string (ORD (LOWERVALUE (cmt$channel_ordinal)), 10,
          TRUE, str, local_status);
    osp$append_status_parameter (osc$status_parameter_delimiter, str.value (1,
          str.size), status);

    clp$convert_integer_to_string (ORD (UPPERVALUE (cmt$channel_ordinal)), 10,
          TRUE, str, local_status);
    osp$append_status_parameter (osc$status_parameter_delimiter, str.value (1,
          str.size), status);

  PROCEND cmp$set_illegal_channel_status;

?? POP ??
