Reading an Indicator in an Expression

Supported RPG Features

Every family is also readable wherever an expression is accepted - IF, WHEN, DOW/DOU, an assignment right-hand side, a BIF argument - and each is assignable in free-format:

**FREE
*inh1 = *on;
if *inh1;                          // halt
  ...
endif;
dow *inl1 and n < 2;               // level
  ...
enddo;
msg = %char(*inu1) + %char(*inh1); // renders '1' / '0'

Each family keeps its own storage, so *INL1, *INU1 and *INH1 are three independent indicators.