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 2A0  X'40'= just IPL'd  anything else not just IPL'd



-Original Message-
From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU]On
Behalf Of Tom Cluster
Sent: Tuesday, June 13, 2006 12:59 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Can I know how a PROFILE EXEC was invoked?



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) 



__
 ella for Spam Control  has removed VSE-List messages and set aside VM-List for me
You can use it too - and it's FREE! http://www.ellaforspam.com





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 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/


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 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 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 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


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 called from the command line
if rc = 0  strip(caller) = EXECSYSPROF then you were called from 
SYSPROF EXEC.

(This is also the routine you use to figure out if you were called from 
XEDIT.)

Alan Altmark
z/VM Development
IBM Endicott


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 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) 


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.