Copyright Digital Equipment Corp. All rights reserved.

ROUTINE

 The %ROUTINE directive returns a string with  the  name  of  the
 routine  that  is  currently  being  compiled.   If  used in the
 executable portion of a program, the program's name is returned.
 If used in the declaration section of a MODULE/PROGRAM, the name
 of the MODULE/PROGRAM is returned.