
{ COMMON DECK CMXSUPI }

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

  PROCEDURE [inline] cmp$set_unknown_product_id (product_id:
    cmt$product_identification;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??

    VAR
      pid: string (9);

    pid := product_id.product_number;
    pid (6, 1) := product_id.underscore;
    pid (6, 3) := product_id.model_number;

    osp$set_status_abnormal (cmc$configuration_management_id,
          cme$unknown_product_id, pid, status);

  PROCEND cmp$set_unknown_product_id;

?? POP ??
