|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.