(ATCScript "List Timeseries Data"
  (Arg DataFile)
  (Arg BaseDsn )
  (Arg Huc8    )
  (Arg Locn    )
  (Arg SDate   "1993/1/1")
  (Arg EDate   "1994/1/1")
  (Arg OutDir  "c:\mngwpd\modelwq\genscn\outputreports\")

  (Set DsnOffsets (Array "01" "20" "24" "25" "26" "39"))

  (LoadLibrary "ATCScriptData" "ATCScriptFile" "ATCScriptMisc")

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

  ('Set Debug "On")

  (Set DataCount (DataFile TserFile DataCount))

  (Set SDate "1993/1/1")
  (Set EDate "1994/1/1")

  (for d = 0 to 5
    (Set js (JDate SDate))
    (Set je (JDate EDate))
    (Set yr (Format js "yyyy"))

    (Set nVals (JDateDiff js je "hr"))

    (Set ostr (+ "#Data Listing from " WDMFile CR))
    (Set ostr (+ ostr "#Time Period " SDate "-" EDate CR))

    (For DataIndex = 1 to (Len DsnOffsets)
      (Set Dsn (+ BaseDsn (ArrayItem DsnOffsets DataIndex)))
      (Set ostr (+ ostr Tab Dsn)) 
      (Set DataSet (DataFile TSerFile Data "Dsn" Dsn))
      (Set (+ "DataSub" DataIndex) (DataTSer DataSet "subsetbydate" js je))
    )
    (Set ostr (+ ostr CR))

    (Set ostr (+ ostr "Date      "))
    (For DataIndex = 1 to (Len DsnOffsets)
      (Set ostr (+ ostr Tab (DataTSer (RunScript (+ "DataSub" DataIndex)) "Attrib" "Constituent"))) 
    )
    (SaveFile (+ OutDir Locn "_" Yr ".lis") ostr)

    (For i = 1 to nVals
      (Set s "")
      (Set Ostr "")
      (For DataIndex = 1 to (Len DsnOffsets)            
        (Set s (+ s Tab (Format (DataTSer (RunScript (+ "DataSub" DataIndex)) Value i) "#####0.000")))
      )
      (Set ostr (+ ostr CR (Format (JDateAdd js "HR" i) "yyyy/mm/dd hh:mm") s))
      (AppendFile (+ OutDir Locn "_" Yr ".lis") ostr)
    )
    (Set SDate EDate)
    (Set EDate (Format (JDateAdd je "YR" 1) "yyyy/mm/dd"))
  )
)