Select List problem (OpenInsight 16-Bit Specific)
At 26 MAR 2002 01:38:57AM Mark Ford wrote:
The following code does not create an active select list despite many different approaches. Why?
The exit loop is always taken as @ID='
After the RLIST statement @reccount=57 This is correct.
When the exit route is taken:
@List_Active=0
@file_error=111
status()=0
@user0='
** The SI_QUS file is valid and is attached and open.
declare subroutine RLIST
eof=0
@user0='
counter=1
RLIST("SELECT SI_QUS by @ID",
,,)) IF @RECCOUNT 0 THEN loop ReadNext @ID else eof=1 until eof @user0=@ID counter += 1 repeat end Any help will be very much appeciated. Mark </QUOTE> —- === At 26 MAR 2002 02:45AM Richard Hunt wrote: === <QUOTE>The problem is in your "RLIST" statement… RLIST("SELECT SI_QUS by @ID",,,))The second argument in the "RLIST" statement should be "TARGET_ACTIVELIST$" or "5". That way the selected list remains active for your following readnext loop.
At 28 MAR 2002 01:11AM Mark Ford wrote:
Thank you Richard. Problem solved.
Mark