I wrote a quick test - hope it helps:

Test One:

T1:
/* rexx */                    
parse source with src         
say 'src:' src                
'%t2'                         

T2:
/* rexx */                  
parse source with src       
say 't2 src:' src           
'%t3'                       

T3:
/* rexx */               
parse source with src    
say 't3 src:' src        

The results when executing T1:

src: COMMAND T1 SYSEXEC ? ? TSO ISPF ?      
t2 src: COMMAND T2 SYSEXEC ? ? TSO ISPF ?   
t3 src: COMMAND T3 SYSEXEC ? ? TSO ISPF ?   


Test 2:

T1:
/* rexx */               
parse source with src    
say 'src:' src           
x = t2()                 

T2:
/* rexx */              
parse source with src   
say 't2 src:' src       
x = t3()                
return 0                

T3:
/* rexx */                   
parse source with src        
say 't3 src:' src            
return 0                     

Results:

src: COMMAND T1 SYSEXEC ? ? TSO ISPF ?       
t2 src: FUNCTION T2 SYSEXEC ? ? TSO ISPF ?   
t3 src: FUNCTION T3 SYSEXEC ? ? TSO ISPF ?   

Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
David Spiegel
Sent: Thursday, January 27, 2022 11:23 AM
To: [email protected]
Subject: Re: Tracking CLIST/Exec Usage

Hi Robert,
I saw this, but, this displays the name of the executing Exec. I need the name 
of the Exec that invoked this one.
For example, if Exec A invoked Exec B, I would like (in Exec B) to determine 
that it was invoked by Exec A.

Regards,
David

On 2022-01-27 14:09, Robert Prins wrote:
> On Thu, 27 Jan 2022 at 16:31, David Spiegel <[email protected]> wrote:
>
>> Is it possible for an Exec/CLIST to determine from which Exec/CLIST 
>> it was invoked?
>>
>
>> If yes, please specify how.
>>
> <https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> tek-tips.com%2Fviewthread.cfm%3Fqid%3D1162402&amp;data=04%7C01%7C%7Cd7
> 240226dbdf44cf01e408d9e1b7ddc7%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%
> 7C0%7C637789002175392064%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiL
> CJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000&amp;sdata=o6t%2BD
> rzm%2BThU%2B8UPl46SG90mg6D2dFY91Fz1v3Ewjz8%3D&amp;reserved=0>
>
> Unformatted for some reason, so you'll have to add the line-breaks yourself.
>
> Robert

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
[email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to