This is especially useful if the disk file is an object library.
CALL "C$MYFILE" USING PROGRAM-NAME GIVING CALL-STATUS
|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