>define class ParameterX as custom > function This_Access(tcMember) > if type('This.' + tcMember) = 'U' > This.AddProperty(tcMember) > endif > return This > EndFunc > function AddVar(tcMember,tcData) > AddProperty(this,tcMember,tcData) > return This > endfunc >EndDefine >>To use it:
>If Vartype(oMemvar)#'O' > Public oMemvat > oMemvar=CreateObject('parameterX') >EndIf >oMemvar.maxrxs=20 >oMemvar.myothervar='This text' >oMemvar.myLogval=.T.>In your case
>For y = 2 To oMemvar.maxrxs > blah blah blah >Endfor>
>>For y = 2 To 20 >> blah blah blah >>Endfor >> >>To this >> >>For y = 2 To MAXRXS >> blah blah blah >>Endfor >>>>