
  TYPE
    dst$header_information = RECORD
      block_type: amt$block_type,
      record_type: amt$record_type,
    RECEND;

*copyc amt$block_type
*copyc amt$record_type
