$ on severe_error then exit
$ set default disk$12:[uah.ahi]
$ loop:
$ d = f$parse (f$search ("*.dir"),,,"name")
$ if d .eqs. "" then exit 1
$ open/read f [.'d']last_harry.date
$ read f date
$ close f
$ copy/log/since="''date'" HARRY::uahsup:['d']*.*;0 [.'d']
$ open/write f [.'d']last_harry.date
$ write f f$fao ("!20%D",0)
$ close f
$ goto loop