RE: calculate the difference between two time stamps in hh:mm:ss

Thanks Scott, I tried that right after I sent this out and it works perfectly.


-----Original Message-----
From: Scott Mildenberger [mailto:scottmildenberger@xxxxxxxxx]
Sent: Friday, March 28, 2003 3:09 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: calculate the difference between two time stamps in
hh:mm:ss


Try this, setting both the date and time parts of the
timestamp:

start = %date( ediDate ) + %time(editime : *hms); 

Scott Mildenberger

--- Mike Haston ** Data <MHaston@xxxxxxx> wrote:
> Barbara, I am spacing big time.  I'm trying to
> initialize a timestamp field with a date and time
> field.  I haven't a clue what I'm currently doing!  
> 
> Thanks if you can straighten me out.
> 
> d start           s               z              
> d end             s               z              
> d hoursRemaining  s              5i 0            
> d dateRecv        s               d              
> d timeRecv        s               t              
> d ediDate         s              8s 0            
> d ediTime         s              6s 0            
>                                                  
>  /free                                           
>                                                  
>   ediDate = 20030326;                            
>   ediTime = 083000;                              
>                                                  
>   test(de) *iso ediDate;                         
>   if not %error;                                 
>     start =  %date( ediDate );          <==== 
> doesn't like it one bit!         
>   endif;                                         
> 


__________________________________________________
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
http://platinum.yahoo.com
_______________________________________________
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.