パッケージはサポートされていないため、最も外側のプロシージャの名前が返されます。
PACKAGENAME()
/* 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