FOR i = 1 TO oChild.DataParameters.COUNT > cPar = oChild.DataParameters.GETKEY(i) > xVal = oChild.DataParameters.ITEM(i) >* addproperty(oChild, cpar, xval) > oChild.ADDPROPERTY(cPar, xVal) >ENDFOR>
local.... loPara = oChild.DataParameters && if item or getkey are arrays, perhaps do acopy ? lnEnd = loPara.COUNT && we are betting against doc, so.... FOR i = 1 TO m.lnEnd cPar = loPara.GETKEY(i) xVal = loPara.ITEM(i) store .f. to llOk, llOkMeth &&& case of error and garbled error handling llOk = addproperty(oChild, cpar, xval) if ! m.llOk *** log perhaps as 1. step llOkMeth = oChild.ADDPROPERTY(cPar, xVal) if ! m.llOkMeth *** on purpose put result values in locals, had 1 case involving with... whre return stack was corrupted endif endif ENDFOR