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

[Gabriel Estrada]

I believe you have to set the temporary OCCURS WITH the file.

-----Original Message-----
From: powerh-l-admin@cube.swau.edu
[mailto:powerh-l-admin@cube.swau.edu]On Behalf Of Daniel Mielke
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.