ILE RPG - 如何将时间值转换为数值？

Question

请考虑以下代码:

D#TIME1           S               T                                             
D#numeric1        S              6  0                                           
D#numeric2        S              6  0                                           
D                                                                               
C                   TIME                    #numeric1                           
C                   eval      #TIME1 = %TIME(#numeric1:*HMS)                    
C                                                                               
C*                  This does not work:                                             
C                   eval      #numeric2 = %int(TIME1)                           
C*                  Errormessage: The expression contains a operator, which is not defined
C                                                                               
C                   MOVE      *ON           *INLR            

有人可以告诉我,如何将*HMS时间值(如'07:02:22')转换为6 0数值.我需要这个来比较两个时间戳.

Answer 1

C                   eval      #numeric2 = %dec(TIME1: *hms)  

应该做的伎俩.