Named Indicators

If you have to use *IN then the following technique lets you use named indicators:

dcl-s indicatorsPtr pointer inz(%addr(*IN));
dcl-ds indicators based(indicatorsPtr);
  allIndicators char(99);
  exitRequested overlay(allIndicators : 3);
end-ds;                

See Midrange Wiki - Indicators