*copyc MLD$MEMORY_LINK_DECLARATIONS
*copyc zn7tfet
*copyc AMT$FILE_IDENTIFIER
*copyc AMT$LOCAL_FILE_NAME
*copyc JMT$ROUTING_EXTERNAL
*copyc RHC$CONSTANTS
  { IRHF TYPES
  {
  {

  TYPE
    rht$function_status = (successful, non_fatal_error, unsuccessful,
      fatal_error),
    rht$status = successful .. non_fatal_error,
    rht$exec_status = (beginning, middle, unrecoverable_error),
    rht$acquire_status = (acquired, not_acquired),
    rht$dc_lid_string = packed record
      lid1: 0 .. 3fffffff(16),
      lid2: 0 .. 3fffffff(16),
    recend,
    rht$lid_list = array [1 .. 10] of rht$dc_lid_string,
    rht$mli_link_direction = (on, off),
    rht$file_data_buffer = array [1 .. rhc$max_message_length + 1] of integer,
    rht$file_data_buffer_pointer = ^rht$file_data_buffer,
    rht$request_type = (get, replace),
    rht$irhf_exec_types = (transmit_exec, receive_exec, prif_pj_exec, pj_exec),
    rht$machine_types = (a170, c180, nuder),
    rht$log_destinations = (dayfile_log, dayfile_log_and_display, display_in_system_log),
    rht$log_status_message = string ( * ),
    rht$data_message_length = mlt$message_length,
    rht$pf_functions = rhc$get_pf .. rhc$replace_pf,
    rht$permanent_file_types = (indirect_access, direct_access),
    rht$file_type = (direct, indirect),
    rht$file_status_type = (new, old),
    rht$trans_status_type = (ok, a170_error, c180_error),
    rht$pj_functions = rhc$submit_pj .. rhc$status_pj,
    rht$pj_status = rhc$job_not_found .. rhc$job_found,
    rht$ascii812_char = packed record
      filler: 0 .. 0f(16),
      ascii88_char: char,
    recend,
    rht$c180_ascii812_word = packed record
      filler: 0 .. 0f(16),
      ascii812_char1: rht$ascii812_char,
      ascii812_char2_5: packed array [2 .. 5] of rht$ascii812_char,
    recend,
    rht$mli_application_name = record
      case name_ref_type: (application_name, a170_id, c180_id) of
      = application_name =
        application_name: mlt$application_name,
      = a170_id =
        a170_id: packed record
          application_identifier: 0 .. 37777777(16),
          filler: 0 .. 3fffffff(16),
        recend,
      = c180_id =
        c180_id: packed record
          filler1: 0 .. 0f(16),
          application_identifier: 0 .. 3fffffff(16),
          filler2: 0 .. 3fffffff(16),
        recend,
      casend,
    recend,
    rht$mli_application_names = record
      application: rht$mli_application_name,
      destination: rht$mli_application_name,
    recend,
    rht$mli_message_info = record
      message_area: mlt$message_ptr,
      message_area_length: mlt$message_length,
      message_length: mlt$message_length,
      arbitrary_info: mlt$arbitrary_info,
    recend,
    rht$local_file_info = record
      case machine_type: rht$machine_types of
      = a170 =
        fet: n7t$fet,
      = c180 =
        local_file_name: amt$local_file_name,
        file_identifier: amt$file_identifier,
      casend,
    recend,
    rht$queue_file_info = record
      case machine_type: rht$machine_types of
      = a170 =
        a170: record
          file_name: record
            case machine_type: rht$machine_types of
            = a170 =
              a170_job_name: string (7),
            = c180 =
              c180_file_name: string (31),
            casend,
          recend,
          form_code: string (2),
          repeat_count: 0 .. jmc$routing_repeat_count_max,
          family_name_of_creator: record
            case machine_type: rht$machine_types of
            = a170 =
              a170_creator_family_name: string (9),
            = c180 =
              c180_creator_family_name: string (31),
            casend,
          recend,
          user_number_of_owner: record
            case machine_type: rht$machine_types of
            = a170 =
              a170_owner_user_num: string (9),
            = c180 =
              c180_owner_user_num: string (31),
            casend,
          recend,
          user_password: string(31),
          user_charge_number: string(31),
          user_project_number: string(31),
          original_family_name: record
            case machine_type: rht$machine_types of
            = a170 =
              a170_original_family_name: string (9),
            = c180 =
              c180_original_family_name: string (31),
            casend,
          recend,
          original_user_name: record
            case machine_type: rht$machine_types of
            = a170 =
              a170_original_user_name: string (9),
            = c180 =
              c180_original_user_name: string (31),
            casend,
          recend,
          original_charge_number: string(31),
          original_project_number: string(31),
          logical_identifier: record
            case machine_type: rht$machine_types of
            = a170 =
              a170_logical_identifier: string (3),
            = c180 =
              c180_logical_identifier: string (31),
            casend,
          recend,
          implicit_text_size: 0 .. 0fff(16),
          implicit_routing_text: string(256),
          dual_state_routing_text_size: 0 .. 0fff(16),
          dual_state_routing_text: string(255),
        recend,
      = c180 =
        c180: packed record
          file_name: record
            case machine_type: ALIGNED [0 MOD 8] rht$machine_types of
            = a170 =
              a170_job_name: ALIGNED [0 MOD 8] array [1 .. 2] of
                rht$c180_ascii812_word,
            = c180 =
              c180_file_name: ALIGNED [0 MOD 8] array [1 .. 7] of
                rht$c180_ascii812_word,
            casend,
          recend,
          filler2: 0 .. 0f(16),
          form_code_char1: rht$ascii812_char,
          form_code_char2: rht$ascii812_char,
          filler3: 0 .. 0fffffffff(16),
          repeat_count: integer,
          family_name_of_creator: record
            case machine_type: ALIGNED [0 MOD 8] rht$machine_types of
            = a170 =
              a170_creator_family_name: ALIGNED [0 MOD 8] array [1 .. 2] of
                rht$c180_ascii812_word,
            = c180 =
              c180_creator_family_name: ALIGNED [0 MOD 8] array [1 .. 7] of
                rht$c180_ascii812_word,
            casend,
          recend,
          user_number_of_owner: record
            case machine_type: ALIGNED [0 MOD 8] rht$machine_types of
            = a170 =
              a170_owner_user_num: ALIGNED [0 MOD 8] array [1 .. 2] of
                rht$c180_ascii812_word,
            = c180 =
              c180_owner_user_num: ALIGNED [0 MOD 8] array [1 .. 7] of
                rht$c180_ascii812_word,
            casend,
          recend,
          user_password: ALIGNED [0 MOD 8] array [1 .. 7] of
            rht$c180_ascii812_word,
          user_charge_number: ALIGNED [0 MOD 8] array [1 .. 7] of
            rht$c180_ascii812_word,
          user_project_number: ALIGNED [0 MOD 8] array [1 .. 7] of
            rht$c180_ascii812_word,
          original_family_name: record
            case machine_type: ALIGNED [0 MOD 8] rht$machine_types of
            = a170 =
              a170_original_family_name: ALIGNED [0 MOD 8] array [1 .. 2] of
                rht$c180_ascii812_word,
            = c180 =
              c180_original_family_name: ALIGNED [0 MOD 8] array [1 .. 7] of
                rht$c180_ascii812_word,
            casend,
          recend,
          original_user_name: record
            case machine_type: ALIGNED [0 MOD 8] rht$machine_types of
            = a170 =
              a170_original_user_name: ALIGNED [0 MOD 8] array [1 .. 2] of
                rht$c180_ascii812_word,
            = c180 =
              c180_original_user_name: ALIGNED [0 MOD 8] array [1 .. 7] of
                rht$c180_ascii812_word,
            casend,
          recend,
          original_charge_number: ALIGNED [0 MOD 8] array [1 .. 7] of
            rht$c180_ascii812_word,
          original_project_number: ALIGNED [0 MOD 8] array [1 .. 7] of
            rht$c180_ascii812_word,
          logical_identifier: record
            case machine_type: ALIGNED [0 MOD 8] rht$machine_types of
            = a170 =
              a170_logical_identifier: ALIGNED [0 MOD 8] array [1 .. 1] of
                rht$c180_ascii812_word,
            = c180 =
              c180_logical_identifier: ALIGNED [0 MOD 8] array [1 .. 7] of
                rht$c180_ascii812_word,
            casend,
          recend,
          filler9a: 0 .. 0fffffffffff(16),
          filler9b: 0 .. 0ff(16),
          implicit_text_size: 0 .. 0fff(16),
          implicit_routing_text: ALIGNED [0 MOD 8] array [1 .. 52] of
               rht$c180_ascii812_word,
          fillera10: 0 .. 0f(16),
          filler10: 0 .. 0ffffffffffff(16),
          dual_state_routing_text_size: 0 .. 0fff(16),
          dual_state_routing_text: ALIGNED [0 MOD 8] array [1 .. 51] of
            rht$c180_ascii812_word,
        recend,
      = nuder =
        equalizer: ALIGNED [0 MOD 8] array [1 .. 184] of integer,
      casend,
    recend;

{ ***************************** END OF COMMON DECK RHDTYPE
{**************************** }
