关于RPGLE当中使用二维数组的问题

neverbackgo

小弟以前一直以为RPGLE中不能使用二维数组，但是某一天发现使用Qualified关键字在D表当中是可以声明二维数组的。

李海隽

1.      H DATEDIT(*YMD)
   
2.      D ARR             DS             4    DIM(6) QUALIFIED
   
3.      D   A1                    1      1
   
4.      D   A2                    2      4
   
5.      D A11             S              1
   
6.      D B13             S              3
   
7.      D I               S              2  0
   
8.      C*
   
9.      C                   EVAL      ARR(1)='A1111'
   
10.      C                   EVAL      ARR(2)='B2222'
    
11.      C                   EVAL      ARR(3)='C3333'
    
12.      C                   EVAL      ARR(4)='D4444'
    
13.      C                   FOR       I=1 TO 4
    
14.      C                   EVAL      A11 = ARR(I).A1
    
15.      C                   EVAL      B13 = ARR(I).A2
    
16.      C     A11           DSPLY
    
17.      C     B13           DSPLY
    
18.      C                   ENDFOR
    
19.      C*
    
20.      C                   SETON                                        LR
    
21.      C                   RETURN

复制代码

举个例子啦。也可以用OVERLAY啦，而且OVERLAY的功能更强悍。上面的代码也可以写成：

1.      D ARR             DS             4    DIM(6)        
   
2.      D   A1                           1A   OVERLAY(ARR:1)
   
3.      D   A2                           3S 0 OVERLAY(ARR:2)

复制代码

[ 本帖最后由 李海隽 于 2007-7-9 14:13 编辑 ]

neverbackgo

小弟发帖一定附例子,看来大家早就知道惭愧啊,论坛高手多多呀