Trigger pgm: user & pgm id

[John Carr <74711.77@xxxxxxxxxxxxxx>]

RE:     Trigger pgm: user & pgm id

Karen 
Short of using API's you could call a CLP which does a SNDPGMMSG 
and do a RCVMSG which will tell you the calling program name.

Something like this;

PGM    &CALLED &CALLER

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

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


RCVMSG     PGMQ(*PRV &PGM)  KEYVAR(&M1KEY) SENDER(&M1MDATA)

CHGVAR     &CALLER   %SST(&M1DATA   56 10)

ENDPGM

&CALLER is the caller of what ever is passed in the variable &CALLED.

Call CL this from your trigger program X times.   1st time pass it your 
trigger program name in &CALLED.   This will return the OS/400 program
(DB pgm) that called your trigger. 

Call this CL again passing it what was returned the 1st time in the 
&CALLED parm to start over.

This will return who called him.  Do this over and over till you
get a program that doesn't start with a Q.

This is a generic little utility.

The top should be *EXT. 

John Carr

I would like to identify the program and user that tripped the *UPDATE trigger 
when
they were updating a database file.  We are using V3R1, not under journaling,
commitment control, or ILE.  Just OPM Cobol at the moment.  What (CL) command 
can
I use in my (Cobol) trigger program to identify this?  (We want to place the 
before and
after images of the database change in a history file, with time, user and 
program that
made the change.)

TIA.
Karen Bellecci
kbellecci@osfa.state.la.us
+---
| 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
+---
uucp
+---
| 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
+---