(ATCScript "List TS by Date Script"
  (C Lists a specified timespan from a time series)
  (Arg "TimeSeriesObject")
  (Arg "TimeStep" "DY")

  (LoadLibrary "ATCScriptData")

  (Set CR (+ (Chr 13) (Chr 10)))

  ('Customize the data set)
  (Set dataSub (DataTSer TimeSeriesObject "subsetbydate" SDate EDate))
  (If (<> TimeStep "native")
    (Set finalData (DataTSer dataSub Aggregate TimeStep 1 "Sum"))
    (Else (Set finalData dataSub))
  )
  (Set dataValues (DataTSer finalData "values"))

  (Set header (+ "Data Summary for " (DataTSer TimeSeriesObject Attribute "Desc") " - " (DataTSer TimeSeriesObject Attribute "Cons") CR))
  (Set header (+ header "Time Period " (Format SDate  "yyyy-mm-dd") "-" (Format EDate  "yyyy-mm-dd") CR CR))
  (Set header (+ header "Date                Value" CR))
  (Set ListFileName (+ OutputDir (DataTSer TimeSeriesObject Attribute "Location") "-" TimeStep ".lst"))
  (SaveFile ListFileName header)

  (For value in dataValues
    (Increment counter)
    (AppendFile ListFileName (+ (Format (DataTSer finalData Date counter) "yyyy/mm/dd hh:mm") "   " (Format value "#0.0000") CR))
  )
)