求关于数组的代码片段

adam_0_0_0

我的逻辑是这样的。
我想从表中取出数据，然后存入数组中。之后在遍历数组的数据。
但是我现在对数组一无所知，请高手们能写一个简单的例子。
差不多就是数组如何定义，如何将数据存入数组，还有就是如何循环遍历数组。

在这里谢谢各位了

huangxkst

和C语言一样..


定义数组ar
定义数组下标 i=0
1 setll  yourpf
dow 1=1
read  yourpf

if  %eof(yourpf)
leave
endif

i++
数据存入ar中

enddo

dow i<0
遍历 ar
i--
enddo

adam_0_0_0

感谢你的解答。
我大体上流程知道了，但是现在需要具体的格式，能不能写的具体一点。从来没写过数组，也没看过数组，所以不知道到底定义，赋值，循环是怎样的。

wooacau

0001.00      E                    ARR1   1   5  2   
0002.00      E                    ARR2        5  2   
ARR1是运行前数组，5个元素，每个2位
定义值的时候在程序末尾用**分隔
如果有多个数组则用多个**隔开
0018.00      C                     SETON                     LR      
0019.00 **                                                            
0020.00 AA                                                            
0021.00 BB                                                            
0022.00 CC                                                            
0023.00 DD                                                            
0024.00 EE
ARR2的值在程序中获得   
使用的时候是‘数组名，序号’序号从1开始
遍历数组我不太清楚有啥简洁的方法……
也是个新手- -b

追尾巴

     D array           s              1A   Dim(3)
     C                   Eval      array(1)='T'
     C                   Eval      array(2)='O'
     C                   Eval      array(3)='M'
     c     array(2)      Dsply
     c                   Return

运行结果：
DSPLY  O

追尾巴

遍历数组的办法：
     D array           S              1A   Dim(3)
     D i               S              1s 0
     C                   Eval      array(1)='T'
     C                   Eval      array(2)='O'
     C                   Eval      array(3)='M'
     C                   For       i=1 to 3
     C     array(i)      Dsply
     C                   Endfor
     C                   Return
运行结果：
DSPLY  T
DSPLY  O
DSPLY  M

huangxkst

支持一下

giggsone

楼上的你怎么哪个帖子都支持一下啊

lizi211314

ARR1可以叫常量数组，ARR2叫变量数组。

遍历数组其实就是把数组下标初始值设成1，循环读，每读一次把下标加1就可以了，和遍历数据表是一个道理。

adam_0_0_0

謝謝樓上可給，熱心人太多，不能一一感謝，在這里謝謝所有回帖的的人。