Page History
...
The example below shows a simple routine that looks through a list for a name.
When a match is found the item is moved into view.
...
Mthroutine Name(Find) Define_Map For(*input) Class(#Prim_alph) Name(#Name) Selectlist Named(#List) Continue If(#Surname <> #Name) #List.CurrentItem.EnsureVisible := True Leave Endselect
...
...
Endroutine