Greg:

Generally, it is doing the right thing by returning "AAA".  "AAA" is the 
program, all the others are called routines (subroutines, functions, 
intrinsic, etc).

Just because you call them a program does not make them so.

Just my .02,

Olav.

Greg Terterian wrote:

> 
>01   ERR-1                         PIC S9(4) COMP VALUE 0.
> 01   ERR-2                         PIC S9(4) COMP VALUE 0.
> 01   WS-PIN                       PIC S9(4) COMP VALUE 0.
> 01   PROG-GRP-ACCT       PIC X(28) VALUE  SPACES.
> 
>     CALL INTRINSIC  "PROCINFO"
>         USING  ERR-1 ERR-2 WS-PIN PROG-GRP-ACCT.
> 
> 
>I have a main  process that calls a subroutine from an XL.  I need to get the 
> calling
>programs name.
> 
>Main-program  "AAA.PUB.MAIN" calls a dynamic subprogram "BBB" from the XL.
>     Dynamic-Subprogram "BBB" calls yet another dynamic subprogram  "CCC".
>        Dynamic-Subprogram  "CCC" this program calls the "PROCINFO" intrinsic
>             which returns the value "AAA.PUB.MAIN".  What I need to know is  
>the
>             name of the main program OR the dynamic subprogram that  actually
>             placed the call to "CCC".  
>             EX: If "CCC" is called from the main program then return  
>"AAA.PUB.MAIN"
>                   If "CCC" is called from the dynamic subprogram then return 
> "BBB".
> 
>How can this be done  ????
> 
>Thank you in  advance
>David
>
>
>* 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 *