There used to be a function, PROCEDURENAME, to do that,
but it now provdes only the name of the current procedure.
You could use that function in the calling module's CALL statement
to pass its procedure name to you.
Another way could be to introduce a user-defined condition in your procedure,
and to SIGNAL that condition (with the corresponding ON-unit containing the SNAP option).
Robin400