Indicator Arrays in /FREE

["Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx>]

 >> I am trying to convert the following to /free format...any suggestions.

 >>    MOVEA'10'    *IN,90

If you only have one such instance, then use separate statements i.e.
  *In90 = *Off;
  *In91 = *Off;

If you have multiple instances of this kind of thing, overlay a DS on the
*IN array and use meaningful names e.g.


 D pIndicators     S               *   Inz(%Addr(*In))

 D Indicators      DS            99    Based(pIndicators)
 D  ErrorInds                     2a   Overlay(Indicators: 90)
 D    NameFor90                    N   Overlay(ErrorInds)
 D    NameFor91                    N   Overlay(ErrorInds: *Next)

  /free
   ErrorInds = *Off;

This has not been tested but you should see the idea.  I always hated the
MOVEA to indicators bit - I find this more obvious once you understand the
basics.  You create as many groups as you need.  They can overlap one
another if required.

Jon Paris
Partner400
www.Partner400.com