
{ COMMON DECK CMDDID }

  TYPE
    cmt$device_id = record
      product_id: cmt$product_identification,
      cm_unit_type: cmt$unit_type,
      io_unit_type: iot$unit_type,
      unit_class: cmt$unit_class
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc CMT$PRODUCT_IDENTIFICATION
*copyc CMT$UNIT_TYPE
*copyc CMT$UNIT_CLASS
*copyc IOT$DEVICE_TABLE
?? POP ??
