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:
- H BNDDIR('QC2LE') OPTION(*SRCSTMT)
- H DFTACTGRP(*NO)
-
- D currepoch PR 20I 0 extproc('currEpoch')
-
-
- D time PR ExtProc('time') Like(time_t)
- D p_time_t Like(time_t)
-
-
- D time_t DS Based(proto_only) Qualified
- D time_t_num 10I 0
-
-
- /Free
- currepoch() ;
- *INLR = *On ;
- /End-free
-
-
-
- P currEpoch B Export
- D currEpoch PI 20I 0
-
- D curr_time DS LikeDS(time_t)
- D p_curr_time S * Inz(%Addr(curr_time))
-
- /Free
-
- time(curr_time) ;
- Return curr_time.time_t_num ;
-
- /End-free
-
- P currEpoch E
|
|
|