$! CHECKEDR.COM
$!
$! enable DCL command interpreter error checking
$!
$  set on
$  on control_y then goto END
$  on warning then goto ERRMSG
$  on error then goto ERRMSG
$!
$  wo :== write sys$output
$  ask:== inquire
$  clr :== @sys$system:clear.com
$!
$! Login to JPL Voyager MAG system
$!
$ JPLID:
$  ask id " Enter the JPL (sonic) ID"
$  if id .eqs. "" then goto JPLID
$  set terminal/noecho
$ JPLPASS:
$  ask pass " Enter the PASSWORD"
$  if pass .eqs. "" then goto JPLPASS
$  set terminal/echo
$  id = f$edit(id,"trim,lowercase")
$  pass = f$edit(pass,"trim,lowercase")
$!
$! Get listing of JPL final EDRs
$!
$ open/write ftp_file FTPFILE.DAT
$ write ftp_file "dir mag*.a" ! list desired remote files
$ write ftp_file "exit"
$ close ftp_file
$ assign jpldir.txt sys$output
$ ftp/username='id'/password='pass' shock.jpl.nasa.gov /novms_structure/-
  take_file=FTPFILE.DAT
$ deassign sys$output
$ delete FTPFILE.DAT;*
$ assign magflist.txt sys$output
$ search jpldir.txt mag9
$ deassign sys$output
$!
$! Read listing of "MAGF" final EDR's available at JPL.  Compare against 
$! local file listing.  Download and process new remote files.
$!
$ wo "Open local listing file MAGFLIST.TXT"
$ open/read input magflist.txt
$ loop:
$ read/end=finish input magf
$ loc1 = f$locate("mag",magf)
$ if loc1.eq.f$length(magf) 
$ then
$    wo "No final EDRs files found."
$    goto finish
$ endif
$ file = f$extract(loc1,loc1+11,magf)
$ file = f$edit(file,"trim,lowercase")
$ local = "voyager:[voyager.data.quicklook]" + file
$ if f$search(local).nes."" 
$ then 
$    wo file
$    @voyager:[voyager.command]quicklook2.com 'id' 'pass' 'file'
$ endif
$!!!!!! goto loop
$!
$ finish:
$ wo "Close local listing file MAGFLIST.TXT"
$ close input
$ goto END
$!
$ ERRMSG:
$ wo ""
$ wo "RUNTIME ERROR ENCOUNTERED!"
$!
$ END:
$ wo ""
$!
$ exit