Tracy:

The first thing I would do is to have every program / subroutine / 
function call / intrinsic set with an internal name (may be the same as 
external).

01  PROGRAM-ID PIC X(16) VALUE "PROGNAME".

Then when calling a subroutine, pass the variable PROGRAM-ID as one of 
the parameters or part of the linkage section.

If you want to get fancy, create an addition variable
01  PROGRAM-HISTORY OCCURS 10 TIMES.
      02  PROGRAM-HISTORY-TBL PIC X(16).

Then when calling an other process, pass only the PROGRAM-HISTORY 
variable.  The program can determine who made the call simply by 
scanning the passed variable

The first program would move the PROGRAM-ID to PROGRAM-HISTORY.

Each subsequent program, subprogram and etc would add its PROGRAM-ID to 
the first non blank entry from the table PROGRAM-HISTORY-TBL.

Hope this helps.
Olav.

Tracy Pierce wrote:

>main pgm a calls xl-rez subpgm b calls c calls d.
> 
>d needs to know who called.  I understand I can't get the caller name,
>so need to get my own name and pass that down.  how?
> 
>posted on behalf of [log in to unmask]
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>  
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *