Sv: Command validation program

["Henrik Krebs" <Henrik.Krebs@xxxxxxxxx>]

We are talking about 'Which COMMAND was used to evoke the
(validation-)program?' I wonder if that information exists anywhere but in the
(inactive) program-template (for dbg/errormsg/rtv). Well, I'm not sure.

When James W. Kilgore <qappdsn@ibm.net> on 27. maj 1998 at 10:25 write 

>I would really like to have created a caller black box to let the low level
>function know who was ringing the bell and I finally had to retrofit the low
>levels to accept a caller parameter and the intermediates to accept and pass
on
>the same.  Not nearly as "artfull" as I would have liked.  It would have been
a
>lot easier if there was a CL equivalent to ?proc?.  Hard coding a name is a
>definate no-no in our shop....we like to change our mind when adhereing to the
>most recent "convention" gets us painted into a corner ;-)

it sounds like 'Which PROGRAM was used to evoke the (validation-)program?'.
That's easy.
I think TAATOOL has an 'Display Invocation stack'. If not, here is some code
from my SYSPMHC-program (can be ordered in whole at
fttp://users.cybercity.dk/~dko3534/docrpgsrc.html):

                SNDPGMMSG  MSG('Find TOPGMQ for SYSPMHC') TOPGMQ(*PRV) +
                             MSGTYPE(*RQS) KEYVAR(&KEYVAR)
                RCVMSG     PGMQ(*PRV) MSGKEY(&KEYVAR) RMV(*YES) +
                             SENDER(&SENDER)
                CHGVAR     VAR(&TOPGMQ) VALUE(%SST(&SENDER 56 10))

The &TOPGMQ holds the name of the calling program.


Regards

Henrik Krebs

------------------------------------------------------------
Henrik Krebs
IT Consultant (IBM AS/400)
Phone +45 31 57 83 23
Mobile +45 40 88 83 23
Email: Henrik.Krebs@Scout.Net
Web: http://users.cybercity.dk/~dko3534
Snailmail: Amagerbrogade 62, 3-24, DK-2300 Copenhagen
------------------------------------------------------------
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---