RE: Indicator Redux

["Turnidge, Dave" <DTurnidge@xxxxxxxxxxxxxxxxxxxx>]

Thank you! 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Nick_Radich@xxxxxxxxxxxxxx
Sent: Wednesday, December 06, 2006 11:31 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Indicator Redux

Dave,

Instead of this:

     A                                 23 53'F17=Exclude System'
     A                                      COLOR(BLU)
     A  27                             23 58'In'
     A                                      COLOR(BLU)

How about trying this:

     A N27                              23 53'F17=Exclude System'
     A                                      COLOR(BLU)
     A  27                              23 53'F17=Include System'
     A                                      COLOR(BLU)


HTH,

Nick

Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct  (320) 679-6683
Toll free  (800) 388-2155  ext. 6683
Fax  (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



"Turnidge, Dave" <DTurnidge@xxxxxxxxxxxxxxxxxxxx> Sent by:
rpg400-l-bounces@xxxxxxxxxxxx
12/06/06 11:20 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Indicator Redux






Hokkaii... Here is the portion of the screen that's supposed to change:

 F17=Exclude System

When I click on F17 it turns variable F17System *ON.

D Workstnind      ds
     D  FunctionKeys          01     30 
       ----
     D  F17System             17     17n  <---------------
                 ----
     D  ExcludeSys            27     27n  <---------------

Then I turn ExcludeSys on or off

                // Exclude system in sort
                When F17system;
                   if ExcludeSys;
                      ExcludeSys = *OFF;
                   else;
                      ExcludeSys = *ON;
                   endif; 

At this point (first time through) ExcludeSys is *ON

However, my display file never changes...

     A                                 23 53'F17=Exclude System'
     A                                      COLOR(BLU)
     A  27                             23 58'In'
     A                                      COLOR(BLU)

What it should show is "F17=Include System"
But it still shows "F17=Exclude System"

What am I doing wrong?

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, December 06, 2006 10:58 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Indicator Redux

That looks good to me. Sure you've got the right display file, and that
it compiled with no errors regarding INDARA?

On 12/6/06, Turnidge, Dave <DTurnidge@xxxxxxxxxxxxxxxxxxxx> wrote:
> A                                      DSPSIZ(24 80 *DS3)
> A                                      VLDCMDKEY(75 'RETURN')
> A                                      INDARA
> <------------------------
> A*                                     PRINT
> A*                                     HELP