Hi Coaan. Instead make a more generic function like this.
FUNCTION Totalmf()
PARAMETERS pcRace, pcSex
lnCount = 0
SELECT emp
COUNT TO lnCount FOR ;
emp.Resign = .F. AND ;
emp.Race = pcRace AND ;
emp.Sex = pcSex
RETURN lnCount
This code allows you to reuse the routine for any new races (or genders) that are needed. You would use it call it once for each race and gender needed.
>Can anyone tell me what wrong on this code
>
>------------------------------------------------------------------
>
>Function Totalmf
>
>tmm=0
>tmf=0
>tcm=0
>tcf=0
>tim=0
>tif=0
>tom=0
>tof=0
>
>Sele Emp
>Set Filter To Resign = .f.
>Go Top
>
>Do While !Eof()
>Do Case
> Case Sex='M' .And. Race ='Malay'
> Tmm=tmm+1
>
> Case Sex='F' .And. Race = 'Malay'
> tmf=tmf+1
>
> Case Sex='M' .And. Race='Chinese'
> tcm=tcm+1
>
> Case Sex='F' .And. Race='Chinese'
> tcf=tcf+1
>
> Case Sex='M' .And. Race='India'
> tim=tim+1
>
> Case Sex='F' .And. Race='India'
> tif=tif+1
>
> Case Sex='M' .And. Race='Other'
> tom=tom+1
>
> Case Sex='F' .And. Race='Other'
> tof=tof+1
>EndCase
>Skip
>EndDo
>
>Return (tmm,tmf,tcm,tcf,tim,tif,tom,tof)
>EndFunc
>------------------------------------------------------------------
>
>
>
>The Error Message when compile is : -
>Return (tmm,tmf,tcm,tcf,tim,tif,tom,tof)
>Error in line 107: Function name is missing ).