
  TYPE
    pft$archive_identification = record
      application_identifier: ost$name,
      media_identifier: pft$archive_media_identifier,
    recend;

*copyc ost$name
*copyc pft$archive_media_identifier
