function mods_install()

$insert logical
$insert msg_equates

declare function fieldcount, msg
declare subroutine set_mfs, define_database

SysTables = 'SYSREPOSAPPNOTES/SYSREPOSEVENTS/SYSREPOSEVENTEXES/SYSREPOSMESSAGES/'
SysTables:= 'SYSREPOSPOPUPS/SYSREPOSREPORTS/SYSREPOSWINS/SYSPROCS/SYSREPOSWINEXES'
convert '/' to @fm in SysTables

DictTables = 'COMPANY/EXPORTS/NAMES/ORDER/QUOTE/RDS/RECIPE/SCHEDULE/INVOICE/WAFER_INV/ANNUAL_CONTRACTS/'
DictTables:= 'CONFIG/COC/REACTOR_LOG/WO_LOG/LOSS_CODES/DESIG_ERR_GRP/ASSIGN_CAUSE/LSL_USERS/'
DictTables:= 'REACT_ITEMS/REACT_UTIL/REACT_PROBS/REACT_SERVS/CALL_VISIT/PROD_SPEC/CUST_INQUIRY/'
DictTables:= 'CAR/TW_CODES/TW_USAGE/NCR/ATTENDANCE/WO_VERIFY/ICAR/MSG_GROUPS/SEC_GROUPS/P_NAMES/'
DictTables:= 'NOTES/NOTE_PTRS/QUOTE_OLD/MEG_LOG/CDM_LOG/SEMI_LOG/SUB_REC_LOG/HOTH2O2_LOG/'
DictTables:= 'PHOTOFLO_LOG/MASTER_DISK_LOG/REACTOR_PM/SRP_INCOMING_LOG/NDA/SPC_CLEAN_SRD/'
DictTables:= 'SPC_CLEAN_SC1/SPC_CLEAN_HF/SPC_CLEAN_HF_ETCH/SPC_WAFER_ETCH/SPC_EVAL_4PP/SPC_EVAL_FTIR/'
DictTables:= 'TW_PRIME_USAGE/SPC_REACTOR_PARTICLES/SRP_COC_RESULTS/REACT_SERV_CAT/REACT_PROB_CAT/'
DictTables:= 'QUARTZ_TC_LOG/QUARTZ_WAND_LOG/SPC_CLEAN_HF_ETCH_AKRION/SPC_CLEAN_HF_AKRION/PROD_SPEC_LOG'
swap '/' with '/DICT.' in DictTables
DictTables = 'DICT.':DictTables
convert '/' to @fm in DictTables

MiscTables = 'LISTBOX_CONFIG'

AllTables = SysTables:@fm:DictTables:@fm:MiscTables
Acnt = fieldcount( AllTables, @fm )
for i = 1 to Acnt
	ThisTable = AllTables<i>
	set_mfs( ThisTable, 'MODS_MFS*LSL2', 3 )
	Err = ''
	if get_status(Err) Then
		Void = msg( '', 'Error while installing MODS_MFS on ':ThisTable )
		return 0
	end	
next i
Err = ''
define_database( "LSL2", True$, '', '' )
if get_status(Err) Then
	Void = msg( '', 'Error while installing DEFINING the LSL2 DATABASE' )
end
MsgInfo = ''
MsgInfo<mtext$> = 'Please log out and back in...'
MsgInfo<micon$> = '!'
Void = msg( '', MsgInfo )	
return 0
