(ATCScript "List Timeseries Data Driver"
  (Set Locations (Array "R925" "R951" "R967" "R968" "R982" 
                        "R434" "R483" "R578" "R581" "R584" "R592"
                        "R163" "R174" "R184" "R185" "R186" "R188"))
  (Set Huc8s (Array "03150102" "03150103" "03150104" "03150108"))

  (Set BaseDir "e:\mngwpd\modelwqexisting\genscn\outptwdm\")

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

  (For Huc8 In Huc8s
    (Set WDMFile (+ BaseDir Huc8 ".wdm"))
    (DataFile TSerFile "Open" "WDM" WDMFile)
    (For I = 0 to 99
       (Set BaseDsn (* i 100))
       (Set DataSet (DataFile TSerFile Data "Dsn" (+ BaseDsn 1)))
       (Set Locn (DataTSer DataSet "Attrib" "Location"))
       (If (<> Locn 0)
         (For Location in Locations
           (If (= Locn Location)
             (RunScript "ListTimser.spt" WDMFile BaseDsn Huc8 Locn)
           )
         )
       )
    )
   ('DataFile WDMFile Clear)
  )
)