Re: Can I know how a PROFILE EXEC was invoked?

2006-06-20 Thread Huegel, Thomas
Title: RE: Can I know how a PROFILE EXEC was invoked? Look at this location in storage, will contain the last command entered from the console and blanks after CMS is IPL'd before anything is typed.. LASTCMND DC CL8' ' Last command issued this is in the NUCON on my release at x'2A0' #cp d

Re: Can I know how a PROFILE EXEC was invoked?

2006-06-13 Thread Rob van der Heij
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

Can I know how a PROFILE EXEC was invoked?

2006-06-13 Thread Tom Cluster
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? - Tom. Tom Cluster County of Sonoma Santa Rosa, CA (707) 565-3384 (Tuesdays and Wednesdays only)

Re: Can I know how a PROFILE EXEC was invoked?

2006-06-13 Thread Don Russell
parse source . how . how may be one of COMMAND, FUNCTION, SUBROUTINE. If you're not opposed to modifying SYSPROF, you could call PROFILE as a function or subroutine from there. Don Russell Tom Cluster wrote: Is there a way for me to know, from within PROFILE EXEC, if I've been invoked by

Re: Can I know how a PROFILE EXEC was invoked?

2006-06-13 Thread Bruce Hayden
Something like: Do l=1 by 1 Until (caller='SYSPROF' | RC0) /* 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

Re: Can I know how a PROFILE EXEC was invoked?

2006-06-13 Thread Alan Altmark
On Tuesday, 06/13/2006 at 10:59 MST, 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? Yes. caller = left( , 16) Call CSL DMSCALLR rc caller 3 if rc = 8 then you were

Re: Can I know how a PROFILE EXEC was invoked?

2006-06-13 Thread Tom Cluster
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' | RC0) /* Look for SYSPROF*/ pipe='rexxvars' l '| take 1 | spec

Re: Can I know how a PROFILE EXEC was invoked?

2006-06-13 Thread Alan Altmark
On Tuesday, 06/13/2006 at 02:33 EST, Steve Gentry [EMAIL PROTECTED] wrote: uh-oh, you said the 'S' word. Shields up! Go easy on him Chuckie! Tempting, but no. -- C.