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