Re: Indicator Arrays in /FREE

If you are converting, why not really convert and do away with Indicators 90
and 91 altogether unless its for a screen format?   
 
 ---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Saturday, April 05, 2003 13:47:42
To: rpg400-l@xxxxxxxxxxxx
Subject: Indicator Arrays in /FREE
 
>> 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