Module: _dblist      Library: Clipper 5.3


This module contains the following functions and procedures:

function __DBLIST( 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]-
//  __DBLIST( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
//
function __DBLIST( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
   Arg9, Arg10 )

   local Local1, Local2, Local3, Local4, Local5, Local6 := .F.
   if ( Arg1 )
      Local1 := { || ( QOut(iif( Deleted(), "*", " " )), aeval(Arg2, ;
         { |_1| QQOut(eval(_1), "") }) ) }
   else
      Local1 := { || ( QOut(Str(RecNo(), 7), iif( Deleted(), "*", " " ;
         )), aeval(Arg2, { |_1| QQOut(eval(_1), "") }) ) }
   endif
   if ( !Empty(Arg9) )
      Local2 := Set(_SET_PRINTER, .T.)
   endif
   if ( !Empty(Arg10) )
      if ( Empty(At(".", Arg10)) )
         Arg10 := Arg10 + ".TXT"
      endif
      Local4 := Set(_SET_EXTRA, .T.)
      Local3 := Set(_SET_EXTRAFILE, Arg10)
   endif
   begin sequence
      if ( Empty(Arg3) .AND. Empty(Arg4) .AND. Empty(Arg5) .AND. ;
            Empty(Arg6) .AND. Empty(Arg7) .AND. Empty(Arg8) )
         eval(Local1)
      else
         DBEval(Local1, Arg4, Arg5, Arg6, Arg7, Arg8)
      endif
   recover using Local5
      Local6 := .T.
   end sequence
   if ( !Empty(Arg9) )
      set printer (Local2)
   endif
   if ( !Empty(Arg10) )
      Set(_SET_EXTRAFILE, Local3)
      Set(_SET_EXTRA, Local4)
   endif
   if ( Local6 )
      break( Local5 )
   endif
   return Nil

//---EOF


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