如何在无 RPG 中获得 6 位数字时间

Question

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

我试过使用：

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

和

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

字段 CDBRVWTM 是表中的 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（））：