No
UAF> revoke/id admwork *
%UAF-W-WLDNOTALWD, wildcard user specs not allowed
UAF> revoke/id * sparrow
%UAF-E-REVOKEERR, unable to revoke identifier * from SPARROW
-SYSTEM-F-IVIDENT, invalid identifier format
use this code to have it do what you want:
$! PRINTRIGHTS -- Print Rightslist.dat in somewhat readable form. SDS 18feb02
$!______________________________________________________________________________
$ SAY = "WRITE SYS$OUTPUT"
$ STATUS = 1
$ ASK = "READ/END=QUIT SYS$COMMAND /PROMPT="
$ START:
$ NAME1 = P1
$ IF P1 .EQS. "" THEN ASK "Enter rightslist filename :" P1
$ IF NAME1 .EQS. "" THEN GOTO START
$
$ OPEN/READ/SHARE FILE1 &NAME1
$ ON CONTROL_Y THEN GOTO CLOSE
$ ON WARNING THEN GOTO CLOSE
$ OPEN/READ/SHARE FILE2 &NAME1
$
$ WIDTH = F$GETDVI("TT","DEVBUFSIZ"
$ WRAP = F$GETDVI("TT","TT_WRAP"
$ IF WIDTH .LT. 132 THEN SET TERM/WRAP
$ NARROW = (WIDTH .LE. 80)
$
$ IF NARROW
$ THEN
$ M = "!8XL [!5OW,!5OW] !8XL !32AS !XB"
$ MH = "!8AS !13AS !8AS !30AS !4AS"
$ SAY F$FAO(MH,"Identify","[ Grp,Mem ]","Holder","Id_Name","Code"
$ ELSE
$ M = "!8XL [!5OW,!5OW] !8XL !32AS !XB !64AS"
$ MH = "!8AS !13AS !8AS !30AS !4AS !64AS"
$ SAY F$FAO(MH,"Identify","[ Grp,Mem ]","Holder","Id_Name","Code","Description"
$ ENDIF
$
$ 1$: READ/END=CLOSE/NOLOCK FILE1 REC1
$ ID_NUMBER = F$CVUI( 0,32,REC1)
$ ID_MEM = F$CVUI( 0,16,REC1)
$ ID_GRP = F$CVUI(16,16,REC1)
$ ATTR = F$CVUI(4*8,32,REC1)
$
$ ATT_LIST :=
$ IF (1 .EQ. (ATTR .AND. 1)) THEN ATT_LIST := RESOURCE,
$ IF (2 .EQ. (ATTR .AND. 2)) THEN ATT_LIST = ATT_LIST + "DYNAMIC,"
$ IF (4 .EQ. (ATTR .AND. 4)) THEN ATT_LIST = ATT_LIST + "NOACCESS,"
$ IF (8 .EQ. (ATTR .AND. 8)) THEN ATT_LIST = ATT_LIST + "SUBSYSTEM,"
$ IF (16.EQ. (ATTR .AND.16)) THEN ATT_LIST = ATT_LIST + "IMPERSONATE,"
$ IF (32.EQ. (ATTR .AND.32)) THEN ATT_LIST = ATT_LIST + "HOLDER_HIDDEN,"
$ IF (64.EQ. (ATTR .AND.64)) THEN ATT_LIST = ATT_LIST + "NAME_HIDDEN,"
$ ATT_LIST = F$EXTRACT(0,F$LENGTH(ATT_LIST)-1,ATT_LIST)
$
$ HOLDER_ID = F$CVUI( 0,32,F$EXTRACT(8,4,REC1))
$! IF HOLDER_ID .NE. 0 THEN
$
$ LIST := !Blank
$ ID_NAME := !Blank
$ NEXT_ID := !Blank
$
$ IF F$LENGTH(REC1) .GE. 48 THEN -
$ ID_NAME = F$EDIT(F$EXTRACT(16,32,REC1),"TRIM"
$ IF F$LENGTH(REC1) .GE. 64 THEN -
$ NEXT_ID = F$FAO("Next ID: %x!XL",F$CVUI( 0,32,F$EXTRACT(60,4,REC1)))
$
$ IF LIST .EQS. "" THEN LIST = ATT_LIST
$ IF LIST .EQS. "" THEN LIST = NEXT_ID
$
$ IF NARROW
$ THEN
$ SAY F$FAO(M,ID_NUMBER,ID_GRP,ID_MEM,HOLDER_ID,ID_NAME,ATTR)
$ ELSE
$ SAY F$FAO(M,ID_NUMBER,ID_GRP,ID_MEM,HOLDER_ID,ID_NAME,ATTR,LIST)
$ ENDIF
$ GOTO 1$
$
$ CLOSE:STATUS = $STATUS .OR. %X10000000
$ IF STATUS .EQ. %X1001827A THEN STATUS = %X10018279
$ SET NOON
$ CLOSE FILE1
$ CLOSE FILE2
$ IF .NOT. WRAP THEN SET TERM/NOWRAP
$ QUIT: EXIT STATUS
malmberg August 04 2022 No more VAX hobbyist licenses. Community licenses for Alpha/IA64/X86_64 VMS Software Inc. Commercial VMS software licenses for VAX available from HPE.
ozboomer July 20 2022 Just re-visiting.. No more hobbyist licenses? Is that from vmssoftware.com, no 'community' licenses?
valdirfranco July 01 2022 No more hobbyist license...sad
mister_wavey February 12 2022 I recall that the disks failed on the public access VMS systems that included Fafner
parwezw January 03 2022 Anyone know what happened to FAFNER.DYNDS.ORG? I had a hobbyist account here but can longer access the site.
gtackett October 27 2021 Make that DECdfs _2.1A_ for Vax
gtackett October 27 2021 I'm looking for DECdfs V2.4A kit for VAX. Asking here just in case anyone is still listening.
MarkRLV September 17 2021 At one time, didn't this web site have a job board? I would love to use my legacy skills one last time in my career.
malmberg January 18 2021 New Hobbyist PAKs for VAX/VMS are no longer available according to reports. Only commercial licenses are reported to be for sale from HPE
dfilip January 16 2021 Can someone please point me to hobbyist license pak? I'm looking for VAX/VMS 7.1, DECnet Phase IV, and UCX/TCPIP ... have the 7.1 media, need the license paks ... thanks!
rintrights