I haven’t got my references handy but there is a way to put the display file indicators into a data structure and then you can assign field names in RPG instead of *IN03 and the like. With the data structure you could create a named field overlaying 2,3,4 or more indicator positions and turn them on or off as a group.
Since the indicators are an array you may see the use of the MOVEA command
MOVA ’0000′ *IN30
which would turn to off indicators 30, 31, 32, and 33. Clever code like this is easy to overlook during maintenance so it maybe a bad model.
SETOF and SETON are I suppose in the deprecated list. Using
EVAL *IN57 = *on (or *off)
or in free format
*IN57 = *on
Some of the indicators need to appear in certain locations others can be moved to subroutines or procedures. Some appear in the clrSubFile routine to clear the subfile and set it in display mode.
Others can be cleared along when the clrSFLErrMsg in a routine.