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

[Pickering, John (NORBORD)]

First, does the as/400 version of PH have scrolling fields?? This would
allow you to use the standard Quick interface to move the contents left and
right.

Second, to improve your method. To "toggle" the entire block I'd probably do
it in the OUTPUT procedure.
Something like:

procedure output descr-35
begin
  if "E" = show
    then let fieldtext = descr-35[16:20]
    else let fieldtext = descr-35[1:20]
end

Notice I made the beginning of descr-35 the default (i.e. any value other
than "E" for your item show).

You'll also need a loop somewhere to redisplay the field after you change
the value of show.
Something like:

procedure designer toggle
begin
  if "E" = show
    then let show = "B"
    else let show = "E"
  for [the file or item that occurs]
    display descr-35
end

Regards,
JWP,
Toronto


> -----Original Message-----
> From:	Daniel Mielke [SMTP:DMielke@aicfunds.com]
> Sent:	Wednesday, May 23, 2001 2:45 PM
> To:	Powerhouse List (E-mail)
> Subject:	AS/400 "Refresh" of a defined item as part of a cluster
> 
> 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                                    
> 
>