====== Named Indicators ======

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

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

See [[https://wiki.midrange.com/index.php/Indicators|Midrange Wiki - Indicators]]

{{tag>devel rpg ibm}}