Differences

This shows you the differences between two versions of the page.

--- named_indicators [2018/01/24 08:36]
+++ named_indicators [2021/04/05 11:23] (current)
@@ Line 1: / Line 1: @@
+====== 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}}