topic Re: Internet (NIST) time and SAS in ODS and Base Reporting

Internet (NIST) time and SAS

Doug — Wed, 18 Sep 2013 18:52:30 GMT

Is there a way to read time from one of the NIST servers into SAS directly?

Re: Internet (NIST) time and SAS

TimB_SAS — Thu, 19 Sep 2013 14:16:44 GMT

Doug -

Please try the following:

filename foo pipe "/sbin/ntpdate -q time.nist.gov" ;

data _null_;

infile foo firstobs=2 ;

input ;

day=scan(_infile_,1," ") ;

mon=scan(_infile_,2," ") ;

time=scan(_infile_,3," ") ;

ntp=strip(day)||strip(mon)||strip(time) ;

ntptime=input(ntp,datetime.) ;

put ntptime= datetime. ;

run ;

Re: Internet (NIST) time and SAS

Doug — Thu, 19 Sep 2013 15:20:37 GMT

The program returns the following:

Stderr output:

The system cannot find the path specified.

Could this be a firewall issue on my end or a SAS issue (perhaps both)?

Re: Internet (NIST) time and SAS

TimB_SAS — Thu, 19 Sep 2013 15:24:39 GMT

Doug -

You'll need to verify the path to the ntpdate command on your system - not to mention verify that it is installed.

The command: which ntpdate

will show either the correct path to the command, or report that it is not found among the paths included in the $PATH environment variable.

Re: Internet (NIST) time and SAS

Doug — Thu, 19 Sep 2013 15:34:19 GMT

which ntpdate - windows command?

Re: Internet (NIST) time and SAS

TimB_SAS — Thu, 19 Sep 2013 15:52:09 GMT

Sorry, I generally think of NTP as being Unix/Linux.

You'll probably need to install NTP: http://www.satsignal.eu/ntp/setup.html

And then modify the SAS code to call the appropriate Windows command.

Re: Internet (NIST) time and SAS

Doug — Thu, 19 Sep 2013 15:57:50 GMT

Ahhh thanks! I take it there are not any pre-installed windows utilities which can do this....

Re: Internet (NIST) time and SAS

TimB_SAS — Thu, 19 Sep 2013 17:06:56 GMT

This should do it. Note this returns GMT, so you'll need to adjust for your time zone.

filename foo http "http://www.time.gov/timezone.cgi?Eastern/d/-5/java" debug ;

data _null_ ;

length p1 $50 ;

infile foo ;

input ;

put _infile_;

if index(_infile_, "NISTSendTime") then do ;

ind1=index(_infile_,'"') ;

p1=substr(_infile_,ind1+1,length(_infile_)-ind1-3) ;

mon=substr(scan(p1,1," "),1,3) ;

date=scan(p1,2,", ") ;

time=scan(p1,4," ") ;

year=put(year(today()),4.);

now=strip(date)||strip(mon)||year||' '||strip(time);

nistime=input(now, datetime.) ;

sastime=datetime();

put nistime= datetime. ;

put sastime= datetime. ;

stop ;

end ;

run ;