Re: RPG Free Format question

Bob Cozzi wrote:
> 
> Eval  %subarr(*IN:20:4) = *ALL'0';
> 

You don't need the *ALL'0'.  This will do it:

  Eval  %subarr(*IN:20:4) = '0'; 

When you have %subarr on the left-hand-side and a non-array on the
right-hand-side, %subarr will assign the rhs value to every element in
the subarray.

If the original code had been this:
  MOVEA  '0101'    *IN(20)
There would be no %subarr solution.

If you tried this:
  Eval  %subarr(*IN:20:4) = '0101'; // not the same as the MOVEA '0101'
above
the %SUBARR above would just set all the elements 20-23 to '0'.