PACKAGENAME Function

Purpose

Since packages are not supported, the name of the outermost procedure is returned.

Syntax

PACKAGENAME()

Examples

   /* 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;

will print:

MICRO FOCUS