  Finding next available UIC in SYSUAF? 
 The Question is:
 
Is there a DCL command or lexical or freeware utility that will identify the
 next free UIC in a given group?
 
 
 The Answer is:
 
    Here is a trivial command file to walk a UIC group for the
    highest member uic in use in that group.
 
$ IF p1.eqs."" THEN INQUIRE p1 "Group (octal)"
$ IF p1.eqs."" THEN EXIT
$ grp = %o'p1' * 65536
$ mem = 65535
$ IF p2.nes."" THEN mem = %o'p2'
$loop:
$ mem = mem - 1
$ IF F$IDENT (grp + mem, "NUMBER_TO_NAME") .NES. "" THEN GOTO done
$ IF mem .GT. 0 THEN GOTO loop
$done:
$ mem = mem + 1
$ SHOW SYMBOL mem
 
