RPGLE - Date difference hour minute second

    RPGLE  - Date difference hour minute second

C*
     C*DiffDays = %Diff(ToISO:FromISO:*DAYS)
     C*
     C     SAVEETIME     Subdur    SAVESTIME     DiffSec:*S
     C*
     C                   Eval      RunHours   = (DiffSec/3600)
     C                   Eval      RunMinutes = (DiffSec/60 - RunHours * 60)
     C                   Eval      RunSeconds = (DiffSec -((RunHours * 3600)+
     C                                          (RunMinutes * 60)))
     C*