• Subject: Sv: Command validation program
  • From: "Henrik Krebs" <Henrik.Krebs@xxxxxxxxx>
  • Date: Wed, 27 May 1998 22:37:31 +0200

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
>the same.  Not nearly as "artfull" as I would have liked.  It would have been
>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

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

The &TOPGMQ holds the name of the calling program.


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

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].