DF_FILE_NEXT_OPENED
See Also: Get_Attribute, Set_Attribute, DF_FILE_NEXT_EMPTY, DF_FILE_NEXT_USED
The number of the next opened table (in ascending order).
Level
Table
Supported by
All Drivers
Type
Numeric, temporary
Access
Read Only
Values
0 .. 4095
Remarks
This attribute returns the filelist number of the next opened table (in ascending order). If there is no higher-numbered open table, DF_FILE_NEXT_OPENED is 0 (zero).
Procedure ShowOpenTables
Handle hTable
String sRoot
String sDisplay
String sTable
Showln "Open tables:"
Move 0 To hTable
Repeat
Get_Attribute DF_FILE_NEXT_OPENED Of hTable To hTable
If (hTable > 0) Begin
Get_Attribute DF_FILE_ROOT_NAME Of hTable To sRoot
Get_Attribute DF_FILE_DISPLAY_NAME Of hTable To sDisplay
Get_Attribute DF_FILE_LOGICAL_NAME Of hTable To sTable
Showln " " hTable ": " sTable " (" sRoot ", " sDisplay ")"
End
Until (hTable = 0)
End_Procedure // ShowOpenTables
The sample procedure above determines and displays the filelist numbers and names of all tables open in the current application.