AW: Using Time operation in Free

Hi Lynda,

you try to convert a time, that is already a time into a time and move the
result into a numeric field.

I think you want the time converted into numeric values.
If you are already on release V5R3M0, you can use the following statement:
/Free
  //Both statements should work
  CurTime = %Dec(Cur_Time: *HMS);
  CurTime = %Dec(Cur_Time);
/End-Free

If you are not yet on release V5R3M0, you can use the following statement:
/Free
  CurTime = %Dec(%Char(Cur_Time: *HMS0): 6: 0);
/End-Free

Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Lynda Eland
Gesendet: Mittwoch, 17. Mai 2006 20:29
An: rpg400-l@xxxxxxxxxxxx
Betreff: Using Time operation in Free


I am trying to use the Time operation code in Free. I know you
have to use %time and have a data structure field using the TIMFMT
keyword. This is what I have
      d CurDate         s               d   DatFmt(*Iso)
      d Cur_Time        s               t   TimFmt(*Iso)
      d CurTime         s              6s 0 Inz
    CurDate  = %Date(*Date);
    CurTime  = %Time(Cur_Time);
      The date one works.
      Do I have to somehow use %timestamp with this?
  Thanks,
  Lynda




---------------------------------
Feel free to call! Free PC-to-PC calls. Low rates on PC-to-Phone.  Get
Yahoo! Messenger with Voice
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.