If it's using standard OS linkage, he could use an assembler routine to do a traceback and get some of the items.
The problem will come in if passed by value instead of by reference... Joe On Tue, Sep 22, 2020 at 2:58 PM Seymour J Metz <sme...@gmu.edu> wrote: > I doubt that it's possible in general, certain special cases are possible. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > ________________________________________ > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf > of Chris Cantrell <chris.cantr...@palmettogba.com> > Sent: Tuesday, September 22, 2020 3:24 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Determining program name/number of paramaters from called COBOL > program > > Hello, > > I am hoping someone out there can help me with this 'opportunity'. > > In a Z/OS enterprise COBOL environment, I want to be able to retrieve the > calling program name and the number of parms passed to the called program > from the called program. In other words, program A is executed in my batch > job and it calls program B passing 5 parms in the using statement. I want > program B to be able to retrieve the program name for program A as well as > the number of parms that were passed to it. > > I think if I could get to the program stack I could probably figure it out > from there. > > Any assistance that any of you could provide would be greatly appreciated. > > Thanks! > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN