RE: Convert and Duration

%time() accepts time in HH:MM AM/PM format (AM/PM can not have dot in between 
them).

D hhmm            S              4  0 inz(1000)                        
D AMorPM          S              2    inz('pm')                        
D time            S               T                                    
                                                                       
C                   eval      time = %time(%editw(hhmm :'0 :  ') + ' '+
C                                        AMorPM :*usa)                 
C                                                                      

-------------------------------------------------------------------------------------

While testing the above, I did notice one thing about %xlate() that I'm not 
sure if that is considered a bug.  See the code below:
D AMorPMWithDot   S              4    inz('p.m.')                   
D AMorPM          S              4                                  
                                                                    
C                   eval      AMorPM = %xlate('.':'' :AMorPMWithDot)

The resulting AMorPM is that same as AMorPMWithDot.  I kind of expect it to 
work like %replace, which will remove the dot.
   

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mark Allen
Sent: Wednesday, July 14, 2004 3:10 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Convert and Duration


I've got a file with an 8 digit date (CCYYMMDD), a 4 digit time field (HHMM)
and a field that contains either a.m. or p.m. I can convert the time field
easily enough to be 24 hr time by adding 12 to hr field if pm and making
seconds 0.