Hello Ed,

You wrote:
>This function is there if you are willing to use the Suppress Adopted User
>Profile option on the Modify Invocation Authority Attributes (MODINVAU),
>Call External (CALLX), or Transfer Control (XCTL) MI instructions. See
>http://www.as400.ibm.com/tstudio/tech_ref/mi/ for the latest description
>of these instructions.

Thanks for that information.  I knew about CALLX and XCTL.  They are useful
when you might want some calls to propagate authority and others not to.
However, there is no builtin version of these instructions so one must use
an MI program to acomplish it.  It seems silly to call an MI program just
to have it call another program and supress adoption.  Patching the
instruction stream of an HLL program to get the same effect is even

I did not know about MODINVAU which would acomplish what I wanted.  What I
meant was that programs have an attribute that determines whether
propagation of adopted authority occurs on any CALL.  It is set in the
program object.  (Well, OPM programs do -- I presume ILE programs have a
similar mechanism.)  Setting that bit makes all calls from the program stop
propogating authority.  That's the bit I wanted exposed on CHGPGM (or
possibly on the compiler commands but I think it belongs on CHGPGM).
MODINVAU will accomplish the effect I wanted and since there is a builtin
version it can be invoked from any ILE program.

>It is true, OS/400 suppress adopted authority when calling almost all exit
>programs. As you guessed we do not prevent the called exit program from
>adopting is owners authority.

That saves me some research.  It makes perfect sense for them to be treated
that way.  One wouldn't want an exit program to inherit QSYS authority from
and adopting IBM program :)  I've never had the need to use adopted
authority in a trigger but if I did I certainly wouldn't presume the
necessary authority was available from higher ion the stack.  Programs that
need to adopt authority should do it themselves.

Simon Coulter.

   FlyByNight Software         AS/400 Technical Specialists

   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                 ASCII Ribbon campaign against HTML E-Mail  / \

As an Amazon Associate we earn from qualifying purchases.

This thread ...

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

This mailing list archive is Copyright 1997-2022 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.