Module: _dbdelim      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]-
//  DELIM
//
procedure DELIM

   return

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

   local Local1, Local2, Local3, Local4 := "DELIM"
   if ( Arg1 )
      Local1 := Select()
   else
      Local2 := Select()
   endif
   if ( Empty(Local3 := __fledit(dbstruct(), Arg4)) )
      return .F.
   endif
   if ( Arg1 )
      dbcreate(Arg2, Local3, Local4, .T., "", Arg3)
      Local2 := Select()
      if ( Local2 == Local1 )
         Local2 := Nil
      endif
      select (Local1)
   else
      if ( !__dbopensd(Arg2, Local3, Local4, .T., "", Arg3) )
         return .F.
      endif
      Local1 := Select()
   endif
   if ( Local2 != Nil )
      __dbtrans(Local2, Local3, Arg5, Arg6, Arg7, Arg8, Arg9)
   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