RE: caller-id program

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 08/03/2018 10:27:34
AM:

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 08/02/2018 03:50:26
PM:

Thank you for your reply. Do you think this will work if I call
your procedure from my trigger program?

Yes, I call it from my trigger program for this very purpose.

Forgot to mention, though, that you have to bypass the SQL entries
in the call stack to get to the program that actually performed the
original I/O operation. Here is the code I use to do that.


RefPgm = PROC_PGM; // starting with the current program

DoU QWVPGMN = *blanks // find previous program in call stack
or RefPgm = 'QSQIMAIN' // which may be STRSQL
or RefPgm <> PROC_PGM // but not this program
and %subst(RefPgm:1:1) <> 'Q'; // or any other IBM program
QWVCSTKE = GenUtl_FindCallStackEntry('*PRV': RefPgm);
if QWVPGMN > *blanks; // if a program name is present
RefPgm = QWVPGMN; // save returned call stack program
endif;
enddo;

select;
when (%subst(RefPgm:1:3) = 'DBU');// if DBU utility found
RefPgm = 'DBU'; // set generic program id
when (RefPgm = 'QSQIMAIN'); // if STRSQL driver found
RefPgm = 'STRSQL'; // set command name, instead
other; // otherwise
if (QWVMN > *blanks); // if a module name is present
return QWVMN; // return that
endif;
endsl;

return RefPgm; // return name of originating program


Sincerely,

Dave Clark