Re: RPG Free Format question

Try defining the indicators on a named data structure based on a pointer to *IN.
Then define a field that overlays the indicator structure for 4 bytes starting 
at pos 20.
Then just CLEAR the field.  Indicators will be reset.
 
ex:
Indicator_ds      DS                Based(Ind_Ptr)
  Ind20_23                      4A   Overlay(Indicator_Ds : 20)
 
Ind_Ptr             S             *    Inz(%Addr(*In)
 
/Free
 .
.
.
Clear Ind20_23;
    or
 Ind20_23 = *Zero;
 
/End-Free


PHarte@xxxxxxxxxx wrote:
Is there a function in Free Format RPG that allows me to turn off more 
than one indicator in a single statement similar to the 
c movea '0000' *in(20)

Does anybody know which is the better of the Free Format RPG books to 
purchase?


Thanks,
Pat.