如何在 RPG-Free 中获得 6 位数字时间？

Question

我正在尝试从我的 iSeries 中获取 6 位数字格式的系统时间。时间将采用 HHMMSS 格式。

我试过使用：

CDBRVWTM = %Dec(%Time(): *ISO);

和

CDBRVWTM = %DEC(%CHAR(%TIME()):6:0);

字段 CDBRVWTM 是 table 中的 6 位数字字段。

Answer 1

**free
ctl-opt main(mainline);


dcl-proc mainline;

   dcl-s CurTime packed(6:0);

   curTime = %dec(%time():*HMS);
   dsply %char(curTime);

   return;

end-proc;

Answer 2

Matt，%Dec(%Time(): *ISO) 有什么问题？那应该可以正常工作。 *USA 以外的任何时间格式都应该可以获取 hhmmss。

Answer 3

dcl-s wtime Zoned(6); wtime= %Dec(%Time()):

如何在 RPG-Free 中获得 6 位数字时间？

How to get 6 Digit Numeric Time in RPG-Free?

rpgle

ibm-midrange