Display current subroutine in CODE/400

Hi,

I was thinking of trying to get code/400 to display what subroutine your
cursor is sitting in somewhere on the screen when changing an RPGIII or
RPGIV program.  I know that I could do a "Find Up" but I find this feature
somewhat awkward in CODE/400 compared to PDM. (You have to go into the
options panel on the initial find to tell it to search backwards)

Unfortunately every program does not contain nice 2 page subroutines &
mainline where you can hit pageup once or twice & see where you are.  It
would be nice if the current subroutine name (or mainline) was displayed in
the corner of the screen and was updated when you move your cursor to
another subroutine.

Anyone out there tried something similar to this that they wouldn't mind
sharing??

Thanks,
Dean