Not pretty, nor documented per se, and offsets could change, but -
   depth=c2d(Storage(d2x(c2d(storage(674,4))+28),4)) 
Is the depth of the svc stack.  It will be 2 if the encompassing exec is
called from the command line, higher otherwise. 


Mike Harding
EDS VM National Capability
134 El Portal Place
Clayton, Ca.  USA  94517-1742

* phone: +01-925-672-4403
*  Fax: +01-925-672-4403
* mailto:[EMAIL PROTECTED]   * <mailto:[EMAIL PROTECTED]>
(personal)
Note:  For 2007, I am off on Fridays with even Julian dates and Mondays
with odd ones.


-----Original Message-----
From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On
Behalf Of Wakser, David
Sent: Wednesday, December 26, 2007 12:45 PM
To: [email protected]
Subject: Re: Checking how invoked

Kris:

        The problem, even with DMSCALLR, is that it returns the same
value whether the EXEC was entered on the command line, or from another
EXEC. I need to differentiate between calls from another EXEC an
invocation from the command line. Is there a way?

David Wakser 

-----Original Message-----
From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On
Behalf Of Kris Buelens
Sent: Wednesday, December 26, 2007 1:33 PM
To: [email protected]
Subject: Re: Checking how invoked

With PASRE SOURCE, you can only see a difference between called
- as REXX subroutine or REXX function: CALL myexec  or xyz=myexec()
- some other means: like CMS commandline or another exec using 'EXEC
myexec'
There is the DMSCALLR CSL routine that can provide much more information
about who called me, but I don't know it by heart: so HELP ROUTINES
DMSCALLR

2007/12/26, Wakser, David <[EMAIL PROTECTED]>:
> Thanks, John. That was it.
>
> David Wakser
>
> -----Original Message-----
> From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] 
> On Behalf Of Romanowski, John (OFT)
> Sent: Wednesday, December 26, 2007 1:10 PM
> To: [email protected]
> Subject: Re: Checking how invoked
>
> parse source
> help rexx parse
>



--
Kris Buelens,
IBM Belgium, VM customer support

Reply via email to