$ wo :== write sys$output
$ assign magflist.txt sys$output
$ search jpldir.txt magf
$ deassign sys$output
$ open/read input magflist.txt
$ loop:
$ read/end=end input magf
$ loc1 = f$locate("magf",magf)
$ file = f$extract(loc1,loc1+11,magf)
$ wo file 
$ goto loop
$ end:
$ close input
$ exit