$ mc authorize list */full
$ open/read x sysuaf.lis
$r:
$ read/end=e x xrec
$ if f$loc("Username:",xrec) .lt. f$len(xrec) then us=f$ed(f$extra(9,32,xrec),"compress")
$ if f$loc("Authorized Privileges:",xrec) .lt. f$len(xrec) then prv="authorized"
$ if f$loc("Default Privileges:",xrec) .lt. f$len(xrec) then prv="per default"
$ if f$loc(" OPER ",xrec) .lt. f$len(xrec) then write sys$output "''us' has OPER ''prv'"
$ goto r
$e:
$ close x
$ exit