
  TYPE
    cmt$product_identification = record
      product_number: cmt$product_number,
      underscore: string (1), {Must be a '_' character }
      model_number: cmt$model_number,
    recend,

    cmt$product_number = string (6), {One to 5 numeric char, rjbf.}

    cmt$model_number = string (3) {One to 3 numeric char, ljbf.} ;
