The parm list won't tell him who's calling him. I wouldn't be surprised if the special cases cover his requirements, but until he spells them out, ...
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Joe Monk <[email protected]> Sent: Tuesday, September 22, 2020 4:40 PM To: [email protected] Subject: Re: Determining program name/number of paramaters from called COBOL program yeah ... but R1 should point to the parm list ... and he would calling this assembler stub 1st thing so ... Joe On Tue, Sep 22, 2020 at 3:23 PM Seymour J Metz <[email protected]> wrote: > If the data are not in the called programs then chasing the save areas > won't find the data. The basic form of a SAVE is just an STM (24 bit) or > similar instructions. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > ________________________________________ > From: IBM Mainframe Discussion List <[email protected]> on behalf > of Joe Monk <[email protected]> > Sent: Tuesday, September 22, 2020 4:16 PM > To: [email protected] > Subject: Re: Determining program name/number of paramaters from called > COBOL program > > he could work his way back thru the saveareas, no? > > Joe > > On Tue, Sep 22, 2020 at 3:05 PM Seymour J Metz <[email protected]> wrote: > > > Standard linkage conventions don't require branching around an eyecatcher > > or that they eyecatcher be in a standardized format or even include the > > module name. So the question is what special cases does the OP need to > > handle. > > > > > > -- > > Shmuel (Seymour J.) Metz > > http://mason.gmu.edu/~smetz3 > > > > > > ________________________________________ > > From: IBM Mainframe Discussion List <[email protected]> on behalf > > of Joe Monk <[email protected]> > > Sent: Tuesday, September 22, 2020 4:00 PM > > To: [email protected] > > Subject: Re: Determining program name/number of paramaters from called > > COBOL program > > > > 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 <[email protected]> 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 <[email protected]> on > behalf > > > of Chris Cantrell <[email protected]> > > > Sent: Tuesday, September 22, 2020 3:24 PM > > > To: [email protected] > > > 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 [email protected] with the message: INFO IBM-MAIN > > > > > > ---------------------------------------------------------------------- > > > For IBM-MAIN subscribe / signoff / archive access instructions, > > > send email to [email protected] with the message: INFO IBM-MAIN > > > > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
