免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3323 | 回复: 2

关于RPGLE当中使用二维数组的问题 [复制链接]

论坛徽章:
0
发表于 2007-07-09 11:07 |显示全部楼层
小弟以前一直以为RPGLE中不能使用二维数组,但是某一天发现使用Qualified关键字在D表当中是可以声明二维数组的。

论坛徽章:
0
发表于 2007-07-09 14:12 |显示全部楼层
  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 编辑 ]

论坛徽章:
0
发表于 2007-07-13 16:46 |显示全部楼层
小弟发帖一定附例子,看来大家早就知道惭愧啊,论坛高手多多呀
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP