
  TYPE
    amt$call_block = record
      case operation: amt$fap_operation of
      = amc$abandon_key_definitions =
        ,
      = amc$abort_file_parcel =
        ,
      = amc$apply_key_definitions =
        ,
      = amc$begin_file_parcel =
        begin_file_parcel: amt$begin_file_parcel,
      = amc$check_buffer_req =
        check_buffer: amt$check_buffer_req,
      = amc$check_nowait_request =
        check_nowait_request: amt$check_nowait_request,
      = amc$check_record_req =
        check_record: amt$check_record_req,
      = amc$close_req =
        ,
      = amc$close_volume_req =
        ,
      = amc$commit_file_parcel =
        commit_file_parcel: amt$commit_file_parcel,
      = amc$create_key_definition =
        create_key_definition: amt$create_key_definition,
      = amc$create_nested_file =
        create_nested_file: amt$create_nested_file,
      = amc$delete_req =
        ,
      = amc$delete_direct_req =
        deld: amt$delete_direct_req,
      = amc$delete_key_req =
        delk: amt$delete_key_req,
      = amc$delete_key_definition =
        delete_key_definition: amt$delete_key_definition,
      = amc$delete_nested_file =
        delete_nested_file: amt$delete_nested_file,
      = amc$erase_tape_block =
        erase_tape_block: amt$erase_tape_block,
      = amc$fetch_req =
        fetch: amt$fetch_req,
      = amc$fetch_access_information_rq =
        fai: amt$fetch_access_information_rq,
      = amc$fetch_nested_file_attrib =
        fetch_nested_file_attrib: amt$fetch_nested_file_attrib_rq,
      = amc$find_record_space =
        find_record_space: amt$find_record_space,
      = amc$flush_req =
        flush: amt$flush_req,
      = amc$get_direct_req =
        getd: amt$get_direct_req,
      = amc$get_key_req =
        getk: amt$get_key_req,
      = amc$get_key_definitions =
        get_key_definitions: amt$get_key_definitions,
      = amc$get_lock_keyed_record =
        get_lock_keyed_record: amt$get_lock_keyed_record,
      = amc$get_lock_next_keyed_record =
        get_lock_next_keyed_record: amt$get_lock_next_keyed_record,
      = amc$get_nested_file_definitions =
        get_nested_file_definitions: amt$get_nested_file_definitions,
      = amc$get_next_req =
        getn: amt$get_next_req,
      = amc$get_next_key_req =
        getnk: amt$get_next_key_req,
      = amc$get_next_primary_key_list =
        get_next_primary_key_list: amt$get_next_primary_key_list,
      = amc$get_partial_req =
        getp: amt$get_partial_req,
      = amc$get_primary_key_count =
        get_primary_key_count: amt$get_primary_key_count,
      = amc$get_segment_pointer_req =
        getsegp: amt$get_segment_pointer_req,
      = amc$get_space_used_for_key =
        get_space_used_for_key: amt$get_space_used_for_key,
      = amc$lock_file_req =
        lock_file: amt$lock_file,
      = amc$lock_key =
        lock_key: amt$lock_key,
      = amc$open_req =
        open: amt$open_req,
      = amc$pack_block_req =
        packb: amt$pack_block_req,
      = amc$pack_record_req =
        packr: amt$pack_record_req,
      = amc$put_direct_req =
        putd: amt$put_direct_req,
      = amc$put_key_req =
        putk: amt$put_key_req,
      = amc$put_next_req =
        putn: amt$put_next_req,
      = amc$put_partial_req =
        putp: amt$put_partial_req,
      = amc$putrep_req =
        putrep: amt$putrep_req,
      = amc$read_req =
        rsq: amt$read_req,
      = amc$read_direct_req =
        rba: amt$read_direct_req,
      = amc$read_direct_skip_req =
        rbaskp: amt$read_direct_skip_req,
      = amc$read_skip_req =
        rsqskp: amt$read_skip_req,
      = amc$replace_req =
        replace: amt$replace_req,
      = amc$replace_direct_req =
        repld: amt$replace_direct_req,
      = amc$replace_key_req =
        repk: amt$replace_key_req,
      = amc$rewind_req =
        rewind: amt$rewind_req,
      = amc$rewind_volume_req =
        rewvol: amt$rewind_volume_req,
      = amc$seek_direct_req =
        seekd: amt$seek_direct_req,
      = amc$select_key =
        select_key: amt$select_key,
      = amc$select_nested_file =
        select_nested_file: amt$select_nested_file,
      = amc$separate_key_groups =
        separate_key_groups: amt$separate_key_groups,
      = amc$set_segment_eoi_req =
        segeoi: amt$set_segment_eoi_req,
      = amc$set_segment_position_req =
        segpos: amt$set_segment_position_req,
      = amc$skip_req =
        skp: amt$skip_req,
      = amc$start_req =
        start: amt$start_req,
      = amc$store_req =
        store: amt$store_req,
      = amc$unlock_file_req =
        ,
      = amc$unlock_key =
        unlock_key: amt$unlock_key,
      = amc$unpack_block_req =
        unpackb: amt$unpack_block_req,
      = amc$unpack_record_req =
        unpackr: amt$unpack_record_req,
      = amc$user_defined_access_request =
        user_defined_access_request: amt$user_defined_access_request,
      = amc$write_req =
        wsq: amt$write_req,
      = amc$write_direct_req =
        wba: amt$write_direct_req,
      = amc$write_end_partition_req =
        ,
      = amc$write_tape_mark_req =
        ,
      = ifc$fetch_terminal_req =
        fetch_terminal: ift$fetch_terminal_req,
      = ifc$store_terminal_req =
        store_terminal: ift$store_terminal_req,
      = nac$se_send_data_req =
        se_send_data_req: nat$se_send_data_req,
      = nac$se_receive_data_req =
        se_receive_data_req: nat$se_receive_data_req,
      = nac$se_interrupt_req =
        se_interrupt_data: ^SEQ ( * ),
      = nac$se_synchronize_req =
        se_synchronize_req: nat$se_synchronize_req,
      = nac$se_synchronize_confirm_req =
        ,
      = nac$await_data_available =
        await_data_available: nat$await_data_available,
      = nac$fetch_attributes =
        fetch_attributes: ^nat$get_attributes,
      = nac$store_attributes =
        store_attributes: ^nat$change_attributes,
      = nac$se_get_avail_byte_count_req =
        se_get_available_byte_count: ^nat$data_length,

{ The following call block requests are only available to writers
{ of system faps. These call blocks may not be used by the users
{ of the system.

      = amc$enforce_tape_security =
        enforce_tape_security: ^SEQ ( * ),
      = amc$extend_volume_list =
        extend_volume_list: ^amt$open_tape_volume,
      = amc$dismount_current_volume =
        ,
      = amc$open_tape_volume =
        open_tape_volume: ^amt$open_tape_volume,
      = amc$read_tape_labels =
        read_tape_labels: ^amt$read_tape_labels,
      = amc$terminate_tape_volume =
        terminate_tape_volume: ^amt$terminate_tape_volume,
      = amc$write_tape_labels =
        write_tape_labels: ^SEQ ( * ),
      casend,
    recend,

    amt$check_buffer_req = record
      buffer_area: ^cell,
      request_complete: ^boolean,
      byte_address: ^amt$file_byte_address,
      transfer_count: ^amt$physical_transfer_count,
      wait: ost$wait,
    recend,
    amt$check_record_req = record
      working_storage_area: ^cell,
      request_complete: ^boolean,
      record_length: ^amt$max_record_length,
      file_position: ^amt$file_position,
      wait: ost$wait,
    recend,
    amt$delete_direct_req = record
      byte_address: amt$file_byte_address,
    recend,
    amt$delete_key_req = record
      key_location: ^cell,
      wait: ost$wait,
    recend,
    amt$fetch_access_information_rq = record
      access_information: ^amt$access_information,
    recend,
    amt$fetch_nested_file_attrib_rq = record
      keyed_file_attributes: ^amt$keyed_file_attributes,
    recend,
    amt$fetch_req = record
      file_attributes: ^amt$fetch_attributes,
    recend,
    amt$flush_req = record
      wait: ost$wait,
    recend,
    amt$get_direct_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      transfer_count: ^amt$transfer_count,
      byte_address: amt$file_byte_address,
      file_position: ^amt$file_position,
    recend,
    amt$get_key_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      key_location: ^cell,
      major_key_length: amt$major_key_length,
      key_relation: amt$key_relation,
      record_length: ^amt$max_record_length,
      file_position: ^amt$file_position,
      wait: ost$wait,
    recend,
    amt$get_next_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      transfer_count: ^amt$transfer_count,
      byte_address: ^amt$file_byte_address,
      file_position: ^amt$file_position,
    recend,
    amt$get_next_key_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      key_location: ^cell,
      record_length: ^amt$max_record_length,
      file_position: ^amt$file_position,
      wait: ost$wait,
    recend,
    amt$get_partial_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      record_length: ^amt$max_record_length,
      transfer_count: ^amt$transfer_count,
      byte_address: ^amt$file_byte_address,
      file_position: ^amt$file_position,
      skip_option: amt$skip_option,
    recend,
    amt$get_segment_pointer_req = record
      pointer_kind: amt$pointer_kind,
      segment_pointer: ^amt$segment_pointer,
    recend,
    amt$open_req = record
      local_file_name: amt$local_file_name,
      access_level: amt$access_level,
      existing_file: boolean,
      contains_data: boolean,
    recend,
    amt$pack_block_req = record
      buffer_area: amt$buffer_area,
      header: amt$pack_block_header,
    recend,
    amt$pack_record_req = record
      buffer_area: amt$buffer_area,
      header: amt$record_header,
    recend,
    amt$put_direct_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      byte_address: amt$file_byte_address,
    recend,
    amt$put_key_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      key_location: ^cell,
      wait: ost$wait,
    recend,
    amt$put_next_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      byte_address: ^amt$file_byte_address,
    recend,
    amt$put_partial_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      byte_address: ^amt$file_byte_address,
      term_option: amt$term_option,
    recend,
    amt$putrep_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      key_location: ^cell,
      wait: ost$wait,
    recend,
    amt$read_req = record
      buffer_area: ^cell,
      buffer_length: amt$buffer_length,
      byte_address: ^amt$file_byte_address,
      transfer_count: ^amt$physical_transfer_count,
      wait: ost$wait,
    recend,
    amt$read_direct_req = record
      buffer_area: ^cell,
      buffer_length: amt$buffer_length,
      byte_address: amt$file_byte_address,
      transfer_count: ^amt$physical_transfer_count,
      wait: ost$wait,
    recend,
    amt$read_direct_skip_req = record
      buffer_area: ^cell,
      buffer_length: amt$buffer_length,
      byte_address: amt$file_byte_address,
      transfer_count: ^amt$physical_transfer_count,
      wait: ost$wait,
    recend,
    amt$read_skip_req = record
      buffer_area: ^cell,
      buffer_length: amt$buffer_length,
      byte_address: ^amt$file_byte_address,
      transfer_count: ^amt$physical_transfer_count,
      wait: ost$wait,
    recend,
    amt$replace_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
    recend,
    amt$replace_direct_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      byte_address: amt$file_byte_address,
    recend,
    amt$replace_key_req = record
      working_storage_area: ^cell,
      working_storage_length: amt$working_storage_length,
      key_location: ^cell,
      wait: ost$wait,
    recend,
    amt$rewind_req = record
      wait: ost$wait,
    recend,
    amt$rewind_volume_req = record
      wait: ost$wait,
    recend,
    amt$seek_direct_req = record
      byte_address: amt$file_byte_address,
    recend,
    amt$set_segment_eoi_req = record
      segment_pointer: amt$segment_pointer,
    recend,
    amt$set_segment_position_req = record
      segment_pointer: amt$segment_pointer,
    recend,
    amt$skip_req = record
      direction: amt$skip_direction,
      unit: amt$skip_unit,
      count: amt$skip_count,
      file_position: ^amt$file_position,
    recend,
    amt$start_req = record
      key_location: ^cell,
      major_key_length: amt$major_key_length,
      key_relation: amt$key_relation,
      file_position: ^amt$file_position,
      wait: ost$wait,
    recend,
    amt$store_req = record
      file_attributes: ^amt$store_attributes,
    recend,
    amt$unpack_block_req = record
      buffer_area: amt$buffer_area,
      header: ^amt$unpack_block_header,
    recend,
    amt$unpack_record_req = record
      buffer_area: amt$buffer_area,
      header: ^amt$record_header,
    recend,
    amt$write_req = record
      buffer_area: ^cell,
      buffer_length: amt$buffer_length,
      byte_address: ^amt$file_byte_address,
      wait: ost$wait,
    recend,
    amt$write_direct_req = record
      buffer_area: ^cell,
      buffer_length: amt$buffer_length,
      byte_address: amt$file_byte_address,
      wait: ost$wait,
    recend,
    ift$fetch_terminal_req = record
      terminal_attributes: ^ift$get_connection_attributes,
    recend,
    ift$store_terminal_req = record
      terminal_attributes: ^ift$connection_attributes,
    recend;

*copyc amc$fap_request_codes
*copyc osd$virtual_address
*copyc amt$access_information
*copyc amt$access_level
*copyc amt$attribute_source
*copyc amt$average_record_length
*copyc amt$begin_file_parcel
*copyc amt$block_type
*copyc amt$buffer_area
*copyc amt$buffer_length
*copyc amt$check_nowait_request
*copyc amt$collate_table
*copyc amt$collation_value
*copyc amt$commit_file_parcel
*copyc amt$create_key_definition
*copyc amt$create_nested_file
*copyc amt$data_padding
*copyc amt$delete_key_definition
*copyc amt$delete_nested_file
*copyc amt$erase_tape_block
*copyc amt$error_exit_procedure
*copyc amt$error_limit
*copyc amt$estimated_record_count
*copyc amt$fap_operation
*copyc amt$fetch_attributes
*copyc amt$file_attribute_keys
*copyc amt$file_byte_address
*copyc amt$file_identifier
*copyc amt$file_length
*copyc amt$file_limit
*copyc amt$file_organization
*copyc amt$file_position
*copyc amt$find_record_space
*copyc amt$forced_write
*copyc amt$get_key_definitions
*copyc amt$get_lock_keyed_record
*copyc amt$get_lock_next_keyed_record
*copyc amt$get_nested_file_definitions
*copyc amt$get_next_primary_key_list
*copyc amt$get_primary_key_count
*copyc amt$get_space_used_for_key
*copyc amt$index_padding
*copyc amt$internal_code
*copyc amt$key_length
*copyc amt$key_position
*copyc amt$key_relation
*copyc amt$key_type
*copyc amt$keyed_file_attributes
*copyc amt$label_exit_procedure
*copyc amt$label_type
*copyc amt$last_access_operation
*copyc amt$local_file_name
*copyc amt$lock_file
*copyc amt$lock_key
*copyc amt$major_key_length
*copyc amc$mau_length
*copyc amt$max_block_length
*copyc amt$max_record_length
*copyc amt$message_control
*copyc amt$min_block_length
*copyc amt$min_record_length
*copyc amt$open_tape_volume
*copyc amt$pack_block_header
*copyc amt$padding_character
*copyc amt$physical_transfer_count
*copyc amt$read_tape_labels
*copyc amt$record_header
*copyc amt$record_limit
*copyc amt$record_type
*copyc amt$records_per_block
*copyc amt$segment_pointer
*copyc amt$select_key
*copyc amt$select_nested_file
*copyc amt$separate_key_groups
*copyc amt$skip_count
*copyc amt$skip_direction
*copyc amt$skip_option
*copyc amt$skip_unit
*copyc amt$store_attributes
*copyc amt$tape_mark_count
*copyc amt$term_option
*copyc amt$terminate_tape_volume
*copyc amt$transfer_count
*copyc amt$unlock_key
*copyc amt$unpack_block_header
*copyc amt$user_defined_access_request
*copyc amt$user_info
*copyc amt$vertical_print_density
*copyc amt$working_storage_length
*copyc ift$connection_attributes
*copyc ift$get_connection_attributes
*copyc nat$await_data_available
*copyc nat$change_attributes
*copyc nat$data_length
*copyc nat$get_attributes
*copyc nat$se_receive_data_req
*copyc nat$se_send_data_req
*copyc nat$se_synchronize_req
*copyc ost$activity_status
*copyc ost$status
*copyc ost$wait
