RE: Does anyone use indicators anymore?

["Mike Tobey" <Mike.Tobey@xxxxxxxxxxxxxxxxx>]

James wrote: 
> I'm not directly familiar with overlaying names on the general
indicators. What release did it come in at, and can more >than one name
be overlaid on an indicator that's used for more than one purpose?

Hi James,

Here is what I do for screen indicators.  

     D pIndicator      S               *   Inz(%Addr(*IN))
     D IndicatorDS     DS                  Based(pIndicator)
     D  FuncKeys                     24    Overlay(IndicatorDS:1)
     D   Help                          N   Overlay(IndicatorDS:1)
     D   Inquire                       N   Overlay(IndicatorDS:2)
     D   Exit                          N   Overlay(IndicatorDS:3)
     D   AddRec                        N   Overlay(IndicatorDS:6)
     D   Prev                          N   Overlay(IndicatorDS:12)
     D   Confirmed                     N   Overlay(IndicatorDS:13)
     D   Calendar                      N   Overlay(IndicatorDS:14)
     D   ResetSfl                      N   Overlay(IndicatorDS:16)
     D  PosCsr                         N   Overlay(IndicatorDS:25)
     D  ProtectScr                     N   Overlay(IndicatorDS:27)
     D  NoDsplyOpt                     N   Overlay(IndicatorDS:27)
     D  DspMsg                         N   Overlay(IndicatorDS:30)
     D  IndSCR01                     11    Overlay(IndicatorDS:30)
     D   IndS1FMD                      N   Overlay(IndicatorDS:31)
     D   IndS1TOD                      N   Overlay(IndicatorDS:32)
     D   IndS1SID                      N   Overlay(IndicatorDS:33)
     D   IndS1PSZ                      N   Overlay(IndicatorDS:34)
     D   IndS1ODx                     7    Overlay(IndicatorDS:35)
     D    IndS1OD1                     N   Overlay(IndicatorDS:35)
     D    IndS1OD2                     N   Overlay(IndicatorDS:36)
     D    IndS1OD3                     N   Overlay(IndicatorDS:37)
     D    IndS1OD4                     N   Overlay(IndicatorDS:38)
     D    IndS1OD5                     N   Overlay(IndicatorDS:39)
     D    IndS1OD6                     N   Overlay(IndicatorDS:40)   
     D    IndS1OD7                     N   Overlay(IndicatorDS:41) 
     D  SflMode                       3    Overlay(IndicatorDS:50)
     D   SflDsply                      N   Overlay(IndicatorDS:50)
     D   SflCtlDsply                   N   Overlay(IndicatorDS:51)
     D   SflInit                       N   Overlay(IndicatorDS:52)     

      * Subfile modes
     D InitSfl         C                   '001'
     D DsplSfl         C                   '110'  
 
This approach allows me to name the same indicator more than once and
clear or set a range of indicators in one step.  
Examples:       Clear the indicators used by SCR01 (IndSCR01 = *off;)
                Set the indicators to initialize a subfile (SflMode =
InitSfl;) If you do name the same indicator twice you must remember that
changing either affects both.

Michael Tobey
Applications Analyst
Foremost Farms USA (Consumer Products)
mike.tobey@xxxxxxxxxxxxxxxxx