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

[Alan Shore <AlanShore@xxxxxxxx>]

Sorry Stephen, I knew there would be something I forgot
They are part of the SDS
We have a copybook for this
D                sds
D  psdsPgmName      *proc
D  psdsStatus       *status
D  psdsPstatus                   5S 0
D  psdsLineNbr                   8A
D  psdsRoutine      *routine
D  psdsParms        *parms
D  psdsException                 7A
D    psdsExcType                 3A   overlay(psdsException)
D    psdsExcNbr                  3A   overlay(psdsException:4)
D  psdsMsgWork           51     80A
D  psdsPgmLib            81     90A
D  psdsMsgData           91    170A
D  psdsFile             175    184A
D  psdsJob              244    253A
D  psdsUser             254    263A
D  psdsJobNbr           264    269S 0
D  psdsProcProg         334    343A
D  psdsProcMod          344    353A
D  psdsLineNbr2         354    355I 0

If theres anything else you need



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 09:51:10 AM:

> Alan,
>
> What are the two fields psdsPgmName and psdsPgmLib ? And what/where are
> they defined
>
>
> Thanks
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
> Sent: 01 October 2008 13:35
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Best way to determine which program is causing execution
> oftrigger program.
>
>
> 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.
> --
> 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.