Code: Select all
ArrayDim>List,13_13
Let>List_1_1=%a%
Let>List_1_2=%shortText%
Let>List_1_3=%quantity%
Let>List_1_4=%unit%
Let>List_2_1=%b%
Let>List_2_2=%shortText1%
Let>List_2_3=%quantity1%
Let>List_2_4=%unit1%
Moderators: Dorian (MJT support), JRL
Code: Select all
ArrayDim>List,13_13
Let>List_1_1=%a%
Let>List_1_2=%shortText%
Let>List_1_3=%quantity%
Let>List_1_4=%unit%
Let>List_2_1=%b%
Let>List_2_2=%shortText1%
Let>List_2_3=%quantity1%
Let>List_2_4=%unit1%
Code: Select all
'define array size
let>cols=4
Let>rows=2
Let>r=0
'assingn each array element
Repeat>r
Add>r,1
Let>c=0
Repeat>c
Add>c,1
Let>List_%r%_%c%={""}
Until>c=cols
Until>r=rows
'assign values
Let>List_1_1=%a%
Let>List_1_2=%shortText%
Let>List_1_3=%quantity%
Let>List_1_4=%unit%
Let>List_2_1=%b%
Let>List_2_2=%shortText1%
Let>List_2_3=%quantity1%
Let>List_2_4=%unit1%
'get array values
Let>tmp=
Let>r=0
Repeat>r
Add>r,1
Let>c=0
Repeat>c
Add>c,1
Concat>%tmp%,List_%r%_%c%
ConCat>%tmp%,%CRLF%
Until>c=cols
Until>r=rows
MessageModal>%tmp%