Need to find out the caller of a REXX-procedure

[Adam5]

Hello,

I need to find out which REXX-procedure calls the aktual REXX-procedure.

For example REXX-procedure TEST1 calls TEST2:


REXX-procedure TEST1:

/* REXX */
call TEST2

REXX-procedure TEST2:

/* REXX */
whocallsme = ????? 
say 'I was called from ' whocallsme

The result should be:

I was called from TEST1

Thanks

 

[nclouston]

The have the caller pass its name to the called routine.


Nic

 

[mikrom]

Maybe pass the caller name as argument to the called procedure.

 

[mikrom]

Or you can use REXX stack to transfer caller name - example:

rx_pgm01.rex

parse source opsys envir pgm_name
pgm_name = upper(pgm_name)
say "* This program name: '" pgm_name "'"

/* show caller name */
if queued() \= 0 then do
  pull caller_name
  say "      called from: '" upper(caller_name)"'" 
end

/* push this program's name */
push pgm_name

/* call other pgm */
call rx_pgm02

rx_pgm02.rex

parse source opsys envir pgm_name
pgm_name = upper(pgm_name)
say "* This program name: '" pgm_name "'"

/* show caller name */
if queued() \= 0 then do
  pull caller_name
  say "      called from: '" upper(caller_name)"'" 
end

/* push this program's name */
push pgm_name

/* call other pgm */
call rx_pgm03

rx_pgm03.rex

parse source opsys envir pgm_name
pgm_name = upper(pgm_name)
say "* This program name: '" pgm_name "'"

/* show caller name */
if queued() \= 0 then do
  pull caller_name
  say "      called from: '" upper(caller_name)"'" 
end

/* push this program's name */
push pgm_name

/* call other pgm */
/*call rx_pgm03 */

...
...
etc

Output:

c:\Work>rexx rx_pgm01.rex
* This program name: ' C:\WORK\RX_PGM01.REX '
* This program name: ' C:\WORK\RX_PGM02.REX '
      called from: ' C:\WORK\RX_PGM01.REX'
* This program name: ' C:\WORK\RX_PGM03.REX '
      called from: ' C:\WORK\RX_PGM02.REX'

It works with both REXXes I have here: OORexx and Regina.

 

[Adam5]

I don't like the usage of the stack. Therefore I think, I'll use the "parse source" to get the name of the running exec, and pass that as a argumtent to the called procedure.

Thank's a lot!

 

[mikrom]

External data queue is a neat feature of REXX. I like it