LPARAMETERS tcMessage, tuParm LOCAL lnObjCount, lnCount, loChildBizObj, llRetVal, lcMessageCall IF TYPE("This.RefBizObj") == "O" *--- Get the number of child objects ---* lnObjCount = This.RefBizObj.GetObjectCount() *--- Build the message call ---* IF PCOUNT() = 1 lcMessageCall = "loChildBizObj."+tcMessage+"()" ELSE lcMessageCall = "loChildBizObj."+tcMessage+"(tuParm)" ENDIF *--- Iterate through the child objects and send each one the message ---* FOR lnCount = 1 TO lnObjCount loChildBizObj = This.RefBizObj.Get(lnCount) IF PEMSTATUS(loChildBizObj, tcMessage, 5) llRetVal = &lcMessageCall IF NOT llRetVal EXIT ENDIF ENDIF ENDFOR ENDIF RETURN llRetValRegards,