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

[Jones Allen (Van)]

You need a FOR statement to run the DISPLAY for each occurrence of your
cluster:

...
  FOR <file>
    DISPLAY description
...

Use the file name in the FOR statement to specify the number of times the
FOR loop should execute, in case you change the occurrence in later screen
maintenance, then you won't have to change the FOR statement.

-----Original Message-----
From: Daniel Mielke [mailto:DMielke@aicfunds.com]
Sent: Wednesday, May 23, 2001 11:45 AM
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                                    



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

= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.