  CONST
    jmc$ftp_boolean_length = 5,
    jmc$ftp_command_length = 255,
    jmc$ftp_ip_addr_length = 15,
    jmc$ftp_port_number_length = 5;

  TYPE
    jmt$ftp_statistic_data = record
      connect_time: ost$non_negative_integers,
      requesting_mainframe_address: string (jmc$ftp_ip_addr_length),
      requesting_port_number: string (jmc$ftp_port_number_length),
      target_mainframe_address: string (jmc$ftp_ip_addr_length),
      target_port_number: string (jmc$ftp_port_number_length),
      command: string (jmc$ftp_command_length),
      successful: string (jmc$ftp_boolean_length),
      bytes_received: ost$non_negative_integers,
      case boolean of
      = FALSE =
        bytes_sent: ost$non_negative_integers,
      = TRUE =
        file_size: ost$non_negative_integers,
      casend,
    recend;

*copyc osd$integer_limits
