RE: Trigger pgm: user & pgm id

In RPG you can look in the program status data structure for the user name. 
I'm not sure what Cobols equivalent is. As for the program, you need to 
look at the call stack. Either use the aforementioned send/receive message 
hack or look for an API. Remember that the program you want is not the one 
that called the trigger, but rather the one that called it.

Also, remember that this concept goes out the window if you are using 
opticonnect. The user shown on the update is QOPT (or something like that) 
not the name of the user on the remote machine.

-Walden

PS. I was going to include the name of the API to call to retrieve the call 
stack. But I cannot find one. Does anyone know of an API to retrieve a 
job's call stack?

-------------------------------
Walden Leverich
Tech Software
walden@techsoftinc.com
www.techsoftinc.com

-----Original Message-----
From:   Karen Bellecci [SMTP:KBellecci@osfa.state.la.us]
Sent:   Wednesday, November 05, 1997 10:33 AM
To:     MIDRANGE-L@midrange.com
Subject:        Trigger pgm: user & pgm id

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
+---