Thank you all for your responses. I got it working. And I've
learned something about rexxvars and runpipe in the bargain!
- Tom
At 11:27 AM 6/13/2006, you wrote:
Something like:
Do l=1 by 1 Until (caller='SYSPROF' | RC<>0) /* Look for SYSPROF */
pipe='rexxvars' l '| take 1 | spec w4 1 | var caller'
'PIPE (sep ?) var pipe ? runpipe'
end
If RC=0 then say "Called from SYSPROF"
Also, the variable "l" will be set to how many levels back SYSPROF
EXEC was found.
On 6/13/06, Rob van der Heij <[EMAIL PROTECTED]> wrote:
On 6/13/06, Tom Cluster <[EMAIL PROTECTED]> wrote:
> Is there a way for me to know, from within PROFILE EXEC, if I've been
> invoked by the logon process, as opposed to someone typing PROFILE?
You could use CMS Pipelines' rexxvars stage to step back through the
EXECCOMM environments and see whether SYSPROF is up there. The other
one that I had to debug was something looking inside NUCON at the CMS
initialization time and draw conclusions.
The smarter you do this, the harder it gets to debug ;-)
--
Rob van der Heij
Velocity Software, Inc
http://velocitysoftware.com/
--
Bruce Hayden
IBM Global Technology Services, System z Linux
Endicott, NY
Tom Cluster
County of Sonoma
Santa Rosa, CA
(707) 565-3384 (Tuesdays and Wednesdays only)
