Re: Indicators -- not needed anymore???

[Barbara Morris <bmorris@xxxxxxxxxx>]

Andy Hautamaki wrote:
> 
> Nobody is mentioning this one so maybe you can do this without an indicator
> and I'm just missing the obvious.........
> 
> On a display file you want to enable and disable a command key........
> 
> 67                                  CF06
> 

You can use an INDDS in your RPG program for this:

A                                      INDARA               
A          R REC                                            
A                                      CA03(03)             
A  67                                  CF06(06)             
A            FLD            1A     2  2                     
A  67                             23  2'F3=Exit F6=Shazzam!'
A N67                             23  2'F3=Exit'            

Fjunkdsp   cf   e             workstn indds(dspInds)        
D dspinds         ds                                        
D   ca06                          n   overlay(dspinds : 3)  
D   cf06                          n   overlay(dspinds : 6)  
D   allowCf06                     n   overlay(dspinds : 67) 
 ****** (Makes no difference if you seton *IN67)
C******             eval      *in67 = *on
C                   eval      allowCf06 = *off                
C                   exfmt     rec                           
C     cf06          dsply
C                                                           
C                   eval      allowCf06 = *on                 
C                   exfmt     rec                           
C     cf06          dsply
C                   return                                  

output (if I hit F6 when it says I can):
DSPLY  0
DSPLY  1