Module: _dbupdat      Library: Clipper 5.3


This module contains the following functions and procedures:

function __DBUPDATE( Arg1, Arg2, Arg3, Arg4 )

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