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

?? PUSH (LISTEXT := ON) ??

  { This procedure converts an iou name of the form IOUx (where
  { x is an integer value between 0 and 1) into the equivalent
  { iou number. Iou name must be in Upper case.

      status.normal := TRUE;
      IF iou_name = 'IOU0                           ' THEN
        iou_number := 0;
      ELSEIF iou_name = 'IOU1                           ' THEN
        iou_number := 1;
      ELSE
        osp$set_status_abnormal (cmc$configuration_management_id,
             cme$invalid_iou_name, iou_name, status);
      IFEND;

   PROCEND cmp$convert_iou_name;

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

