RE: Call Stack API

[Brian Johnson <brian@xxxxxxxxxxxxxxx>]

Here's a simple and effective method for OPM programs (as usual, things   
are a little more complicated with ILE):

1.  Send a message to your caller:

SNDPGMMSG MSG('Who are you?')
          TOPGMQ(*PRV (*))
          MSGTYPE(*INFO)
          KEYVAR(&KEYVAR)

2.  Retrieve the message you just sent:

RCVMSG MSGKEY(&KEYVAR)
       SENDER(&SENDER)
       SENDERFMT(*SHORT)

3.  Inspect the SENDER structure for the name of your caller (who you   
sent the message to):

CHGVAR VAR(&CALLER)
       VALUE(%SST(&SENDER 56 10))
 --
Brian Johnson
Help/Systems, Inc.
brian@helpsystems.com


 ----------
From:  mancini
Sent:  Wed, Jul 2, 1997 6:04 AM
To:  brian; MIDRANGE-L@midrange.com
Subject:  Call Stack API

Can anyone help me?

I need to know in a program(CL) what program called it.

    PGM_A calls PGM_B
    in PGM_B, I need to know that PGM_A called it.
    PGM_B is a CL program.

Is there an API that retreives a jobs call stack?

Thank You
Joe

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *