The DMSCALLR CSL routine may also help with this. It can extract the chain of callers, so you can see if you were invoked from the command line, via a module, or via an exec. Use HELP ROUTINES DMSCALLR to read about it..
On Thu, Sep 23, 2010 at 9:42 AM, Colin Allinson <[email protected]> wrote: > I have a REXX EXEC (that will run as a compiled module) that needs to know > how it was called and where from. > > It could be called but, more likely, it will just be executed from an > EXEC. > > I can certainly include a PIPE REXXVARS 1 in the routine to find the > caller. > > The problem is that the other possibility is that it may be called > directly from the call line. In this case any invocation level other than > 0 gives a pipe error. > > I don't think there is anything on PARSE SOURCE that can help me because I > am normally not called as a subroutine. > > Is there any way I can tell what is the maximum valid invocation level? I > am sure there is something obvious but I can't think of it at the moment. > > Just to explain what I am trying to do. I want to put a wrapper around a > standard command module so that I can log it's use (where from etc.). > > Colin Allinson > VM Systems Support > Amadeus Data Processing GmbH > > > > > IMPORTANT - CONFIDENTIALITY NOTICE - This e-mail is intended only for > the use of the individual or entity shown above as addressees. It may > contain information which is privileged, confidential or otherwise > protected from disclosure under applicable laws. If the reader of this > transmission is not the intended recipient, you are hereby notified that > any dissemination, printing, distribution, copying, disclosure or the > taking of any action in reliance on the contents of this information is > strictly prohibited. If you have received this transmission in error, > please immediately notify us by reply e-mail or using the address below > and delete the message and any attachments from your system. > > Amadeus Data Processing GmbH > Geschäftsführer: Eberhard Haag > Sitz der Gesellschaft: Erding > HR München 48 199 > Berghamer Strasse 6 > 85435 Erding > Germany > -- Bruce Hayden z/VM and Linux on System z ATS IBM, Endicott, NY
