cap program drop title2
program title2, rclass
di "{hline}"
di as result "title2: `1'"
di _col(40) "Date and time: ",c(current_date),"  ",c(current_time)
di _col(40) "Working directory: ",c(pwd)
di _col(40) "Stata data file: ",c(filename)," has ",c(k)," variables and ",c(N)," observations"
di "  "
di as result "`1' follows:"
di "{hline}"
end