  TYPE
    dft$descriptive_data_descriptor = record
      mainframe: pmt$mainframe_id,
      iou: cmt$element_name,
      pp: cmt$element_name,
      ch: cmt$element_name,
      element: cmt$element_name,
      product_id: cmt$product_identification,
      symptom_code: integer,
    recend;

*copyc pmt$mainframe_id
*copyc cmt$element_name
*copyc cmt$product_identification
