
  TYPE
    icf_open_file_descriptor = record
      file_id: amt$file_identifier,
      application_name: mlt$application_name,
      partner_id: ict$partner_identification,
      position: amt$file_position,
      last_length: amt$max_record_length,
      record_length: amt$max_record_length,
      last_fap_op: amt$last_access_operation,
      last_status: ost$status_condition,
      opened_for_get: boolean,
      opened_for_put: boolean,
      buff: ^array [mlt$message_length] of 0 .. 0ff(16),
    recend;

  CONST
    icf_short_interval = 1000,
    icf_interval = 10000;

*copyc AMT$FILE_IDENTIFIER
*copyc AMT$FILE_POSITION
*copyc amc$fap_request_codes
*copyc AMT$MAX_RECORD_LENGTH
*copyc ICT$PARTNER_MESSAGES
*copyc MLD$MEMORY_LINK_DECLARATIONS
