TTOD EXEC:

/* Test TOD EXEC */   
'MAKEBUF'             
buf = rc              
'EXEC TOD'            
pull date_time        
say date_time         
'DROPBUF' buf         

TOD EXEC:

&TRACE OFF             
&STACK LIFO &DATE &TIME

 ttod            
07/04/12 23:31:02

Tested, but lacks polish. (For example, testing return codes.) Possible 

Y2100 impact. (Or Y2041 or Y2042 or Y2038 or...)

This is WAY simpler than DateTimeSubtract.

Reply via email to