IBM ILE RPG - 清除时间字段

Question

如何清除(重置)定义为类型的字段TIME？

我已经尝试MOVEL *BLANKS或者Z-ADD *ZEROS,但我总是得到一个错误.使用*ZEROS编译器时告诉我该字段不是数字.在使用时,MOVEL *BLANKS我得到一个错误,即因子2对此操作无效.

Answer 1

您不能将空白或零移动到时间字段 - 您必须移动时间.我个人只会使用CLEAR操作数,或者你可以使用EVAL和%TIME BIF.下面的两个陈述中的任何一个都可以完成这项任务.

 D  TIME           S               T

 C                   CLEAR                   TIME

 C                   EVAL      TIME = %TIME('00000000')