AS/400 "Refresh" of a defined item as part of a cluster

[Daniel Mielke]

Hello all,

I want to build a function key to toggle the display of a 35 character field
in the available 20 character display.

                     Error  Error              
Field Name           Nbr    Description        
xxxxxxxxxxxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx xxxx xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx 1234 PROBLEM EXISTS BETWE
to...
xxxxxxxxxxxxxxxxxxxx 1234 BETWEEN CHAIR&KEYBRD

The source below seems to work, but only for the first item in the cluster.


How is it coded for multiple items?  I'd like to see the entire block
toggled.

>key 2 local label "Desc.Toggle" ACTION AND DATA DESIGNER TOGGLE   
                                                                  
>temporary show char*1 initial "B" reset at mode                   
>define description char*20 = substring(DESCR-35,1,20) &   
>                          if show = "B" &                         
>                        else substring(DESCR-35,16,20) &  
>                          if show = "E"                            

>PROCEDURE DESIGNER TOGGLE                
>  BEGIN                                  
>     if SHOW = "B"                       
>        then let SHOW = "E"              
>        else let SHOW = "B"              
>     display description                 
>  END                                    



> BUY. HOLD. AND PROSPER.
> 
> Daniel Mielke
> Senior User Analyst
> AIC Limited
> 1-888-710-4242 (4614)
> dmielke@aicfunds.com
> www.aicfunds.com
>