RE:Who called me in Trigger

[John Carr <74711.77@xxxxxxxxxxxxxx>]

Message text written by INTERNET:MIDRANGE-L@midrange.com
>
I know that this was answered at least once before, but if someone has it
if
you could re-post it I would appreciate it.

What I need is the caller (or the program that created the event) that
caused the trigger to be called.  Also, if you have any idea or history of
the performance of doing this.  Usually, getting the invocation stack is a
pretty expensive operation.  I would hate to do it on every operation,
but...  Thanks
John Bussert
Swift Technologies, Inc.
jbussert@stecnet.com
<

John


In your *INZSR subroutine repeatedly call a CLP to retrieve the program
name of the caller.  You can "walk up the Stack" past the programs(OS/400's
that begin with "Q")  to the program you're looking for. 

Just call the below program repeatedly(in a loop in your *INZSR),  First
time 
pass your trigger program name as the &CALLED, and who ever called your 
trigger will be returned in the &CALLER variable.  This will be a "Q" 
OS/400 program.  Call the CLP again this time pass what was returned the
first time to find out who called him, and so on.  up the stack till *EXT.

Stop when the program name(&CALLER) doesn't begin with a "Q". 
That's the program you want.

PGM    &CALLER &CALLED

DCL   &CALLER  *CHAR  10  
DCL   &CALLED  *CHAR  10
DCL   &M1KEY   *CHAR   4
DCL   &M1MDTA  *CHAR  80

SNDPGMMSG  MSG('TEST')  TOPGMQ(*PRV &CALLED) MSGTYPE(*RQS) KEYVAR(&M1KEY)

RCVMSG   PGMQ(*PRV &CALLED)  MSGKEY(&M1KEY)  SENDER(&M1MDTA)

CHGVAR   &CALLER    %SST(&M1MDTA  56 10)

ENDPGM


John Carr
EdgeTech -  Have Classes, Will Travel
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---