added LSL2 stored procedures

LSL2/STPROC/FIX_EXPORTS.txt

@@ -0,0 +1,45 @@
+COMPILE ROUTINE FIX_EXPORTS(Dummy)
+ROWDEF (CHARSTR)
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN
+
+
+$INSERT EXPORTS_EQU
+
+OPEN "EXPORTS" TO TableIn ELSE
+	Send_Info('Puked on table open')
+	GOTO Bail
+END
+
+Select TableIn
+
+Done		= 0
+RecCnt		= 0
+SchedNos	= ''
+
+LOOP
+	READNEXT ExportName ELSE Done = 1
+UNTIL Done
+	READ ExportRec FROM TableIn,ExportName THEN
+		RecCnt += 1
+		IF ExportRec<EXPORTS_ENTRY_ID$> = 'MATT_L' THEN
+			IF ExportRec<EXPORTS_SHARABLE$> = 0 THEN
+				ExportRec<EXPORTS_SHARABLE$> = 1
+				WRITE ExportRec ON TableIn,ExportName THEN
+					Send_Dyn(ExportName:' - ':ExportRec<EXPORTS_ENTRY_ID$>:' - ':ExportRec<EXPORTS_SHARABLE$>)
+				END
+			END
+		END
+	END 
+REPEAT
+
+
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END