RE: Using Time operation in Free

Lynda,
I don't know what your release is, but at V5R3 you can do this:

d CurTime         s              6s 0 Inz

CurTime = %dec(%Time());
 


HTH,
Terry Anderson



> >message: 9
> >date: Wed, 17 May 2006 11:29:24 -0700 (PDT)
> >from: Lynda Eland <lyndae81@xxxxxxxxx>
> >subject: 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) digest 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.
> >
> >
> >
> >End of RPG400-L Digest, Vol 5, Issue 608
> >****************************************
> >