  TYPE
    dft$host_application_info = record
      application_name: ost$name,
      p_library_file_path: ^fst$file_reference,
      state_change_procedure_name: pmt$program_name,
      sequence_pointer: ^SEQ ( * ),
      p_attached_file_info: ^array [*] of ^fst$file_reference,
      attached_library_lfn: amt$local_file_name,
      {NOTE: attached_library_lfn is valid only while partner is active
      next_p_application_info: ^dft$host_application_info,
    recend;

*copyc amt$local_file_name
*copyc fst$file_reference
*copyc ost$name
*copyc ost$status
*copyc pmt$program_name
