Module: _afields      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]-
//  AFIELDS( Arg1, Arg2, Arg3, Arg4 )
//
function AFIELDS( Arg1, Arg2, Arg3, Arg4 )

   local Local1, Local2
   if ( Empty(Local1 := dbstruct()) )
      return 0
   endif
   Local2 := Len(Local1)
   if ( ISARRAY( Arg1 ) )
      Local2 := Min(Local2, Len(Arg1))
   endif
   if ( ISARRAY( Arg2 ) )
      Local2 := Min(Local2, Len(Arg2))
   endif
   if ( ISARRAY( Arg3 ) )
      Local2 := Min(Local2, Len(Arg3))
   endif
   if ( ISARRAY( Arg4 ) )
      Local2 := Min(Local2, Len(Arg4))
   endif
   if ( ISARRAY( Arg1 ) )
      aeval(Local1, { |_1, _2| Arg1[ _2 ] := _1[ 1 ] }, 1, Local2)
   endif
   if ( ISARRAY( Arg2 ) )
      aeval(Local1, { |_1, _2| Arg2[ _2 ] := _1[ 2 ] }, 1, Local2)
   endif
   if ( ISARRAY( Arg3 ) )
      aeval(Local1, { |_1, _2| Arg3[ _2 ] := _1[ 3 ] }, 1, Local2)
   endif
   if ( ISARRAY( Arg4 ) )
      aeval(Local1, { |_1, _2| Arg4[ _2 ] := _1[ 4 ] }, 1, Local2)
   endif
   return Local2

//---EOF


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