Updated July 2021; added Example 2
? tab(-10, AG_DATETIME); chr(127);
AG_DATETIME (64) returns the system date and time according to the ATE client. The returned information is in the form of date,time,status where date is the decimal value of the separated date format (see IDTIM.SBR for details), time is the number of seconds since midnight, and status will be 0 if the operation was successful, else a Windows error code.
Example 1
map1 today,b,4
map1 now,b,4
map1 status,f
? tab(-10,AG_DATETIME);chr(127);
input "",today,now,status
You might then compare this information against the values returned by the DATE and TIME system functions on the server to decide whether the client is reasonably in sync, and if not, you might prompt the client to update the clock on either the server or the client.
Example 2
The following illustrates AG_DATETIME being called via the MX_AGWRAPPER function, which eliminates the need for a separate INPUT statement to retrieve the results. The result string contains three comma-delimited fields which we split out using a utility function Fn'Explode() in SOSLIB:[907,10], although you could use other methods, such as INSTR().
++include ashinc:ashell.def
++include sosfunc:fnexplode.bsi
map1 misc
map2 response$,s,100
map2 fields,i,2
map2 today,b,4
map2 clocktime,b,4
map2 status,i,4
? "Querying PC for time ..."
xcall MIAMEX, MX_AGWRAPPER, AG_DATETIME, "", response$
? "Response: ";response$ ! should be sysdate,systime,status
! split out the fields and convert to human readable format...
fields = Fn'ExplodeEx(response$,",",0,today,clocktime,status)
if fields >= 3 and status = 0 then
? ODTIM(today,clocktime,0)
else
? "Error"
endif
end
