Re: Service program authority adoption

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
sillier.

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.

Regards,
Simon Coulter.

--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists
   http://www.flybynight.com.au/

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