>Is there a way of looping while the index expression remains true to the seek?
>
>

>SEEK disp_off + curr_d_rm + DTOS( disp_date )
>
>DO WHILE SeekExpressionRemainsTrue
>     Do Something
>ENDDO
>

eTagvalue=disp_off + curr_d_rm + DTOS( disp_date )
Select mytable
Set order to tag myindextag
Seek eTagvalue
Scan While disp_off + curr_d_rm + DTOS(disp_date)==eTagvalue

Endscan