$SAVE NOLIST

dq$rename:  PROCEDURE( old$ptr,
                       new$ptr,
                       except$ptr ) EXTERNAL;

DECLARE old$ptr         POINTER,
        new$ptr         POINTER,
        except$ptr      POINTER;

END dq$rename;

$RESTORE