Module: _dbupdat Library: Clipper 5.3
This module contains the following functions and procedures:
Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally
performed based on the contents of STD.CH and other .CH files
#include "common.ch"
#include "inkey.ch"
//---------------------------------------------------[top]-
// __DBUPDATE( Arg1, Arg2, Arg3, Arg4 )
//
function __DBUPDATE( Arg1, Arg2, Arg3, Arg4 )
local Local1, Local2, Local3, Local4 := .F.
default Arg3 to .F.
goto top
Local1 := Select()
begin sequence
select (Arg1)
goto top
do while ( !EOF() )
Local2 := eval(Arg2)
select (Local1)
if ( Arg3 )
dbSeek(Local2, iif( .F., .T., Nil ))
if ( Found() )
eval(Arg4)
endif
else
do while ( eval(Arg2) < Local2 .AND. !EOF() )
skip
enddo
if ( eval(Arg2) == Local2 .AND. !EOF() )
eval(Arg4)
endif
endif
select (Arg1)
skip
enddo
recover using Local3
Local4 := .T.
end sequence
select (Local1)
if ( Local4 )
break( Local3 )
endif
return .T.
//---EOF
Use your Browser's BACK button to return to Function Listings