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
- function AFIELDS( Arg1, Arg2, Arg3, Arg4 )