Module: _dbsdf      Library: Clipper 5.3


This module contains the following functions and procedures:

procedure SDF
function __DBSDF( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8 )

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]-
//  SDF
//
procedure SDF

   return

//---------------------------------------------------[top]-
//  __DBSDF( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8 )
//
function __DBSDF( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8 )

   local Local1, Local2, Local3, Local4 := "SDF"
   if ( Arg1 )
      Local1 := Select()
   else
      Local2 := Select()
   endif
   if ( Empty(Local3 := __fledit(dbstruct(), Arg3)) )
      return .F.
   endif
   if ( Arg1 )
      dbcreate(Arg2, Local3, Local4, .T., "")
      Local2 := Select()
      if ( Local2 == Local1 )
         Local2 := Nil
      endif
      select (Local1)
   else
      if ( !__dbopensd(Arg2, Local3, Local4, .T., "") )
         return .F.
      endif
      Local1 := Select()
   endif
   if ( Local2 != Nil )
      __dbtrans(Local2, Local3, Arg4, Arg5, Arg6, Arg7, Arg8)
   endif
   if ( Arg1 )
      if ( Local2 != Nil )
         select (Local2)
         close
      endif
      select (Local1)
   else
      select (Local1)
      close
      select (Local2)
   endif
   return .T.

//---EOF


Use your Browser's BACK button to return to Function Listings