【发布时间】:2014-06-18 22:46:10
【问题描述】:
我正在研究一个 RPG 程序。有一些像这样的子程序:有什么工具吗 哪个会将此创建为一个过程,可以在单独的过程中使用?
C Eval FinQty# = 0
C Eval OdCom# = OhCom#
C Eval OdOrd# = OhOrd#
C OdKey Setll OeOrd1
C OdKey Reade OeOrd1
C Dow %eof = *off
*
C If OdPrt# = OdAls# and
c %subst(odprt#:1:3) <> 'FRT'
C Eval FinQty# += OdQty#
C Endif
*
C OdKey Reade OeOrd1
C Enddo
*
【问题讨论】:
-
索要工具是题外话,尽管我不知道有任何问题。从 RPG 程序解构完整的链将是有问题的 - 当诸如表分区之类的事情直到运行时才知道时会发生什么?对于这样的事情,我可能会从 SQL 中的视图开始。您是指 RPG 过程还是 SQL 存储过程?还是服务计划?您可能会更幸运地定义原始代码的 intent,并在此基础上重新创建。
-
我曾经看到过“要求工具是题外话”的说法;我在回复之前考虑了它。据我所知,真正的禁令是主观的“哪种工具最好”。鉴于这里 RPG 社区的规模以及所讨论的工具显然不像它们应有的那样广为人知或容易找到。我觉得答案是可以接受的。
-
向 for 询问工具是题外话,而询问使用工具时遇到的问题可能是题外话。但是示例代码看起来不像是可以很好地转换为过程的东西。看起来最好用单个 SQL SELECT SUM() WHERE... 语句替换它并将其放入过程中。
标签: ibm-midrange db2-400 rpgle