Hi all,

I have a form that can call benchmark method inside and works well.

if glModifyBenchmark then 
	LcBenchAccountToRerun = alltrim(ThisForm.textbox8.value)

	thisform.benchmark(LcBenchAccountToRerun)

else 
	DO rerun
endif

***benchmark method :: inside the form

PARAMETERS lcAcctRerun
LOCAL lcOldCentury, lcOldSetDate,lcUser
*LcTest = LcBenchAccountToRerun
*LcTest2 = glModifyBenchmark

WAIT WINDOW NOWAIT 'Extracting Benchmark...'+lcAcctRerun

SET ASSERTS ON
ASSERT .f.

WAIT WINDOW 'The user is :'+gcUser TIMEOUT .5

WAIT clear

second way : I try but not sure how to pass parameters

how to pass the paramaters by calling benchmark program individually ?

if glModifyBenchmark then 
	LcBenchAccountToRerun = alltrim(ThisForm.textbox8.value)

	do benchmark with ??????
else 
	DO rerun
endif


PROCEDURE benchmark

PARAMETERS lcAcctRerun

LOCAL lcOldCentury, lcOldSetDate
LcTest = LcBenchAccountToRerun
LcTest2 = glModifyBenchmark

? lcAcctRerun

SET ASSERTS ON
ASSERT .f.

? lcAcctRerun

WAIT WINDOW NOWAIT 'Extracting Benchmark...'

The reason to do this because benchmark.prg will be used or called from
many forms.

Please assist to correct my codes.
TIA