?? RIGHT := 110 ??
MODULE bam$tables;
?? TITLE := 'NOS/VE :  Basic Access Method' ??
?? NEWTITLE := '  [XDCL] COMMON VARIABLE DECLARATIONS', EJECT ??
{}
{   This module contains static variables for basic access method routines.}
{}
?? PUSH (LISTEXT := ON) ??
*copyc amt$fap_pointer
*copyc amt$file_position
*copyc bap$lrt_ss_undef_tape_fap
*copyc bap$lrt_ss_var_tape_fap
*copyc bap$lrt_us_ansi_d_tape_fap
*copyc bap$lrt_us_ansi_s_tape_fap
*copyc bap$lrt_us_fixed_tape_fap
*copyc bap$lrt_us_undef_tape_fap
*copyc bap$sys_blk_fixed_rec_fap
*copyc bap$sys_blk_undefined_rec_fap
*copyc bap$sys_blk_variable_rec_fap
*copyc bap$trailing_char_delimited_fap
*copyc bap$us_blk_fixed_rec_fap
*copyc bap$us_blk_undefined_rec_fap
*copyc bap$us_blk_variable_rec_fap
*copyc bat$block_header
*copyc bat$block_info
*copyc bat$global_file_information
*copyc bat$labeled_tape_state_info
*copyc bat$record_info
*copyc bat$system_file_attributes
*copyc bat$tape_descriptor
*copyc fst$attachment_options_sources
*copyc fst$job_environment_information
*copyc fmt$static_label_header
*copyc fst$tape_attachment_information
*copyc osd$virtual_address
*copyc oss$job_paged_literal
*copyc rmc$unspecified_vsn
?? POP ??

  CONST
    default_ring_number = 11;

?? FMT (FORMAT := OFF) ??

?? NEWTITLE := '[XDCL] bav$default_attachment_sources', EJECT ??
    VAR
      bav$default_attachment_sources: [XDCL, READ, oss$job_paged_literal]
            fst$attachment_options_sources := [
        { access_modes_source } amc$access_method_default,
        { error_exit_name_source } amc$undefined_attribute,
        { error_limit_source } amc$undefined_attribute,
        { label_exit_name_source } amc$undefined_attribute,
        { message_control_source } amc$access_method_default,
        { open_position_source } amc$access_method_default];
?? OLDTITLE ??

?? NEWTITLE := '[XDCL] bav$default_block_info', EJECT ??
  VAR
    bav$default_block_info: [XDCL, #GATE, READ, oss$job_paged_literal]
          bat$block_info := [
      { block_number } 1,
      { block_position } *,
      { current_block_byte_address } 0,
      { current_block_length } 0,
      { previous_block_header_fba } 0,
      { residual_block_length } 0];
?? OLDTITLE ??

?? NEWTITLE := '[XDCL] bav$default_record_info', EJECT ??
  VAR
    bav$default_record_info: [XDCL, #GATE, READ, oss$job_paged_literal]
          bat$record_info := [
      { bor_address } 0,
      { current_byte_address } 0,
      { file_position } amc$boi,
      { record_header_fba } 0,
      { record_length } 0,
      { residual_record_length } 0,
      { transfer_count } 0];
?? OLDTITLE ??
?? NEWTITLE := '[XDCL] bav$labeled_tape_state_info', EJECT ??
  VAR
    bav$labeled_tape_state_info: [XDCL, #GATE, READ, oss$job_paged_literal]
          bat$labeled_tape_state_info := [
        { buffered_blocks } 0,
        { character_conversion } FALSE,
        { character_set } amc$ascii,
        { eof1_block_count } 0,
        { eoi_labels_needed } FALSE,
        { file_access } bac$read,
        { maximum_block_length } 1,
        { maximum_record_length } 0,
        { padding_character } ' ',
        { put_op } FALSE,
        { translated_block_padding_char } '^',
        { translated_record_padding_char } ' ',
        { ve_wrote_ansi_file } TRUE];
?? OLDTITLE ??

?? NEWTITLE := '[XDCL] bav$magnetic_tape_device_faps', EJECT ??
  VAR
    bav$magnetic_tape_device_faps: [XDCL, #GATE, READ, oss$job_paged_literal]
         array [amt$block_type] of array [amt$record_type] of amt$fap_pointer:=
     [
      [ {SS/V}  ^bap$lrt_ss_var_tape_fap,
        {SS/U}  ^bap$lrt_ss_undef_tape_fap,
        {SS/F}  NIL,
        {SS/S}  NIL,
        {SS/D}  NIL,
        {SS/T}  NIL],
      [ {US/V}  ^bap$lrt_ss_var_tape_fap, {allows maxbl to exceed 4128}
        {US/U}  ^bap$lrt_us_undef_tape_fap,
        {US/F}  ^bap$lrt_us_fixed_tape_fap,
        {US/S}  ^bap$lrt_us_ansi_s_tape_fap,
        {US/D}  ^bap$lrt_us_ansi_d_tape_fap,
        {US/T}  NIL]
                    ];
?? OLDTITLE ??

?? NEWTITLE := '[XDCL] bav$mass_storage_device_faps', EJECT ??
  VAR
    bav$mass_storage_device_faps: [XDCL, #GATE, READ, oss$job_paged_literal]
         array [amt$block_type] of array [amt$record_type] of amt$fap_pointer:=
     [
      [ {SS/V}  ^bap$sys_blk_variable_rec_fap,
        {SS/U}  ^bap$sys_blk_undefined_rec_fap,
        {SS/F}  ^bap$sys_blk_fixed_rec_fap,
        {SS/S}  NIL,
        {SS/D}  NIL,
        {SS/T}  ^bap$trailing_char_delimited_fap],
      [ {US/V}  ^bap$us_blk_variable_rec_fap,
        {US/U}  ^bap$us_blk_undefined_rec_fap,
        {US/F}  ^bap$us_blk_fixed_rec_fap,
        {US/S}  NIL,
        {US/D}  NIL,
        {US/T}  NIL]
                    ];

?? OLDTITLE ??

?? NEWTITLE := '[XDCL] bav$rms_library_refrence', EJECT ??
  VAR
    bav$rms_library_reference: [XDCL, #GATE, READ, oss$job_paged_literal]
       record
         entry_point: pmt$program_name,
         object_library: string (33),
       recend :=[
        'RSP$RMS_FAP                    ',
        '$SYSTEM.RMS.RSF$BOUND_PRODUCT_333'];

?? OLDTITLE ??


?? NEWTITLE := '[XDCL] fmv$system_file_attributes', EJECT ??
    VAR
      fmv$static_label_header: [XDCL, #GATE, READ, oss$job_paged_literal]
            fmt$static_label_header := [
        {unique_character} fmc$unique_label_id,
        {revision_level} fmc$current_revision_level,
        {highest_attribute_present} 0,
        {highest_attribute_supported} fmc$highest_current_attribute,
        {job_routing_label_size} 0,
        {default_revision_level} 1,
        {user_attribute_length} 0,
        {filler} ' ',
        {attribute_present} [REP amc$max_attribute of FALSE],
        {file_previously_opened} TRUE,
        {ring_attributes} [default_ring_number, default_ring_number, default_ring_number],
        {ring_attributes_source} amc$access_method_default];

?? OLDTITLE ??

?? NEWTITLE := '[XDCL] fmv$system_file_attributes', EJECT ??
    VAR
      fmv$system_file_attributes: [oss$job_paged_literal, XDCL, #GATE, READ]
        bat$system_file_attributes := [[

        { static label }

        { block_type } amc$system_specified,
        { item_source } amc$access_method_default,
        { character_conversion } FALSE,
        { item_source } amc$access_method_default,
        { item.clear_space } FALSE,
        { item_source } amc$access_method_default,
        { item.file_access_procedure } osc$null_name,
        { item_source } amc$undefined_attribute,
        { item.file_contents } amc$unknown_contents,
        { item_source } amc$access_method_default,
        { item.file_limit } osc$max_segment_length,
        { item_source } amc$access_method_default,
        { item.file_organization } amc$sequential,
        { item_source } amc$access_method_default,
        { file_processor } amc$unknown_processor,
        { item_source } amc$access_method_default,
        { file_structure } amc$unknown_structure,
        { item_source } amc$access_method_default,
        { forced_write } amc$unforced,
        { item_source } amc$access_method_default,
        { item.internal_code } amc$ascii,
        { item_source } amc$access_method_default,
        { item.label_type } amc$unlabelled,
        { item_source } amc$access_method_default,
        { item.line_number } [1,1],
        { item_source } amc$undefined_attribute,
        { item.max_block_length } 4128,
        { item_source } amc$access_method_default,
        { item.max_record_length } 256,
        { item_source } amc$access_method_default,
        { item.min_block_length } 18,
        { item_source } amc$access_method_default,
        { item.min_record_length } 0,
        { item_source } amc$access_method_default,
        { item.padding_character } ' ',
        { item_source } amc$access_method_default,
        { item.page_format } amc$burstable_form,
        { item_source } amc$access_method_default,
        { item.page_length } 60,
        { item_source } amc$access_method_default,
        { item.page_width } 132,
        { item_source } amc$access_method_default,
        { item.preset_value } 0,
        { item_source } amc$access_method_default,
        { item.record_delimiting_character } $CHAR(10) { lf },
        { item_source } amc$access_method_default,
        { item.record_type } amc$variable { v } ,
        { item_source } amc$access_method_default,
        { item.ring_attributes } [default_ring_number, default_ring_number, default_ring_number],
        { item_source } amc$access_method_default,
        { statement_identifier } [1,1],
        { statement_identifier_source } amc$undefined_attribute,
        { item.user_info } osc$null_name,
        { item_source } amc$undefined_attribute,
        { vertical_print_density } 6,
        { vertical_print_density_source } amc$access_method_default,
        { item.average_record_length } 1 ,
        { item_source } amc$undefined_attribute,
        { collate_table } [rep 33 of 0,
                          34, 23,  5, 16,  2,  6,  7, 21, 13, 17, 15, 20, 18,
                          12, 19, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 53,
                          14, 24, 22,  9,  8,  1, 25, 26, 27, 28, 29, 30, 31,
                          32, 33, 35, 36, 37, 38, 39, 40, 41, 42, 43, 45, 46,
                          47, 48, 49, 50, 51, 52,  3, 10, 44, 11,  4, rep 160 of 0],
        { collate_table_source } amc$undefined_attribute,
        { collate_table_name } osc$null_name,
        { collate_table_name_source } amc$undefined_attribute,
        { compression_procedure_name } [osc$null_name, osc$null_name],
        { compression_procedure_name_source } amc$undefined_attribute,
        { item.data_padding } 0,
        { item_source } amc$access_method_default,
        { dynamic_home_block_space } FALSE,
        { dynamic_home_block_space_source } amc$access_method_default,
        { item.embedded_key } TRUE,
        { item_source } amc$access_method_default,
        { item.estimated_record_count } 0 ,
        { item_source } amc$undefined_attribute,
        { hashing_procedure_name } ['AMP$SYSTEM_HASHING_PROCEDURE   ', osc$null_name],
        { hashing_procedure_name_source } amc$undefined_attribute,
        { item.index_levels } 2 ,
        { item_source } amc$access_method_default,
        { item.index_padding } 0,
        { item_source } amc$access_method_default,
        { initial_home_block_count } 1,
        { initial_home_block_count_source } amc$access_method_default,
        { item.key_length } 1 ,
        { item_source } amc$undefined_attribute,
        { item.key_position } 0,
        { item_source } amc$access_method_default,
        { item.key_type } amc$uncollated_key,
        { item_source } amc$access_method_default,
        { loading_factor } 90,
        { loading_factor_source } amc$access_method_default,
        { lock_expiration_time } 60000,
        { lock_expiration_time_source } amc$access_method_default,
        { logging_options } $amt$logging_options [],
        { logging_options_source } amc$undefined_attribute,
        { log_residence } osc$null_name,
        { log_residence_source } amc$undefined_attribute,
        { item.record_limit } amc$file_byte_limit,
        { item_source } amc$undefined_attribute,
        { item.records_per_block } amc$max_records_per_block,
        { item_source } amc$undefined_attribute
        { recend; } ],

        { dynamic label } [

        { access_mode } $pft$usage_selections [pfc$read, pfc$shorten,
        pfc$modify, pfc$append, pfc$execute],
        { item_source } amc$access_method_default,
        { error_exit_name } osc$null_name,
        { error_exit_name_source } amc$undefined_attribute,
        { error_exit_procedure } NIL,
        { error_exit_procedure source } amc$undefined_attribute,
        { error_options } [TRUE, amc$terminate_file_access],
        { error_options_source } amc$access_method_default,
        { label_exit_name } osc$null_name,
        { label_exit_name_source } amc$undefined_attribute,
        { label exit procedure } NIL,
        { label_exit procedure source } amc$undefined_attribute,
        { item.label_options } * ,
        { item_source } amc$undefined_attribute,
        { item.open_position } amc$open_at_boi,
        { item_source } amc$access_method_default,
        { open_share_modes } $fst$file_access_options [fsc$read, fsc$shorten,
        fsc$append, fsc$modify, fsc$execute],
        { open_share_modes_source } amc$access_method_default,
        { return_option } amc$return_at_job_exit,
        { item_source } amc$access_method_default,
        { item.error_limit } * ,
        { item_source } amc$undefined_attribute,
        { item.message_control } $amt$message_control [],
        { item_source } amc$access_method_default
        { recend; } ],

        { descriptive label } [

        { application_info } osc$null_name,
        { application_info_source } amc$local_file_information,
        { global_access_mode } $pft$usage_selections [pfc$read, pfc$shorten,
        pfc$append, pfc$modify, pfc$execute],
        { item_source } amc$local_file_information,
        { global_file_name } [0, osc$cyber_180_model_unknown, 1980, 8, 12, 0, 0, 0, 0, 0],
        { item_source } amc$local_file_information,
        { global_share_mode } $pft$share_selections [],
        { item_source } amc$local_file_information,
        { internal_cycle_name } [0, osc$cyber_180_model_unknown, 1980, 8, 12, 0, 0, 0, 0, 0],
        { item_source } amc$local_file_information,
        { permanent_file } FALSE,
        { item_source } amc$local_file_information
        { recend; } ]];
?? OLDTITLE ??

?? NEWTITLE := '[XDCL] fmv$global_file_information', EJECT ??
    VAR
      fmv$global_file_information: [oss$job_paged_literal, XDCL, #GATE, READ]
        bat$global_file_information := [
        { open_count } 0,
        { open_lock } [0],
        { implicit_detach_inhibited } FALSE,
        { asis_bor_address } 0,
        { asis_file_position } amc$boi,
        { asis_open_address } 0,
        { cycle_damage_symptoms } [],
        { device_dependent_info } [rmc$mass_storage_device, NIL],
        { eoi_byte_address } 0,
        { eoi_set } FALSE,
        { error_status } 0,
        { file_limit } amc$file_byte_limit,
        { last_access_operation } *,
        { max_block_size } 4128 + #SIZE(bat$block_header),
        { max_data_size} 4128,
        { max_record_length } 256,
        { min_block_length } 18,
        { opened_access_modes } [rep 5 of 0],
        { padding_character } ' ',
        { positioning_info } [[1,bac$beginning_of_block,0,0,0,0],
                              [0,0,amc$boi,0,0,0,0]],
        { prevented_open_access_modes } [rep 5 of 0],
        { record_delimiting_character } $CHAR(10) { lf }];
?? OLDTITLE ??

?? NEWTITLE := '[XDCL] fmv$tape_descriptor', EJECT ??
    VAR
      fmv$tape_descriptor: [oss$job_paged_literal, XDCL, #GATE, READ]
        bat$tape_descriptor := [

        { at_eoi } FALSE,
        { block_management_descriptor } NIL,
        { error_options } [
          { perform_failure_recovery } TRUE,
          { error_action } amc$terminate_file_access],
        { failure_isolation } [
          { failed_at_current_position } TRUE,
          { failure_modes } $amt$tape_failure_modes []],
        { file_label_type } amc$labelled,
        { forced_write } FALSE,
        { get_tape_block_buffer } NIL,
        { initial_volume} [
          {access_modes } $fst$file_access_options [],
          {assigned } FALSE,
          {classification } *,
          {header_labels } NIL,
          {initial_read_labels_attempt } TRUE],
        { labeled_volume_position } bac$lvp_beginning_of_file_set,
        { last_accessed } [
          { secured_header_labels } NIL,
          { secured_trailer_labels } NIL,
          { unsecured_header_labels } NIL,
          { unsecured_trailer_labels } NIL ],
        { last_data_operation } amc$rewind_req,
        { next_position } [
          { file_section_number } 1,
          { file_sequence_number } 1 ],
        { put_tape_block_buffer } NIL,
        { requested_density } rmc$1600,
        { rewind_file_command } FALSE,
        { tape_attachment_information } [
          { block_type } amc$system_specified,
          { block_type_source } fsc$tape_label_attr_default,
          { buffer_offset } 0,
          { buffer_offset_source } fsc$tape_label_attr_default,
          { character_conversion } FALSE,
          { character_conversion_source } fsc$tape_label_attr_default,
          { character_set } amc$ascii,
          { character_set_source } fsc$tape_label_attr_default,
          { creation_date } '  ',
          { creation_date_source } fsc$tape_label_attr_default,
          { expiration_date } '1900000',
          { expiration_date_source } fsc$tape_label_attr_default,
          { file_accessibility } ' ',
          { file_accessibility_source } fsc$tape_label_attr_default,
          { file_identifier } '  ',
          { file_identifier_source } fsc$tape_label_attr_default,
          { file_section_number } 1,
          { file_section_number_source } fsc$tape_label_attr_default,
          { file_sequence_number } 1,
          { file_sequence_number_source } fsc$tape_label_attr_default,
          { file_set_identifier } '  ',
          { file_set_identifier_source } fsc$tape_label_attr_default,
          { file_set_position } [fsc$tape_next_file],
          { file_set_position_source } fsc$tape_label_attr_default,
          { generation_number } 1,
          { generation_number_source } fsc$tape_label_attr_default,
          { generation_version_number } 0,
          { generation_version_num_source } fsc$tape_label_attr_default,
          { label_standard_version } '4',
          { label_standard_version_source } fsc$tape_label_attr_default,
          { max_block_length } 4128,
          { max_block_length_source } fsc$tape_label_attr_default,
          { max_record_length } 256,
          { max_record_length_source } fsc$tape_label_attr_default,
          { owner_identifier } '  ',
          { owner_identifier_source } fsc$tape_label_attr_default,
          { padding_character } ' ',
          { padding_character_source } fsc$tape_label_attr_default,
          { record_type } amc$variable,
          { record_type_source } fsc$tape_label_attr_default,
          { removable_media_group } ' ',
          { removable_media_group_source } fsc$tape_label_attr_default,
          { rewrite_labels } FALSE ,
          { rewrite_labels_source } fsc$tape_label_attr_default,
          { supplied_file_set_pos_fields } [],
          { system_code } '  ' ,
          { system_code_source } fsc$tape_label_attr_default,
          { volume_accessibility } 'A',
          { volume_accessibility_source } fsc$tape_label_attr_default,
          { volume_initialization } FALSE],
        { tape_label_attr_command_info } [
          { block_type } amc$system_specified,
          { block_type_source } fsc$tape_label_attr_default,
          { buffer_offset } 0,
          { buffer_offset_source } fsc$tape_label_attr_default,
          { character_conversion } FALSE,
          { character_conversion_source } fsc$tape_label_attr_default,
          { character_set } amc$ascii,
          { character_set_source } fsc$tape_label_attr_default,
          { creation_date } '  ',
          { creation_date_source } fsc$tape_label_attr_default,
          { expiration_date } '1900000',
          { expiration_date_source } fsc$tape_label_attr_default,
          { file_accessibility } ' ',
          { file_accessibility_source } fsc$tape_label_attr_default,
          { file_identifier } '  ',
          { file_identifier_source } fsc$tape_label_attr_default,
          { file_section_number } 1,
          { file_section_number_source } fsc$tape_label_attr_default,
          { file_sequence_number } 1,
          { file_sequence_number_source } fsc$tape_label_attr_default,
          { file_set_identifier } '  ',
          { file_set_identifier_source } fsc$tape_label_attr_default,
          { file_set_position } [fsc$tape_next_file],
          { file_set_position_source } fsc$tape_label_attr_default,
          { generation_number } 1,
          { generation_number_source } fsc$tape_label_attr_default,
          { generation_version_number } 0,
          { generation_version_num_source } fsc$tape_label_attr_default,
          { label_standard_version } '4',
          { label_standard_version_source } fsc$tape_label_attr_default,
          { max_block_length } 4128,
          { max_block_length_source } fsc$tape_label_attr_default,
          { max_record_length } 256,
          { max_record_length_source } fsc$tape_label_attr_default,
          { owner_identifier } '  ',
          { owner_identifier_source } fsc$tape_label_attr_default,
          { padding_character } ' ',
          { padding_character_source } fsc$tape_label_attr_default,
          { record_type } amc$variable,
          { record_type_source } fsc$tape_label_attr_default,
          { removable_media_group } ' ',
          { removable_media_group_source } fsc$tape_label_attr_default,
          { rewrite_labels } FALSE ,
          { rewrite_labels_source } fsc$tape_label_attr_default,
          { supplied_file_set_pos_fields } [],
          { system_code } '  ' ,
          { system_code_source } fsc$tape_label_attr_default,
          { volume_accessibility } 'A',
          { volume_accessibility_source } fsc$tape_label_attr_default,
          { volume_initialization } FALSE],
        { volume_number } 1,
        { volume_position } amc$bov ];
?? OLDTITLE ??

?? NEWTITLE := '[XDCL] fmv$tape_attachment_information', EJECT ??
    VAR
      fmv$tape_attachment_information: [oss$job_paged_literal, XDCL, #GATE, READ]
        fst$tape_attachment_information := [

        { block_type } amc$system_specified,
        { block_type_source } fsc$tape_label_attr_default,
        { buffer_offset } 0,
        { buffer_offset_source } fsc$tape_label_attr_default,
        { character_conversion } FALSE,
        { character_conversion_source } fsc$tape_label_attr_default,
        { character_set } amc$ascii,
        { character_set_source } fsc$tape_label_attr_default,
        { creation_date } '  ',
        { creation_date_source } fsc$tape_label_attr_default,
        { expiration_date } '1900000',
        { expiration_date_source } fsc$tape_label_attr_default,
        { file_accessibility } ' ',
        { file_accessibility_source } fsc$tape_label_attr_default,
        { file_identifier } '  ',
        { file_identifier_source } fsc$tape_label_attr_default,
        { file_section_number } 1,
        { file_section_number_source } fsc$tape_label_attr_default,
        { file_sequence_number } 1,
        { file_sequence_number_source } fsc$tape_label_attr_default,
        { file_set_identifier } '  ',
        { file_set_identifier_source } fsc$tape_label_attr_default,
        { file_set_position } [fsc$tape_next_file],
        { file_set_position_source } fsc$tape_label_attr_default,
        { generation_number } 1,
        { generation_number_source } fsc$tape_label_attr_default,
        { generation_version_number } 0,
        { generation_version_num_source } fsc$tape_label_attr_default,
        { label_standard_version } '4',
        { label_standard_version_source } fsc$tape_label_attr_default,
        { max_block_length } 4128,
        { max_block_length_source } fsc$tape_label_attr_default,
        { max_record_length } 256,
        { max_record_length_source } fsc$tape_label_attr_default,
        { owner_identifier } '  ',
        { owner_identifier_source } fsc$tape_label_attr_default,
        { padding_character } ' ',
        { padding_character_source } fsc$tape_label_attr_default,
        { record_type } amc$variable,
        { record_type_source } fsc$tape_label_attr_default,
        { removable_media_group } ' ',
        { removable_media_group_source } fsc$tape_label_attr_default,
        { rewrite_labels } FALSE ,
        { rewrite_labels_source } fsc$tape_label_attr_default,
        { supplied_file_set_pos_fields } [],
        { system_code } '  ' ,
        { system_code_source } fsc$tape_label_attr_default,
        { volume_accessibility } 'A',
        { volume_accessibility_source } fsc$tape_label_attr_default,
        { volume_initialization } FALSE];
?? OLDTITLE ??

?? NEWTITLE := '[XDCL] fsv$default_job_environ_info', EJECT ??
    VAR
      fsv$default_job_environ_info: [oss$job_paged_literal, XDCL, #GATE, READ]
            fst$job_environment_information := [

        { attached_access_modes } -$fst$file_access_options [],
        { attached_share_modes } $fst$file_access_options [],
        { concurrent_open_count } 0,
        { connected_files } NIL,
        { cycle_attached } FALSE,
        { error_exit_procedure_name } osc$null_name,
        { error_limit } 0,
        { job_file_address } 0,
        { job_file_position } amc$boi,
        { job_write_concurrency } FALSE,
        { label_exit_procedure_name } osc$null_name,
        { mass_storage_free_behind } FALSE,
        { mass_storage_sequential_access } FALSE,
        { message_control } $amt$message_control [],
        { open_position } amc$open_at_boi,
        { prevented_open_access_modes } $fst$file_access_options [],
        { private_read } [FALSE],
        { setfa_access_modes } $fst$file_access_options [],
        { specified_attachment_options } $fst$specified_attach_options [],
        { transfer_size } 0,
        { volume_list } NIL,
        { volume_number } 1,
        { volume_overflow_allowed } FALSE,
        { attachment_options_sources } [amc$access_method_default, amc$undefined_attribute,
                                        amc$undefined_attribute, amc$undefined_attribute,
                                        amc$access_method_default, amc$access_method_default]];

?? FMT (FORMAT := ON) ??

MODEND bam$tables;

