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
