Question

我正在开发一个不支持TimeStamp格式的IDE（CA Plex），但具有讽刺意味的是它适用于与TimeStamps一起使用的IBM i服务器（AS400），格式如下：yyyy-MM- DD-hh.mm.ss.mmmsss

我正在使用RPG函数来计算两个TimeStamps之间的差异，如代码所示：

  *  Difference between two TimeStamps in ms
  /FREE
   &(3:) = %DIFF (&(1:): &(2:): *MSECONDS);
  /END-FREE

&(1:)，&(2:)和&(3:)是IDE发送的与函数不兼容的参数。发送的TimeStamp格式与我之前解释的相同，但RPG编译器不会将它们识别为TimeStamp。如何格式化这些参数？像我这样的想法是我需要的：

tstampone = %timestamp(&(1:));
tstamptwo = %timestamp(&(2:));

*  Difference between two TimeStamps in ms
/FREE
   &(3:) = %DIFF (tstampone: tstamptwo: *MSECONDS);
/END-FREE

编译器抛出警告：RNF0580和RNF0581

Answer 1

找到答案：

  /FREE
    &(3:) = %DIFF (%TIMESTAMP(&(1:)): %TIMESTAMP(&(2:)): *MS);
  /END-FREE

RPG - IBM i TimeStamp格式

1 个答案: