display "`c(current_time)' `c(current_date)'"
local wjm="`c(current_time)'`c(current_date)'" wjm=subintstr(local wjm,":","",2) disp local wjm