Aufruf: API Funktionen

LONG = APIASum(aArray AS STRING @ , nDimension AS LONG)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG
Rückgabe per Reverenz:
	aArray AS STRING

Code: API Funktionen

FUNCTION APIASum (aArray AS STRING @,nDimension AS LONG ) AS LONG
	*/ DECLARE LONG ASum IN vfp2c32.fll AS APIASum STRING @aArray,LONG nDimension
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN ASum()
		CASE PCOUNT()=1
			RETURN ASum(@m.aArray)
		CASE PCOUNT()=2
			RETURN ASum(@m.aArray,m.nDimension)
	ENDCASE
ENDFUNC