$! UAFRPT.COM
$!
$! Author: L Baldwin
$! Desc:
$!
$! Command procedure to produce a report of all current users
$!
$ on control_Y then goto clean_up
$ save_dir = f$environment("DEFAULT")
$ set defa tasm$scratch
$ inquire ques "Print Report (Y/N)"
$ ques=f$edit(ques,"UPCASE")
$ uaf list [*,*]/brief
$ if ques .eqs. "Y" then lprint tasm$scratch:sysuaf.lis
$CLEAN_UP:
$ set defa 'save_dir'