*DECK DBREDEF 
USETEXT DBTEXT
USETEXT DNTEXT
PROC REDEF; 
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL DNATVALS
*CALL AUXT1 
*CALL AUXTVALS
XREF FUNC ADD$AUXT; 
START("REDEF")
#THIS PROCEDURE, ASSUMING A REDEFINITION IS BEING MADE, 
SETS THE REDEFINE BIT IN THE CURRENT DNAT ENTRY AND CREATES 
AN RDEFNAME AUXTABLE ENTRY
# 
IF IREDEF EQ 0
  THENB ("NO REDEFINITION") 
  QUIT
ENDIF 
$S(DN$RDEF,DNAT$,DNAT$PTR,1); #SET REDEF BIT# 
AUXT$PTR=ADD$AUXT(DNAT$PTR); #GET PTR TO NEW AUXENT#
$S(AX$TTYPE,AUX$,AUXT$PTR,RDEFNAME); #TYPE IS RDEFNAME# 
$S(AX$RDEFNAM,AUX$,AUXT$PTR,IREDEF); #DNAT OF ORIGINAL ITEM#
FINIS("REDEF")
TERM
