PACKAGENAME 関数

目的

パッケージはサポートされていないため、最も外側のプロシージャの名前が返されます。

構文

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