
{ COMMON DECK CMXSPIS }

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

  PROCEDURE [inline] cmp$set_product_id_status (text: string ( * <= 64);
        product_id: cmt$product_identification;
        condition: ost$status_condition;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??

    VAR
      pid: string (10);

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

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

    osp$append_status_parameter (osc$status_parameter_delimiter, text, status);

  PROCEND cmp$set_product_id_status;

?? POP ??
