Contiguous memory and the *INKx indicators

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

> From: bmorris@ca.ibm.com
> But you can't count on any storage being contiguous unless it's
> actually in a data structure; this is true of any language.

Barbara, how much hurt am I exposing myself to with the assumption that the
*INKx indicators are contiguous?  Any plans on changing that sometime in the
future?  It's no big deal, I just have to rewrite my "command key emulation"
routine, but it's awfully nice to have been able to replace 24 moves with
one by using a based pointer and assuming they are contiguous.

D PSCKEYTAB       S              1    DIM(24) BASED(PSCKEYPTR)
D PSCKEYPTR       S               *   INZ(%ADDR(*INKA))

C                   MOVEA     *ZEROS        PSCKEYS
C                   EVAL      PSCKEYS(PSCKEY) = *ON

Without this, I have to manually stuff an array, and then move the 24
elements of the array into the 24 command key indicators.  I actually do
this for RPG400 programs, but for RPGIV programs, the code above is so much
nicer.

Joe