Module: _dbsort      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 ""
#include ""

//  __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.
   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)
   select (Local1)
   if ( Local5 )
      break( Local4 )
   return .T.


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