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.