I think that the facility that you are looking for would be met when/if IBM actually provides the enhancement in the existing SHARE requirement: SSLNGC0313587 New LE Callable Service to get (various) Program Names
Described as: "A new LE callable service (with capabilities well beyond CEE3GRN) should be created to obtain various program names. This should include options to obtain: - The currently executing program's name - The name of the program that "activated" (Called, Invoked, whatever) the currently executing program - The name of the program at the "top" of the current LE "enclave" - The name of the program at the "top" of the current LE "thread" For each of these, sub-options may be required to provide information such as - Any "alias" by with the program was entered - Any "long-name" (with mixed characters) as supported by the Binder - Any Entry-point name when other than the modules name Finally, although not necessarily a part of this callable service, it would also be desirable to be able to obtain the "data set name" (HFS, PDS, PDSE, LPA member, or whatever) from which each of these entities was obtained." * * * * The current IBM response is "RECOGNIZE". You may want to submit a marketing REQUEST and reference this SHARE requirement. "Thomas Berg" <thomas.b...@swedbank.se> wrote in message news:<e46b4df55a5e8746855078ae31f1b1802db71f3...@fspas01ev010.fspa.myntet.se >... > Hi, > > Does anyone know a way to get the actual calling > modules name in a COBOL program ? Also other details > about the calling module would be interesting. > > I looked through LE Programming Reference for callable > services buth didn't find any (obvious) such function. > > Any hints ? > > > > Regards, > Thomas Berg > __________________________________________ > Thomas Berg Specialist IT-U SWEDBANK > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
