Re: caller-id program

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 08/01/2018 04:36:04
PM:

I seem to recall not too long ago someone posted a question
regarding the program called "caller-id" written by Lloyd Deviney
from NEWS/400. It was stated that there is an issue with this
program working on V7R3. I forgot to print off the solution to the
problem. I've tried searching the archives, but I can't find the
answer. Is the issue related to the APIs that are being called in
this program? When I Google "caller-id" I came across a question I
had posted on the RPG Café. One of the replies references a link to
the original article which doesn't seem to exist any more. Can
someone please post a link to the solution to fixing this?

FWIW, I created a service procedure (utilizing the QWVRCSTK API)
return the "previous" call stack entry from a particular program or to
simply "find" and return the call stack entry for a particular program.
This allows, for example, retrieving the name of the calling program (and
module name and procedure name) or finding out if a particular program is
already in the call stack (e.g., to prevent recursion). I posted this
service procedure on the midrange wiki for free use. However, we aren't
at 7.3 yet (at 7.2 still) but I see no reason why this service procedure
won't work just as well at that release level since IBM's API should
maintain reverse compatibility.

https://wiki.midrange.com/index.php/QWVRCSTK_%E2%80%94_Retrieve_Call_Stack


Sincerely,

Dave Clark