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 insn't
!	set to shared.
!
! B. Z. Lederman    15-Apr-1987
! 		    29-Dec-1987	Show name or rights holder
!
    10 HIDE_IDENT.
	20 FILLER PIC XXXX.
    10 IDENT REDEFINES HIDE_IDENT.
	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(22).
    10 FILLER PIC X(4).
    10 HIDE_HOLDER.
	20 FILLER PIC XXXX.
    10 HOLD REDEFINES HIDE_HOLDER.
	20 HOLD_IN USAGE LONG.
    10 FILLER PIC X(4).
    10 HIDE_NAME.
	20 FILLER PIC X(32).
    10 RN REDEFINES HIDE_NAME.
	20 NAME PIC X(32).
    10 FILLER PIC X(16).    ! just to stop record length errors
!
! It would be easier to just print out the holder in columns, and
! the name in columns.  I'm doing it this way because:
!	a) if there is a holder there isn't a name
!	b) this way it fits into 80 columns
!
    10 NAME_OR_HOLDER COMPUTED BY CHOICE OF
	    (HOLD_IN NE 0) THEN
		(FN$FAO("!%U", HOLD_IN, 0,0,0,0,0,0,0) |	! notice the
		 FN$FAO("!%I", HOLD_IN, 0,0,0,0,0,0,0))		! concatenation
	    ELSE NAME
	    END_CHOICE
	    EDIT_STRING X(32).
;


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