Module: _dbsort      Library: Clipper 5.3


This module contains the following functions and procedures:

function __DBSORT( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7 )

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]-
//  __DBSORT( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7 )
//
function __DBSORT( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7 )

   local Local1, Local2, Local3, Local4, Local5 := .F.
   Local1 := Select()
   if ( Empty(Local3 := dbstruct()) )
      return .F.
   endif
   begin sequence
      dbcreate(Arg1, Local3, Nil, .T., "")
      Local2 := Select()
      select (Local1)
      __dbarrang(Local2, Local3, Arg3, Arg4, Arg5, Arg6, Arg7, Arg2)
   recover using Local4
      Local5 := .T.
   end sequence
   if ( Local2 != Nil )
      select (Local2)
      close
   endif
   select (Local1)
   if ( Local5 )
      break( Local4 )
   endif
   return .T.

//---EOF


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