don't forget the ITEMCNT function
If sequence is unimportantSET VAR tList TEXT = ('1,2,3,4,5')SET VAR tCnt
INTEGER = (ITEMCNT(.tLIST)) -- THIS RETURNS VALUE OF 5
WHILE tCnt > 0 THEN
SET VAR vText = (SSUB(.tList,.tCnt))-- do calculations
SET VAR tCnt = (.tCnt - 1)ENDWHILE
otherwise if sequence is important
SET VAR tList TEXT = ('1,2,3,4,5')
SET VAR tCnt INTEGER = (ITEMCNT(.tLIST)) -- THIS RETURNS VALUE OF 5
SET VAR tIndex INT = 0WHILE tCnt > 0 THEN
SET VAR tIndex = (.tIndex + 1)
SET VAR tTextTerm = (SSUB(.tList, .tIndex))-- do calculations
SET VAR tCnt = (.tCnt - 1)ENDWHILE
Both cases establish a definitive number of times to loop whichcan be better
optimized. It also eliminates the if test to terminate
the loop thus speeding up execution.
Jim Bentley, American Celiac Society 1-504-305-2968
From: 'Lawrence Lustig' via RBASE-L <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Friday, February 17, 2017 7:15 AM
Subject: Re: [RBASE-L] - DECLARE CURSOR Source Data Array
<<Is there an "elegant" way to do this with a simple array of values:
DECLARE CursorName CURSOR FOR (1,2,3,4,5)
... where we're stepping through the array WITHOUT drawing upon a source table?
>>
Is this expected to produce five iterations with one value each time, or one
iteration with five values?
If you want five iterations of the loop with one value each time, and the
values are guaranteed not to contain commas (which will be true if they're
numeric values) then you can do this:
SET VAR tList TEXT = ('1,2,3,4,5')SET VAR tIndex INT = 0
WHILE 1 = 1 THEN
SET VAR tIndex = (.tIndex + 1) SET VAR tTextTerm = (SSUB(.tList,
.tIndex)) IF tTextTerm IS NULL THEN BREAK ENDIF
-- Cast to appropriate type if not TEXT SET VAR tIntTerm INT =
(INT(.tTextTerm))
-- Meaningful code here
ENDWHILE
CLEAR VAR tList, tIndex, tTextTerm, tIntTermRETURN
You can construct more complex scenarios by pulling two or three terms off the
list for each iteration, or using a different character to separate fields and
records in the list. This is also suitable for use with LISTOF(), getting a
list of values from a table and then iterating over the list without the
cursor.--Larry #yiv7531283079 #yiv7531283079 --
body{font-size:12pt;}#yiv7531283079 --
You received this message because you are subscribed to the Google Groups
"RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
--
You received this message because you are subscribed to the Google Groups
"RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
