DELETE RIGHTS_RECORD;
REDEFINE RECORD RIGHTS_RECORD OPTIMIZE
01 RIGHTS_REC.
!
! Quick summaries of rights lists, etc.  Any use of this definition
!	to modify the rights list is done at your own peril.  You
!	should also remember to READY SHARED if your default isn't
!	set to shared.
!
! B. Z. Lederman    15-Apr-1987
!
    10 IF.
	20 FILLER PIC XXXX.
    10 IDENT REDEFINES IF.
	20 IDENT_IN USAGE LONG.
!
! The Identifier is in UIC format.  Using the added FAO function
! this can be formatted in much neater ways than a decimal long word.
!
    10 NUMERIC COMPUTED BY FN$FAO("!%U", IDENT_IN, 0,0,0,0,0,0,0)
	    EDIT_STRING X(9).
    10 IDENTIFIER COMPUTED BY FN$FAO("!%I", IDENT_IN, 0,0,0,0,0,0,0)
	    EDIT_STRING X(20).
    10 FILLER PIC X(4).
!    10 HOLDER PIC X(8).	! on my system, I've never seen anything
    10 FILLER PIC X(8).		! here (we're not really using rights
				! lists yet).
    10 NAME PIC X(32).
;

DELETE RIGHTS;
REDEFINE DOMAIN RIGHTS USING RIGHTS_RECORD ON SYS$SYSTEM:RIGHTSLIST.DAT;