询问这个RPG的语句

Question

今天看公司的程序，有这个不明白的地方，请各位帮忙下，谢谢
第一问
Do *HIVAL
read LSPMT
enddo

*HIVAL是定位在最后一句记录麽，那read不是只能得到最后一句记录吗？
第二问
4 SUBST #MTTXT:10 #PACK
SUB 是减法 和subst有什么不同   "：10"是什么意思

先谢谢各位了

Answer 1

1: 第一个没有 LEAVE是死循环了。
2：subst是截取字段的一部分，%subst string:star(:length). 比如%subst (aaa:1:2) 就是取AAA字段，第一位开始，取2位。

Answer 2

SUBST 是子串的意思

Answer 3

Do *HIVAL
read LSPMT
enddo

do没有问题。
read记录后没有处理或计数，有问题。或许有关联的指示器，楼主没有贴出完整代码。
就这样代码，对代码运行没有问题，就是耗费系统资源。

Answer 4

Do *HIVAL
read LSPMT
enddo

do没有问题。
read记录后没有处理或计数，有问题。或许有关联的指示器，楼主没有贴出完整代码。
就这样代码，对代码运行没有问题，就是耗费系统资源。

Answer 5

Do *HIVAL
read LSPMT
enddo

do没有问题。
read记录后没有处理或计数，有问题。或许有关联的指示器，楼主没有贴出完整代码。
就这样代码，对代码运行没有问题，就是耗费系统资源。

Answer 6

Do *HIVAL
read LSPMT   90
90  leave
做其它的操作
enddo

比如有数据
怎么会定位到第一条记录
而不是最后一条记录呢

Answer 7

Do *HIVAL
read LSPMT   90
90  leave
做其它的操作
enddo

比如有数据
怎么会定位到第一条记录
而 ...
wuxing164 发表于 2011-05-10 20:54

    rpg默认f表文件打开时处在首条记录起始位置，read LSPMT直到溢出，即*in90为*on。

Answer 8

要不就是，这个LSPMT里面的KEY字段，里面设置的倒序排列，否则那样写会有问题的。

Answer 9

不错