Re: ACTGRP

I am glad that it is working for you, but there might be a couple other
things you might want to consider.

When you run an OPM program, it runs in the DFTACTGRP.  OS/400 has
mechanisms built in to remove that activation so that you regain your
memmory and resources.  Setting on *INLR in an OPM program is one such
way to do that, as is the opcode FREE.  There is not a mechanism to
remove an ILE program from the DFTACTGRP, short of ending the job.
When you call an ILE program (with *CALLER) from an OPM program, you
have no way of getting your resource back.  This is one reason why you
can find users that sign off and sign back on in the afternoon, because
they think the system is slow.

The other thing that you can consider is that OPNSCOPE acts differently
depending on which activation group you call it from.  From DFTACTGRP
(OPM programs) it acts as *CALLLVL.  When you call it from any other
activation group (QILE, *NEW, etc...) only (and all) the programs that
are in that activation group will see the override, regardless of where
they are in the call stack.  Typically I have found that it is a good
habit to always code the OPNSCOPE and OVRSCOPE in your command, and I
usually use *CALLLVL.  

Which way is better?  I tend to think your first solution, but I just
wanted to make both ways clear.

Andy

"Lurton Keel" <LKeel=+pL2EDbf78h7L5ELgUAOfA@xxxxxxxxxxxxxxxx> wrote in
message
news:<31A953320CD8D21184BD0004ACC51358018AB1EB@xxxxxxxxxxxxxxxxxxxxx>...
> That's the ticket.
> Added actgrp(*caller) to h spec, removed opnscope(*job) from the cl 
> and it works.
> 
> Thanks
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> list To post a message email: 
> RPG400-L=Zwy7GipZuJhWk0Htik3J/w@xxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request=Zwy7GipZuJhWk0Htik3J/w@xxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>