如何在AS / 400 RPG中检查Pgm的堆栈？

Question

I have a doubt about how to find the stack of the pgm?

EX: We have three pgms PGM 1 , PGM 2, PGM 3.

However PGM 2 called by PGM1 and PGM 3 called by PGM 2.

how we check that PGM 3 called by PGM 2 as we know only about the PGM 3. we don't about the other pgms.

Is there are command to check the stack of the PGM . Which PGM is called by which PGM without checking the Source code.

Thank you! Mohd Wasim

Answer 1

Check the QWVRCSTK API : qwvrcstk API , That's the equivalent of JOB information option 11=Display Call Stack

Example here : RPGLE find Calling program name

Answer 2

While the program (PGM3) is active you can display it's call stack. From WRKACTJOB screen place a "5=Work With" next to the entry, then from the next menu option "11=Display Call Stack". The active program should be at (or near) the end of the list.

Of course that doesn't guarantee that is the only pathway the program can be called (that seems impossible to know without scanning the source, or a using change management utility).

Answer 3

If you want to check this programatically, you can send a program message to the programs call stack entry.

SNDPGMMSG  MSG(' ') TOPGMQ(*SAME &PGMNAME) KEYVAR(&KEYVAR)

If you get a CPF2469 or CPF2479 message, the program is NOT on the call stack.

If you don't get an error, then the program is on the call stack.

You can use the &KEYVAR variable to remove the message you just sent off the message queue.