RE: Trigger program & userid

[rob@xxxxxxxxx]

For more samples on this, try this command on your iSeries
WRKOBJLCK OBJ(ROB) OBJTYPE(*USRPRF)
replacing ROB with your user id.
I'll see jobs like:
Job          User 
Job          User         Lock 
QZLSFILE     QUSER        *SHRRD
                          *SHRRD
                          *SHRRD
                          *SHRRD
QZLSFILE     QUSER        *SHRRD
                          *SHRRD
                          *SHRRD
                          *SHRRD
ROBCODE      ROB          *SHRRD
                          *SHRRD
                          *SHRRD
ROBS1        ROB          *SHRRD
...
This command comes in right handy when you go to delete a user.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





rob@xxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/21/2004 08:57 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: Trigger program & userid






Will that work if your job was started by someone using iSeries access to 
post data into the file?  If so does the job run under some standard IBM 
name, like this job:
Job 111261/QUSER/QZLSFILE
Servicing user profile ROB from client 10.10.222.69.

Which user would it report then?  ROB, or QUSER?

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/20/2004 05:44 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: Trigger program & userid






Hi Joel,

You can get the user profile info from the Program Status Datastructure. 

d psdata         sds 
d  $pgmnm           *proc 
d  $usrid               254    263

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Joel Schibbelhute [mailto:joel_schibbelhute@xxxxxxxxx]
Sent: Tuesday, January 20, 2004 4:33 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Trigger program & userid


I have written a trigger program in RPG (my first) which is working ok, 
but
my problem is that I need to be able to capture the userid that tripped 
the
trigger. I have searched for a solution but can't seem to find one.
 
Any suggestions?
 
Thanks, Joel


---------------------------------
Do you Yahoo!?
New Yahoo! Photos - easier uploading and sharing
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.