PACKAGENAME returns a nonvarying character string containing the name of the package in which it is invoked. If there is no package in the current compilation unit, PACKAGENAME returns the name of the outermost procedure.
>>-PACKAGENAME-+----+------------------------------------------>< '-()-'