Problem:
Is there any way to know the name of the program that is currently running, besides calling another program and in that program using the "C$CALLEDBY" routine?
Resolution:
In version 6.2.0 the following C$MYFILE library routine was introduced.
This routine returns the filename of the disk file containing the currently executing program. Here is an example of how to use it:
WORKING-STORAGE SECTION.
77 PROGRAM-NAME pic x(80) value spaces.
77 CALL-STATUS pic s99 value 0.
Main Section.
CALL "C$MYFILE"
USING PROGRAM-NAME
GIVING CALL-STATUS.
display program-name.
accept OMITTED.
Stop Run.
Where CALL-STATUS PIC contains one of the following values:
1 PROGRAM-NAME was filled successfully
-1 Program name unknown
When successfully called, it indicates the name of the disk file containing the currently executing program, if it is known, for example:
C:\\Program Files\\Acucorp\\Acucbl800\\AcuGT\\sample\\acubench\\object\\File1.acu
The runtime will use as much space for the name of the file as the COBOL program allows.
The PROGRAM-NAME parameter will contain the filename just as the runtime received it.
If the program is part of a COBOLl object library, for example, mylib.lib contains File1.acu, along with other COBOL objects; after calling the "C$MYFILE" library routine, PROGRAM-NAME will have a value of:
C:\\Program Files\\Acucorp\\Acucbl800\\AcuGT\\sample\\acubench\\object\\mylib.lib
which is the COBOL library name instead the name of the program.
