added LSL2 stored procedures

LSL2/STPROC/EXPORT_TABLES.txt

@@ -0,0 +1,62 @@
+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