harvard bibtex: How to upper case the authors of the references?

I have been using the harvard bibtex with the following configuration:

\usepackage{harvard}
\citationmode{abbr} \citationstyle{dcu}
\bibliographystyle{dcu}

Database:

@BOOK{Campbell(1996),
  AUTHOR =       {J. Y. Campbell and A. W. Lo and A. C. MacKinlay},
  TITLE =        {The econometrics of financial markets},
  PUBLISHER =    {Princeton University Press},
  YEAR =         {1996},
  address =      {},
}

@BOOK{Hamilton(1994),
    AUTHOR =    {J. D. Hamilton},
    TITLE = {Time series analysis},
    PUBLISHER = {Princenton University Press},
    YEAR =  {1994},
    address =   {},
}

I have been trying without success to upper case the authors of the references (I mean all the letters, not only the first) in the text. Is there any authomatic way to do that?

Today, when I use \citeasnoun{Campbell(1996)}, I will get Campbell et al. (1996). On the other hand, when I use \cite{Hamilton(1994), I will get (Hamilton, 1994).

I want when I use \citeasnoun{Campbell(1996)}, I will get CAMPBELL et al. (1996). On the other hand, when I use \cite{Hamilton(1994), I will get (HAMILTON, 1994).