65 lines
1.9 KiB
Plaintext
65 lines
1.9 KiB
Plaintext
function mods_load_control()
|
|
|
|
$insert logical
|
|
$insert rlist_equates
|
|
$insert msg_equates
|
|
declare function utility, msg, set_property, get_property
|
|
declare subroutine record_lock
|
|
|
|
Stmt = 'SELECT MODS BY PRIORITY BY APP BY TABLE BY ROW BY UPDATE_TYPE BY MOD_DATE BY MOD_TIME' ;* WE HAVE REMOVED ALL DUPLICATES
|
|
;* SO NOW ALL WE HAVE TO DO IS APPLY IN THE
|
|
;* ORDER THAT THEY WERE PERFORMED
|
|
|
|
Stat = utility( 'CURSOR', 'H' )
|
|
|
|
rlist( Stmt, target_activelist$, '', '', '' )
|
|
|
|
Stat = utility( 'CURSOR', 'A' )
|
|
|
|
UpdatedRows = 0
|
|
if @reccount then
|
|
Array = ''
|
|
Stat = utility( 'CURSOR', 'H' )
|
|
open 'MODS' to ModsTable else
|
|
Void = msg( '', 'Unable to open MODS...' )
|
|
return 0
|
|
end
|
|
Eof = false$
|
|
loop
|
|
readnext Id else Eof = true$
|
|
until eof
|
|
RowToUse = xlate( 'MODS', Id, '', 'X' )
|
|
Priority = xlate( 'MODS', Id, 'PRIORITY', 'X' )
|
|
App = field( Id, '`', 1 )
|
|
Table = field( Id, '`', 2 )
|
|
Row = field( Id, '`', 3 )
|
|
Date = oconv( field( Id, '`', 4 ), 'D2/' )
|
|
Time = oconv( field( Id, '`', 5 ), 'MTH' )
|
|
UpdateType = field( Id, '`', 6 )
|
|
|
|
Array<1,-1> = App
|
|
Array<2,-1> = Priority
|
|
Array<3,-1> = Table
|
|
Array<4,-1> = Row
|
|
Array<5,-1> = Date
|
|
Array<6,-1> = Time
|
|
Array<7,-1> = UpdateType
|
|
|
|
if len( Array ) > 64000 then
|
|
Void = set_property( @window:'.MOD_ROWS', 'ARRAY', CurArray )
|
|
Stat = utility( 'CURSOR', 'A' )
|
|
MsgInfo = ''
|
|
MsgInfo<mtext$> = 'Too many Keys truncating...'
|
|
MsgInfo<micon$> = '!'
|
|
Void = msg( '', MsgInfo )
|
|
Void = set_property( @window:'.MOD_ROWS', 'ARRAY', Array )
|
|
return 0
|
|
end
|
|
repeat
|
|
Void = set_property( @window:'.MOD_ROWS', 'ARRAY', Array )
|
|
Stat = utility( 'CURSOR', 'A' )
|
|
end
|
|
return 0
|
|
|
|
|