C$MYFILE

Returns the filename of the disk file containing the currently executing program.

This is especially useful if the disk file is an object library.

Usage

CALL "C$MYFILE" 
    USING PROGRAM-NAME 
    GIVING CALL-STATUS

Parameters

PROGRAM-NAME PIC X(n)

Indicates the name of the disk file containing the currently executing program, if known. The run-time system will use as much space for the name of the file as the COBOL program allows. This parameter will contain the filename just as the run-time system received it. For example, if an object library is loaded as ../ardir/myarlib.lib, and a program in myarlib.lib calls this routine, PROGRAM-NAME will have a value of ../ardir/myarlib.lib.

CALL-STATUS PIC S99.

This parameter receives one of the following values:

1 - PROGRAM-NAME was filled successfully

-1 - Program name unknown