PROG-NAME( ) Request program name

Domain: Program information

The PROG-NAME( ) function supplies the internal name (truncated to eight characters) of the currently loaded program. If the name of an object module from the object module library is requested, 0 characters are output.

Format

PROG-NAME( )

Result type

STRING

Input parameters

None

Result

Program name in the form of a string.

Error message

SDP0435  DESIRED INFORMATION NOT AVAILABLE

Example

The utility LMS is started in a procedure:

/START-LMS

...

The program run is interrupted and the program name checked:

/IF PROG-NAME() = 'LMSSDF'
/   RESUME-PROGRAM
/ELSE
/   ...
/END-IF