如何使用Progress 4GL查找对象？

Question

我需要在进度会话中找到一个对象...我不知道该怎么做...只能通过顺序搜索，但如果数量很多，那么它非常昂贵（耗时）对象相对较大。

还有其他办法吗？

define variable myObject As character no-undo.
define variable loop as Progress.Lang.Object no-undo.

assign myObject = "1234".

loop = Session:First-object.
do While valid-object(loop) :

  if (loop:tostring() = myObject) then Do:

    MESSAGE "Found!!!"
      VIEW-AS ALERT-BOX INFO BUTTONS OK.
    leave.

  end.

  loop = loop:Next-sibling.

end.

谢谢。