retrive Current time

[violinsoundcool]

It seems like this should be easier to find, but how do you retrieve the system time? Manuals keep directing me to %time and %timstamp, but it looks like those are for converting and not retrieving. Can anyone help me on this?

[MdnghtPgmr]

Re: retrive Current time

CurTime = %TIME();

HTH,
MdnghtPgmr

[jamief]

Re: retrive Current time

time = %time()

cmdstring = 'sndmsg Msg(' +                
             Q +                           
            'The Time is ' +               
             %char(%time()) +              
             Q +                           
            ')' +                          
            ' tousr('  + %trim(workuser) + 
            ')'

timestamp = %timestamp()

      *                                                                   
      *  Field Definitions.                                               
      *                                                                   
     d ISOdate         s               d                                  
     d ISOtime         s               t                                  
     d thestamp        s               z                                  
                                                                          
      *=============================================================      
      *  M A I N     L I N E                                              
      *=============================================================      
     c                   eval      thestamp = %timestamp()                
     c                   eval      ISODate = %date(thestamp)              
     c                   eval      ISOtime = %time(thestamp)              
     c                                                                    
                                                                          
                                                                          
     c                   eval      *inlr = *on

      *                                                                        
      *  Field Definitions.                                                    
      *                                                                        
     d TimeX           s               T                                       
     d TimeDec         s              6  0                                     
      *=============================================================           
      *  M A I N     L I N E                                                   
      *=============================================================           
      *                                                                        
     c                   eval      Timex = %time()                             
     c                   eval      TimeDec = %uns(%char(%Time():*HMS0))        
      *                                                                        
     c                   eval      *inlr = *on                                 
      *

    // calculate where we are in the day and put that in as a decimal 
                                                                      
        hour = %subdt(%time():*hours);                                
        select;                                                       
         when hour <= 8;                                              
          hour = 1;                                                   
         when hour <= 9;                                              
          hour = 2;                                                   
         when hour <= 10;                                             
          hour = 3;                                                   
         when hour <= 11;                                             
          hour = 4;                                                   
         when hour <= 12;                                             
          hour = 5;                                                   
         when hour <= 13;                                             
          hour = 6;                                                   
         when hour <= 14;                                             
          hour = 7;                                                   
         when hour <= 15;                                             
            hour = 8;               
           when hour <= 16;         
            hour = 8;               
           when hour <= 17;         
            hour = 8;               
          endsl;                    
                                    
           MTDDAYS +=  (hour/8);    
                                    
           if MTDDAYS < 1;          
            MTDDAYS = 1;            
           endif;

[Chipper]

Re: retrive Current time

A couple of different methods:

1) If you are running a report, can use the D-Specs. This method gives you the time when the program starts. Note that the Time Format can be several different types (*HMS, *ISO, *USA, *EUR, *JIS).

D XTime           S               T   TimFmt(*ISO) Inz(*Sys)

2) Free form method:

/free
   XTime = %TIME();
/end-free

3) Fixed format method:

      *                  OpCode                  Result Field
     C                   Time                    XTime

[tomholden]

Re: retrive Current time

or if you like unnecessary pain you can use the QWCRSVAL API to get the value of QTIME system value

[violinsoundcool]

Re: retrive Current time

I'm trying to move it to a numeric field that's 6 digits long. I've tried

fieldx=%TRIM();

but the types are not the same. So, I tried

fieldx = %DEC(%TRIM():6:0);

...but then the second parameter for %DEC isn't valid.

[MichaelCatalani]

Re: retrive Current time

Here's one way to do it:

           
d fieldx          s              6s 0     
 /free                                    
                                          
    fieldx =  %dec( %time : *HMS ) ;           
                                          
    dsply %editc( fieldx : 'X' );          
                                          
    return;

And a longer version:

d fieldx          s              6s 0                                
 /free                                                               
    fieldx = %dec( %subdt( %time : *hours   ) : 2 : 0) *10000 +      
             %dec( %subdt( %time : *minutes ) : 2 : 0) *100 +        
             %dec( %subdt( %time : *seconds ) : 2 : 0)  ;            
                                                                     
    dsply %char( fieldx );                                           
                                                                     
    return;

[arrow483]

Re: retrive Current time

VoilinSC,
There is an EASY way. Use the TIME command and specifiy a 6-digit numeric field in result field and you are done ! No BIF's or conversion required.

     C                   TIME                    MyNumField

[violinsoundcool]

Re: retrive Current time

Arrow, I was informed on that approach, but I like to have my programs completely in free format. Michael's way works great.

fieldx =  %dec(%time : *HMS) ;

It makes perfect sense. I just didn't know that *HMS would bring in the complete time.