在RPG中循环以添加重复值

时间:2017-01-06 13:23:32

标签: ibm-midrange jdedwards

有人可以告诉我如何在RPG中添加重复项目的值,考虑我在文件中重复使用相同的员工记录及其津贴数据,我想总结他的津贴,那么我应该在RPG中做什么?

1 个答案:

答案 0 :(得分:0)

如果您正在阅读的文件是由员工#或某些人键入的,则可以加载“密钥”。 RPG400看起来像......

移动*关闭* IN30

键SETLL文件名

* IN30 DOWEQ * OFF

KEY READE文件名* IN30

* IN30 * IFEQ * ON

      LEAVE

      ENDIF       

“将你的tot添加到正在运行的累积”

   ENDDO