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

Question

I am trying to get the system time from my iSeries in a 6 digit numeric format. The time would be in a HHMMSS format.

I have tried using:

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

and

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

The field CDBRVWTM is a 6 digit numeric field in the table.

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, what problem did you have with %Dec(%Time(): *ISO)? That should work fine. Any time format other than *USA should work to get hhmmss.

Answer 3

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