Set On K1 - K9 Indicators in RPG Program ?

[MFisher]

Is it possible to set on a command key indicator in an RPG program ?
I need to make a copy of an existing program, to execute a specific block of code.
It's a clunky old program and I want it to force exit, as if the user hit CMD-3 at a specific point.

EDIT: Looks like this will work EVAL *INKC = '1'

[MFisher]

EDIT: Looks like this will work EVAL *INKC = '1'

[roverbyte]

I would be surprised if that did not work. So will EVAL *INKC = *ON

[Peder Udesen]

You can't seton *INKC

According to the manual:
KA through KN and KP through KY can be used as resulting indicators only with the SETOFF operation
(RPG Reference V7R3 page 130)

[Barbara Morris]

Could you add an ordinary indicator field, and set it on when you want to set INKC on, and then when it tests INKC to see if it should end, also check your own indicator.

If you currently have this:

   if *inkc;
      *inlr = *on;
      return;
   endif;

Add these:

dcl-s end_now ind inz(*off);
...
   end_now = *on;

And change the *INKC "if" statement to this:

   if *inkc or end_now;
      *inlr = *on;
      return;
   endif;