COMPILE ROUTINE EXPORT_TABLES(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Send_Dyn,Send_Info, Send_Dyn, Set_Status, Btree.Extract,ErrMsg
DECLARE FUNCTION Get_Status, Set_Printer,  ErrMsg

EQU COL$NAME		TO 1
EQU COL$VOLUME		TO 2
EQU COL$REAL_NAME	TO 3
EQU COL$ACCOUNT		TO 4
EQU COL$FILE_SYS	TO 5

EQU CRLF$	TO \0D0A\
EQU TAB$	TO \09\

$INSERT DICT_EQUATES

$INSERT POPUP_EQUATES

TableList = ''

Names		= @TABLES(0)
VolNames	= @TABLES(1)
RealNames	= @TABLES(2)
Accounts	= @TABLES(3)
FileSystems = @TABLES(4)
Handles		= @TABLES(5)
SortedNames = ''

debug

FOR I = 1 TO COUNT(Names,@FM) + (Names NE '')
	Name = Names<I>
	IF Name[1,4] NE 'DICT' AND Name[1,1] NE '!' AND Name[1,3] NE 'SYS' THEN
		LOCATE Name IN SortedNames BY 'AL' USING @FM SETTING POS ELSE
			SortedNames = INSERT(SortedNames,POS,0,0,Name)
			TableList	= INSERT(TableList,POS,0,0,Name)
			TableList	= INSERT(TableList,POS,2,0,FIELD(VolNames<I>,'*',2))
			TableList   = INSERT(TableList,POS,3,0,RealNames<I>)
			TableList	= INSERT(TableList,POS,4,0,Accounts<I>)
			TableList	= INSERT(TableList,POS,6,0,Handles<I>)
			FileSystem = FileSystems<I>
			SWAP @VM WITH ', ' IN FileSystem
			TableList	= INSERT(TableList,POS,5,0,FileSystem)
		END
	END
NEXT I

CONVERT @VM TO TAB$ IN TableList
SWAP @FM WITH CRLF$ IN TableList

debug

OSWRITE TableList ON 'C:\OIReports\TableList.tsv'



* * * * * * *
Bail:
* * * * * * *

END
