rc = gsfallow("on")
'open tseries.ctl'
'set t 1'
date_rec = sublin(result,1)
say date_rec
date = subwrd(result,4)
*
*  error check...
*
**date = '2005:0:1:0'
*
*  error check...
*
**'q time'
**time_rec = sublin(result,1)
**date = subwrd(result,3)
*
*  assign three character month name to numerical month number...
*
month = get_month(date)
if( month != 'error' )
  say 'month is 'month
else
  exit
endif
