*DECK DBRENAME
USETEXT DBTEXT
USETEXT DNTEXT
PROC RENAME;
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL DNATVALS
START("RENAME") 
#THIS PROCEDURE UPDATES THE CURRENT DNAT WITH 
ANY RENAME INFORMATION THAT IS PRESENT
# 
IF ILEVEL NQ 66 
  THENB ("NO RENAMES")
  QUIT
ENDIF 
$S(DN$STRENAM,DNAT$,DNAT$PTR,ISTRENAM);   #START RENAMES DNAT#
$S(DN$ENRENAM,DNAT$,DNAT$PTR,IENRENAM);   #END RENAMES DNAT#
FINIS("RENAME") 
TERM
