
{ COMMON DECK CMXVTL }

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

  PROCEDURE [inline] cmp$vsn_too_large (vsn: string ( * <= 31);
        vsn_size: integer;
        condition: ost$status_condition;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

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

    osp$set_status_abnormal (cmc$configuration_management_id, condition, vsn,
          status);

    clp$convert_integer_to_string (vsn_size, 10, FALSE, str, local_status);

    osp$append_status_parameter (osc$status_parameter_delimiter, str.value (1,
          str.size), status);

  PROCEND cmp$vsn_too_large;

?? POP ??
