
{ COMMON DECK CMXATNF }

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

  PROCEDURE [inline] cmp$address_type_not_found (address_type: 0 .. 0ffff(16);
        condition: ost$status_condition;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

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

    clp$convert_integer_to_string (address_type, 16, TRUE, str, local_status);

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

  PROCEND cmp$address_type_not_found;

?? POP ??
