midrange.com code scratchpad
Name:
currepoch - Dennis Lovelady
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
11/22/2011 01:20:49 am
IP:
Logged
Description:
Return the current number of seconds since epoch
Code:
  1.      H BNDDIR('QC2LE') OPTION(*SRCSTMT)                                 
  2.      H DFTACTGRP(*NO)                                                   
  3.                                                                         
  4.      D currepoch       PR            20I 0 extproc('currEpoch')         
  5.                                                                         
  6.                                                                         
  7.      D time            PR                  ExtProc('time') Like(time_t) 
  8.      D  p_time_t                           Like(time_t)                 
  9.                                                                         
  10.                                                                         
  11.      D time_t          DS                  Based(proto_only) Qualified  
  12.      D  time_t_num                   10I 0                              
  13.                                                                         
  14.                                                                         
  15.       /Free                                                             
  16.        currepoch() ;                                                    
  17.        *INLR = *On ;                                                    
  18.       /End-free                                                         
  19.                                                                         
  20.                                                                         
  21.                                                                         
  22.      P currEpoch       B                   Export                       
  23.      D currEpoch       PI            20I 0                              
  24.                                                                  
  25.      D curr_time       DS                  LikeDS(time_t)        
  26.      D p_curr_time     S               *   Inz(%Addr(curr_time)) 
  27.                                                                  
  28.       /Free                                                      
  29.                                                                  
  30.        time(curr_time) ;                                         
  31.        Return curr_time.time_t_num ;                             
  32.                                                                  
  33.       /End-free                                                  
  34.                                                                  
  35.      P currEpoch       E                                         
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css