Recursive statements to store in variables

[ssimop]

I wonder whether there exists a more elegant way to store content in variables e31 to e36 :

Function tempf14

Code:

Copy      Help

str e31 e32 e33 e34 e35 e36
str do="v"
ARRAY(str) ei.create(7)
for int'i 1 7
,rget(ei[i] F"{do}{i}" "\Alarms" RegQMO)

e31=ei[1]
e32=ei[2]
e33=ei[3]
e34=ei[4]
e35=ei[5]
e36=ei[6]

Many thanks in advance for any advice.

[Gintaras]

Macro Macro2865

Code:

Copy      Help

str e31 e32 e33 e34 e35 e36
str* ei=&e31
for int'i 1 7
,ei[i-1]=i

[ssimop]

Perfect !!!