$!
$! EDRBLOCK.COM
$!
$! This procedure submits a batch job to read Voyager EDRs from
$! CD ROM reblock them to user-specified disk space.
$!
$! Unblocked EDRs are read from the directory "indir" and reblocked 
$! the directory "outdir".  Expect ".EDR" extension on unblocked 
$! EDRs and ".DAT" extension on reblocked EDRs.
$!
$! Written by Sandy Kramer, HSTX, code 692, NASA GSFC, 08/05/96
$!
$ open/write convert sys$login:edrblock.com
$!
$ inquire scid "Enter spacecraft id (1 or 2)"
$ inquire year "Enter year (00-99)"
$ inquire outdir "Enter target directory ""VOYAGER:[VOYAGER.DATA.EDR]"""
$ if ( outdir.eqs."" ) 
$ then
$  write convert "$ outdir :== VOYAGER:[VOYAGER.DATA.EDR]"
$ else
$  write convert "$ outdir :== ",outdir
$ endif
$ write convert "$ outext :== .DAT"
$ write convert "$ mount/over=id/media=cdrom/undef=(fixed:none:512) dka400:"
$ write convert "$ indir :== CDROM:[VOYAGER.V",scid,".EDR.Y",year,"]"
$ write convert "$ inext :== .EDR"
$!
$! Retrieve directory listing of EDR files
$!
$ write convert "$ SET DEF SYS$LOGIN"
$ write convert "$ DIRECTORY 'INDIR'*.EDR /COL=1 /NOHEAD /NOTRAIL /OUTPUT=SYS$LOGIN:edrblock.DAT"
$ write convert "$ type sys$login:edrblock.dat"
$ write convert "$ OPEN INFILE edrblock.DAT"
$ write convert "$ CNT = 0"
$ write convert "$ LOOP:"
$ write convert "$  CNT = CNT + 1"
$ write convert "$  READ /END=END_LOOP INFILE REC"
$ write convert "$  DIR_POSITION = 'F$LOCATE("".EDR"",REC)'"
$ write convert "$  NAME_POSITION = 'F$LOCATE(""]"",REC)' + 1"
$ write convert "$  LENGTH = DIR_POSITION - NAME_POSITION + 3"
$ write convert "$  NAME := 'F$EXTRACT(NAME_POSITION,LENGTH,REC)'"
$ write convert "$  NAME'CNT' = NAME"
$ write convert "$  GOTO LOOP"
$ write convert "$ END_LOOP:"
$ write convert "$ CLOSE INFILE"
$ inquire ans "Reblock all files (y/n)"
$ if ans.nes."Y" .and. ans.nes."y" then goto one
$!
$ all:
$ write convert "$ num = cnt - 1"
$ write convert "$ cnt = 0"
$ write convert "$ loop2:
$ write convert "$  cnt = cnt + 1"
$ write convert "$  infile = name'cnt'"
$ write convert "$  length = 'f$locate("".EDR"",infile)'"
$ write convert "$  name := 'f$extract(0,length,infile)'"
$ write convert "$  infile = indir + name + inext"
$ write convert "$  outfile = outdir + name + outext"
$ write convert "$  write sys$output infile"
$ write convert "$  write sys$output outfile"
$ write convert "$  open/write for005 for005.dat"
$ write convert "$  write for005 infile"
$ write convert "$  write for005 outfile"
$ write convert "$  close for005"
$ write convert "$  open/read for005 for005.dat"
$ write convert "$  run VOYAGER:[voyager.executable]edrblock
$ write convert "$  close for005"
$ write convert "$  delete/noconfirm for005.dat;"
$ write convert "$ if ( cnt .lt. num ) then goto loop2"
$ goto finish
$!
$ one:
$ write convert "$ inquire file ""Select EDR"""
$ write convert "$ write sys$output ""Selected "", file"
$ goto finish
$!
$ finish:
$ write convert "$ DELETE/NOCONFIRM SYS$LOGIN:edrblock.DAT;*"
$ write convert "$ dismount CDROM:"
$ write convert "$ exit"
$ close convert
$ submit/notify sys$login:edrblock.com
$ exit