Wenn es in RPGLE sein soll, dann versuch es mal mit:

%DIFF (Difference Between Two Date, Time, or Timestamp Values) %DIFF

näheres dazu im Handbuch nachlesen

Karl-Heinz