
  PROCEDURE [INLINE] cmp$convert_iou_number
    (    iou_number: dst$iou_number;
     VAR iou_name: cmt$element_name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      str: ost$string;

    {
    { This procedure converts an IOU number into an IOU name of
    { the form IOUx where x is an integer value between 0 and 1.
    { For future releases, x could be bigger than one.
    {
    status.normal := TRUE;
    IF (iou_number >= 0) AND (iou_number <= UPPERVALUE (dst$iou_number)) THEN
      iou_name := 'IOU';
      iou_name (4, 1) := $CHAR (iou_number + $INTEGER ('0'));
    ELSE
      clp$convert_integer_to_string (iou_number, {radix} 10,
            {include radix specifier} FALSE, str, status);
      osp$set_status_abnormal (cmc$configuration_management_id,
            cme$invalid_iou_number, str.value, status);
    IFEND;
  PROCEND cmp$convert_iou_number;

*copyc dst$iou_number
*copyc cmt$element_name
*copyc cme$physical_configuration_mgr
*copyc osp$set_status_abnormal
*copyc clp$convert_integer_to_string
?? POP ??

