49 lines
1.9 KiB
Plaintext
49 lines
1.9 KiB
Plaintext
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
|