
{ COMMON DECK CMXIUN }

?? PUSH (LISTEXT := ON) ??
*copyc OSP$SET_STATUS_ABNORMAL
*copyc CLP$CONVERT_INTEGER_TO_STRING
*copyc cme$physical_configuration_mgr
?? POP ??

  PROCEDURE [inline] cmp$illegal_unit_number (illegal_unit_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_unit_number, 10, TRUE, str,
          local_status);

    osp$set_status_abnormal (cmc$configuration_management_id, condition, str.
          value (1, str.size), status);

  PROCEND cmp$illegal_unit_number;

?? POP ??
