RE: Best way to determine which program is causing execution oftrigger program. -- RPG400-L

Stephen
here is what I have used to find the name of the calling program

D GetCaller PR Extpgm('QWVRCSTK')
D 2000
D 10I 0
D 8 CONST
D 56
D 8 CONST
D 15

D Var DS 2000
D BytAvl 10I 0
D BytRtn 10I 0
D Entries 10I 0
D Offset 10I 0
D EntryCount 10I 0
D VarLen S 10I 0 Inz(%size(Var))
D ApiErr S 15
D JobIdInf DS
D JIDQName 26 Inz('*')
D JIDIntID 16
D JIDRes3 2 Inz(*loval)
D JIDThreadInd 10I 0 Inz(1)
D JIDThread 8 Inz(*loval)

D Entry DS 256
D EntryLen 10I 0
D PgmNam 10 Overlay(Entry:25)
D PgmLib 10 Overlay(Entry:35)

c eval CallingPgmNam = *blanks
c eval CallingPgmLib = *blanks
C CallP GetCaller(Var:VarLen:'CSTK0100':JobIdInf
C :'JIDF0100':ApiErr)
C Do EntryCount
C Eval Entry = %subst(Var:Offset + 1)
c if CallingPgmNam = *blanks and
c CallingPgmLib = *blanks
c if PgmNam = psdsPgmName and
c PgmLib = psdsPgmLib
C Else
c eval CallingPgmNam = Pgmnam
c eval CallingPgmLib = Pgmlib
C Endif
C Endif
C Eval Offset = Offset + EntryLen
C Enddo

I think I have everything
If not just drop me a line with whatever info you have

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/01/2008 08:19:59 AM:

Sorry should have been more descriptive in my initial email. I have
considered this but I do have other situations where I need to
differentiate between which interactive calling program (And batch for
that matter)is causing trigger and also I thought it maybe handy for
other application.

I already have the call to QUSRJOBI (JOBI0400) in the Trigger program
but I really would like to determine the calling program if possible.

Thanks

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Hillier, Martin
Sent: 01 October 2008 12:46
To: RPG programming on the AS400 / iSeries
Subject: RE: Best way to determine which program is causing execution
oftrigger program.

Hi Stephen,

Your description makes it sound more like you want to use job type
rather than calling program. Check out the RTVJOBA command, and its
corresponding API if thats the case.

Cheers,
Martin

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brown, Stephen GRNRC
Sent: 01 October 2008 12:23
To: RPG400-L@xxxxxxxxxxxx
Subject: Best way to determine which program is causing execution
oftrigger program.

Folks,

Anyone know of the best way to determine which program is the causing
execution of a trigger program.

I would like to do different things when trigger is executed as the
result of an interactive change to a file as opposed to one caused by a
batch change.

Thanks.

Confidential, unpublished property of CIGNA Do not duplicate or
distribute. Use and distribution is limited solely to authorised
personnel.
(c) Copyright 2008 (CIGNA Corporation)

------------------------------------------------------------------------
------
CONFIDENTIALITY NOTICE: If you have received this email in error, please
immediately notify the sender by e-mail at the address shown. This
email transmission may contain confidential information. This
information is intended only for the use of the individual(s) or entity
to whom it is intended even if addressed incorrectly. Please delete it
from your files if you are not the intended recipient. Thank you for
your compliance. Copyright 2008 CIGNA
========================================================================
======
--
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 message (including any attachments) is only for the use of the
person(s) for whom it is intended. It may contain Mattel confidential
and/or trade secret information. If you are not the intended recipient,
you should not copy, distribute or use this information for any purpose,
and you should delete this message and inform the sender immediately.
--
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.

------------------------------------------------------------------------------

CONFIDENTIALITY NOTICE: If you have received this email in error,
please immediately notify the sender by e-mail at the address shown.
This email transmission may contain confidential information. This
information is intended only for the use of the individual(s) or
entity to whom it is intended even if addressed incorrectly. Please
delete it from your files if you are not the intended recipient.
Thank you for your compliance. Copyright 2008 CIGNA

==============================================================================

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