(ATCScript "List Timeseries Data Driver"
  ('Set Huc8s (Array "03070101" "03070103" 
                    "03130001" "03130002" "03130005"
                    "03150102" "03150103" "03150104" "03150108"))
  (Set Huc8s (Array "03150103" "03150102"))
  (Set BaseDir "c:\mngwpd\modelwq\genscn\outptwdm\")

  (Set Debug "On")

  (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)
         (RunScript "ListTimser.spt" WDMFile BaseDsn Huc8 Locn)
       )
    )
   ('DataFile WDMFile Clear)
  )
)