 TYPE
    cmt$pp_identification = record
      ordinal: cmt$pp_ordinal,
      iou: cmt$element_name,
    recend;

*copyc cmt$element_name
*copyc cmt$pp_ordinal

