目的
パッケージはサポートされていないため、最も外側のプロシージャの名前が返されます。
例
/* Since Open PL/I does not support Packages, the name of the outermost */
/* procedure is aways returned for the PACKAGENAME() built-in. */
Micro: proc options(main);
call Focus();
Focus: proc;
put skip list (packagename() || ' ' || procedurename() );
end;
end;
次のように表示されます。
MICRO FOCUS