63 lines
1.4 KiB
Plaintext
63 lines
1.4 KiB
Plaintext
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
|