Dear,
A possibility is following which was put on by Bryce.
Run on kixtart 4.x
code:
break on
DO
$temp=ENUMGROUP($index)
$groups=$temp+",$groups"
$index=$index+1
UNTIL Len($temp) = 0
$groups=split(substr($groups,2,len($groups)),",")
REDIM preserve $groups[ubound($groups)-1]
? "Number of groups @userid is a member of = " ubound($groups)+1
FOR EACH $group IN $groups
? $group
NEXT
another example for kixtart 3.x
code:
DIM $elements[64]
$i=1
WHILE ($i <= 64)
$elements[$i]=$i
$i=$i+1
LOOP
kixtart 3.x doesn't know REDIM command and $ubound function.
Of course we doesn't know what you wnat to assign.
"64" is an example value.
greetings.
