store table filenum

tibbotech · Aug 22, 2024 · 00836ee · 00836ee
1 parent 6d2bf3a
commit 00836ee
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/tables/tables.tbh b/tables/tables.tbh
@@ -145,6 +145,7 @@ type tbl_type
 	field_num_offset as word
 	num_of_fields as byte
 	clean_start as no_yes
+	filenum as byte
 end type
 
 type struct_tbl_timestamp

diff --git a/tables/tables.tbs b/tables/tables.tbs
@@ -759,6 +759,8 @@ no_field_found:
 
 		tbl_item.clean_start=NO
 
+		tbl_item.filenum=255
+
 		if tbl_info_index<TBL_MAX_NUM_TABLES then
 			tbl_info(tbl_info_index)=tbl_item	
 		end if
@@ -920,6 +922,7 @@ fail_to_open:
 
 	tbl_info_index=f
 	tbl_selected_file_name=file_name
+	tbl_info(tbl_info_index).filenum=i
 	tbl_get_num_records(tbl_selected_all_rc,YES)
 
 	if fd.transactionstart()<>PL_FD_STATUS_OK then goto fd_error