Re: Find the calling program

I use the following in my program
D CallingPgmNam   s                   like(Pgmnam)
D CallingPgmLib   s                   like(Pgmlib)

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 hope I got everything for you



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
 *


                                                                       
             "Mike Cunningham"                                         
             <MCUNNING@xxxxxxx                                         
             >                                                          To
             Sent by:                  <rpg400-l@xxxxxxxxxxxx>         
             rpg400-l-bounces@                                          cc
             midrange.com                                              
                                                                   Subject
                                       Find the calling program        
             07/20/2006 03:25                                          
             PM                                                        
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       




Is there any way for an RPG to determine what program called it?  I am
writing a service program that writes records to a database and one of
the fields I want to store is the name of the program that asked the
service program to create the record. So PGMA calls PGMB that calls
SERVICEPGM I want SERVICEPGM to write a database record with PGMB in the
tracking field. I have done this many years ago but at that time I
passed a parameter to know who was requesting the service but then all
the code was mine and I trust my code :) This time a lot of people will
be using the service program and I would prefer not to let them pass me
anything they want.

Mike Cunningham
Pennsylvania College of Technology
www.pct.edu
mcunning@xxxxxxx
--
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.