PROCEDURENAME
PROCEDURENAME returns a nonvarying character string containing the name of the procedure in which this built-in function is invoked.
Abbreviation: PROCNAME
PROCEDURENAME always returns the leftmost name of a multiple label specification, regardless of which name appears in the CALL or GOTO statement.