Here is a list of most of the locos on the current roster.
http://www.bullsheet.com/roster.cfm?class=NUMERICAL
Allen Brougham, the owner of the website is usually pretty good at getting the new power up on the site and the retired ones taken off, so give or take about 20 to 30 units this should cover the active roster. He is usually almost right on, but with the new ES44DC's being delivered and some of the older units (SD40's B30-7's B36-7's) being retired as a result on a daily basis it would be difficult to update constantly. Hope this helps.
Scooter