
  CONST
    jmc$ca_input_file = 1,
    jmc$ca_output_file = 2,
    jmc$ca_output_queue_residency = 3,
    jmc$ca_print_file = 4,
    jmc$ca_submit_job = 5,
    jmc$ca_standard_output_file = 6,
    jmc$ca_request_pf_transfer = 7,
    jmc$ca_target_pf_transfer = 8,
    jmc$ca_origin_qf_transfer = 9,
    jmc$ca_dest_qf_transfer = 10,
    jmc$ca_interactive_interval = 11,
    jmc$ca_ftp_client_ctrl_connect = 12,
    jmc$ca_ftp_client_data_connect = 13,
    jmc$ca_ftp_server_ctrl_connect = 14,
    jmc$ca_ftp_server_data_connect = 15,
    jmc$ca_last_statistic = jmc$ca_ftp_server_data_connect,
    jmc$ca_max_statistic = 0ff(16);

  TYPE
    jmt$ca_statistic_kind = 0 .. jmc$ca_max_statistic;

  TYPE
    jmt$comm_acct_statistic_data = record
      case statistic_id: jmt$ca_statistic_kind of
      = jmc$ca_input_file =
        input_file: ^jmt$input_file_statistic_data,
      = jmc$ca_output_file =
        output_file: ^jmt$output_file_statistic_data,
      = jmc$ca_output_queue_residency =
        output_queue_residency: ^jmt$output_queue_residency_data,
      = jmc$ca_print_file =
        print_file: ^jmt$print_file_statistic_data,
      = jmc$ca_submit_job =
        submit_job: ^jmt$submit_job_statistic_data,
      = jmc$ca_standard_output_file =
        ,
      = jmc$ca_request_pf_transfer =
        request_perm_file_transfer: ^jmt$ptf_statistic_data,
      = jmc$ca_target_pf_transfer =
        target_perm_file_transfer: ^jmt$ptf_statistic_data,
      = jmc$ca_origin_qf_transfer =
        origin_queue_file_transfer: ^jmt$qtf_statistic_data,
      = jmc$ca_dest_qf_transfer =
        dest_queue_file_transfer: ^jmt$qtf_dest_statistic_data,
      = jmc$ca_interactive_interval =
        ,
      = jmc$ca_ftp_client_ctrl_connect, jmc$ca_ftp_client_data_connect,
        jmc$ca_ftp_server_ctrl_connect, jmc$ca_ftp_server_data_connect =
        ftp_statistics: ^jmt$ftp_statistic_data,
      casend,
    recend;

*copyc jmt$input_file_statistic_data
*copyc jmt$output_file_statistic_data
*copyc jmt$output_queue_residency_data
*copyc jmt$print_file_statistic_data
*copyc jmt$submit_job_statistic_data
*copyc jmt$ftp_statistic_data
*copyc jmt$ptf_statistic_data
*copyc jmt$qtf_statistic_data
*copyc jmt$qtf_dest_statistic_data
